Actual source code: ex14.c

  2: /* 
  3:    Tests PetscOptionsGetScalar() for complex numbers
  4:  */

 6:  #include petscsys.h


 11: int main(int argc,char **argv)
 12: {
 13:   int         ierr;
 14:   PetscScalar a;

 16:   PetscInitialize(&argc,&argv,(char *)0,0);
 17:   PetscOptionsGetScalar(PETSC_NULL,"-a",&a,PETSC_NULL);
 18:   PetscPrintf(PETSC_COMM_SELF,"Scalar a = %G + %Gi\n",PetscRealPart(a),PetscImaginaryPart(a));
 19:   PetscFinalize();
 20:   return 0;
 21: }
 22: