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


 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: