Actual source code: ex14.c

petsc-3.5.4 2015-05-23
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: }