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: 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: