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: