Actual source code: ex14.c

petsc-3.5.1 2014-07-24
Report Typos and Errors
  2: static char help[] = "Tests PetscOptionsGetScalar() for complex numbers\n";

  4: #include <petscsys.h>

  8: int main(int argc,char **argv)
  9: {
 10:   int         ierr;
 11:   PetscScalar a;

 13:   PetscInitialize(&argc,&argv,(char*)0,help);
 14:   PetscOptionsGetScalar(NULL,"-a",&a,NULL);
 15:   PetscPrintf(PETSC_COMM_SELF,"Scalar a = %g + %gi\n",(double)PetscRealPart(a),(double)PetscImaginaryPart(a));
 16:   PetscFinalize();
 17:   return 0;
 18: }