Actual source code: ex14.c

  1: /*$Id: ex14.c,v 1.10 2001/03/23 23:20:59 balay Exp $*/

  3: /* 
  4:    Tests PetscOptionsGetScalar() for complex numbers
  5:  */

  7: #include "petsc.h"


 10: int main(int argc,char **argv)
 11: {
 12:   int    ierr;
 13:   Scalar a;

 15:   PetscInitialize(&argc,&argv,(char *)0,0);
 16:   PetscOptionsGetScalar(PETSC_NULL,"-a",&a,PETSC_NULL);
 17:   PetscPrintf(PETSC_COMM_SELF,"Scalar a = %g + %gin",PetscRealPart(a),PetscImaginaryPart(a));
 18:   PetscFinalize();
 19:   return 0;
 20: }
 21: