Actual source code: ex14.c
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: #undef __FUNCT__
12: int main(int argc,char **argv)
13: {
14: int ierr;
15: PetscScalar a;
17: PetscInitialize(&argc,&argv,(char *)0,0);
18: PetscOptionsGetScalar(PETSC_NULL,"-a",&a,PETSC_NULL);
19: PetscPrintf(PETSC_COMM_SELF,"Scalar a = %g + %gin",PetscRealPart(a),PetscImaginaryPart(a));
20: PetscFinalize();
21: return 0;
22: }
23: