2: /*
3: Tests PetscOptionsGetScalar() for complex numbers
4: */
6: #include petsc.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: