1: /*$Id: ex14.c,v 1.12 2001/08/07 21:29:12 bsmith Exp $*/
3: /*
4: Tests PetscOptionsGetScalar() for complex numbers
5: */
7: #include petsc.h
10: int main(int argc,char **argv)
11: {
12: int ierr;
13: PetscScalar a;
15: PetscInitialize(&argc,&argv,(char *)0,0);
16: PetscOptionsGetScalar(PETSC_NULL,"-a",&a,PETSC_NULL);
17: PetscPrintf(PETSC_COMM_SELF,"Scalar a = %g + %gin",PetscRealPart(a),PetscImaginaryPart(a));
18: PetscFinalize();
19: return 0;
20: }
21: