1! 2! Example of using PetscOptionsBegin in Fortran 3program ex9f 4#include "petsc/finclude/petsc.h" 5 use petsc 6 implicit none 7 8 PetscReal,Parameter :: PReal = 1.0 9 Integer,Parameter :: Pr = Selected_Real_Kind(Precision(PReal)) 10 PetscInt,Parameter :: PInt = 1 11 Integer,Parameter :: Pi = kind(PInt) 12 13 PetscErrorCode :: ierr 14 PetscBool :: flg 15 PetscInt :: nopt = 3_Pi 16 PetscBool :: bvalue, bdefault = PETSC_TRUE 17 PetscBool,dimension(:),pointer :: barray 18 PetscEnum :: evalue, edefault = 2 19 PetscInt :: ivalue, idefault = 2_Pi 20 PetscInt,dimension(:),pointer :: iarray 21 PetscReal :: rvalue, rdefault = 1.23_Pr 22 PetscReal,dimension(:),pointer :: rarray 23 PetscScalar :: svalue, sdefault = -4.56_Pr 24 PetscScalar,dimension(:),pointer :: sarray 25 character(len=256) :: IOBuffer 26 character(len=256) :: stvalue,stdefault 27 character(len=256) :: list(6) 28 29 PetscCallA(PetscInitialize(ierr)) 30 list(1) = 'a123 ' 31 list(2) = 'b456 ' 32 list(3) = 'c789 ' 33 list(4) = 'list ' 34 list(5) = 'prefix_' 35 list(6) = '' 36 stdefault = 'oulala oulala' 37 38 Allocate(iarray(nopt),source=-1_Pi) 39 Allocate(rarray(nopt),source=-99.0_pr) 40 Allocate(barray(nopt),source=PETSC_FALSE) 41 Allocate(sarray(nopt)) 42 sarray = 123.456_Pr 43 44 PetscCallA(PetscOptionsBegin(PETSC_COMM_WORLD,'prefix_','Setting options for my application','Section 1',ierr)) 45 PetscCallA(PetscOptionsBool('-bool','Get an application bool','Man page',bdefault,bvalue,flg,ierr)) 46 if (flg) then 47 write(IOBuffer,'("The bool value was set to ",L1,"\n")') bvalue 48 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 49 endif 50 PetscCallA(PetscOptionsBoolArray('-boolarray','Get an application bool array','Man page',barray,nopt,flg,ierr)) 51 if (flg) then 52 write(IOBuffer,'("The bool array was set to ",*(L1," "))') barray 53 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,trim(IOBuffer)//"\n",ierr)) 54 endif 55 PetscCallA(PetscOptionsEnum('-enum','Get an application enum','Man page',list,edefault,evalue,flg,ierr)) 56 if (flg) then 57 write(IOBuffer,'("The bool value was set to ",A,"\n")') trim(list(evalue+1)) 58 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 59 endif 60 PetscCallA(PetscOptionsInt('-int','Get an application int','Man page',idefault,ivalue,flg,ierr)) 61 if (flg) then 62 write(IOBuffer,'("The integer value was set to ",I8,"\n")') ivalue 63 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 64 endif 65 PetscCallA(PetscOptionsIntArray('-intarray','Get an application int array','Man page',iarray,nopt,flg,ierr)) 66 if (flg) then 67 write(IOBuffer, '("The integer array was set to ",*(I8," "))') iarray 68 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,trim(IOBuffer)//"\n",ierr)) 69 endif 70 PetscCallA(PetscOptionsReal('-real','Get an application real','Man page',rdefault,rvalue,flg,ierr)) 71 if (flg) then 72 write(IOBuffer,'("The real value was set to ",ES12.5,"\n")') rvalue 73 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 74 endif 75 PetscCallA(PetscOptionsRealArray('-realarray','Get an application real array','Man page',rarray,nopt,flg,ierr)) 76 if (flg) then 77 write(IOBuffer,'("The real array was set to ",*(ES12.5," "))') rarray 78 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,trim(IOBuffer)//"\n",ierr)) 79 endif 80 PetscCallA(PetscOptionsScalar('-scalar','Get an application scalar','Man page',sdefault,svalue,flg,ierr)) 81 if (flg) then 82 write(IOBuffer,'("The scalar value was set to ",ES12.5,"\n")') svalue 83 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 84 endif 85 PetscCallA(PetscOptionsScalarArray('-scalararray','Get an application scalar array','Man page',sarray,nopt,flg,ierr)) 86 if (flg) then 87 write(IOBuffer,'("The scalar array was set to ",*(ES12.5," "))') sarray 88 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,trim(IOBuffer)//"\n",ierr)) 89 endif 90 PetscCallA(PetscOptionsString('-string','Get an application string','Man page',stdefault,stvalue,flg,ierr)) 91 if (flg) then 92 write(IOBuffer,'("The string value was set to ",A,"\n")') trim(stvalue) 93 PetscCallA(PetscPrintf(PETSC_COMM_WORLD,IOBuffer,ierr)) 94 endif 95 PetscCallA(PetscOptionsEnd(ierr)) 96 97 deallocate(iarray) 98 deallocate(rarray) 99 deallocate(barray) 100 deallocate(sarray) 101 PetscCallA(PetscFinalize(ierr)) 102end program ex9f 103 104! 105!/*TEST 106! 107! build: 108! requires: defined(PETSC_USING_F2003) defined(PETSC_USING_F90FREEFORM) !complex 109! 110! test: 111! 112! test: 113! suffix: 2 114! args: -prefix_int 22 -prefix_intarray 2-5 -prefix_real 2.34 -prefix_realarray -3,-4,5.5 -prefix_scalar 7.89 -prefix_scalararray 1.,2.,3. -prefix_bool no -prefix_boolarray 1,no,true -prefix_string This_is_a_test_of_the_emergency_alert_system 115! 116!TEST*/ 117