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 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 + %gi\n",PetscRealPart(a),PetscImaginaryPart(a)); 20: PetscFinalize(); 21: return 0; 22: } 23: