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: