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",PetscRealPart(a),PetscImaginaryPart(a));
16: PetscFinalize();
17: return 0;
18: }