1: !
  2: !   Example of using PetscOptionsBegin in Fortran
  3: #include "petsc/finclude/petscsys.h"
  4: program ex9f
  5:   use petscsys
  6:   implicit none

  8:   integer, parameter :: Pr = PETSC_REAL_KIND
  9:   integer, parameter :: Pi = PETSC_INT_KIND

 11:   PetscErrorCode                            :: ierr
 12:   PetscBool                                 :: flg
 13:   PetscInt                                  :: nopt = 3_Pi
 14:   PetscBool                                 :: bvalue, bdefault = PETSC_TRUE
 15:   PetscBool, dimension(:), pointer          :: barray
 16:   PetscEnum                                 :: evalue, edefault = 2
 17:   PetscInt                                  :: ivalue, idefault = 2_Pi
 18:   PetscInt, dimension(:), pointer           :: iarray
 19:   PetscReal                                 :: rvalue, rdefault = 1.23_Pr
 20:   PetscReal, dimension(:), pointer          :: rarray
 21:   PetscScalar                               :: svalue, sdefault = -4.56_Pr
 22:   PetscScalar, dimension(:), pointer        :: sarray
 23:   character(len=256)                        :: IOBuffer
 24:   character(len=256)                        :: stvalue, stdefault
 25:   character(len=256)                        :: list(6)

 27:   PetscCallA(PetscInitialize(ierr))
 28:   list(1) = 'a123   '
 29:   list(2) = 'b456   '
 30:   list(3) = 'c789   '
 31:   list(4) = 'list   '
 32:   list(5) = 'prefix_'
 33:   list(6) = ''
 34:   stdefault = 'oulala oulala'

 36:   allocate (iarray(nopt), source=-1_Pi)
 37:   allocate (rarray(nopt), source=-99.0_pr)
 38:   allocate (barray(nopt), source=PETSC_FALSE)
 39:   allocate (sarray(nopt))
 40:   sarray = 123.456_Pr

 42:   PetscCallA(PetscOptionsBegin(PETSC_COMM_WORLD, 'prefix_', 'Setting options for my application', 'Section 1', ierr))
 43:   PetscCallA(PetscOptionsBool('-bool', 'Get an application bool', 'Man page', bdefault, bvalue, flg, ierr))
 44:   if (flg) then
 45:     write (IOBuffer, '("The bool value was set to ",L1,"\n")') bvalue
 46:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 47:   end if
 48:   PetscCallA(PetscOptionsBoolArray('-boolarray', 'Get an application bool array', 'Man page', barray, nopt, flg, ierr))
 49:   if (flg) then
 50:     write (IOBuffer, '("The bool array was set to ",*(L1," "))') barray
 51:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
 52:   end if
 53:   PetscCallA(PetscOptionsEnum('-enum', 'Get an application enum', 'Man page', list, edefault, evalue, flg, ierr))
 54:   if (flg) then
 55:     write (IOBuffer, '("The bool value was set to ",A,"\n")') trim(list(evalue + 1))
 56:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 57:   end if
 58:   PetscCallA(PetscOptionsInt('-int', 'Get an application int', 'Man page', idefault, ivalue, flg, ierr))
 59:   if (flg) then
 60:     write (IOBuffer, '("The integer value was set to ",I8,"\n")') ivalue
 61:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 62:   end if
 63:   PetscCallA(PetscOptionsIntArray('-intarray', 'Get an application int array', 'Man page', iarray, nopt, flg, ierr))
 64:   if (flg) then
 65:     write (IOBuffer, '("The integer array was set to ",*(I8," "))') iarray
 66:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
 67:   end if
 68:   PetscCallA(PetscOptionsReal('-real', 'Get an application real', 'Man page', rdefault, rvalue, flg, ierr))
 69:   if (flg) then
 70:     write (IOBuffer, '("The real value was set to ",ES12.5,"\n")') rvalue
 71:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 72:   end if
 73:   PetscCallA(PetscOptionsRealArray('-realarray', 'Get an application real array', 'Man page', rarray, nopt, flg, ierr))
 74:   if (flg) then
 75:     write (IOBuffer, '("The real array was set to ",*(ES12.5," "))') rarray
 76:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
 77:   end if
 78:   PetscCallA(PetscOptionsScalar('-scalar', 'Get an application scalar', 'Man page', sdefault, svalue, flg, ierr))
 79:   if (flg) then
 80:     write (IOBuffer, '("The scalar value was set to ",ES12.5,"\n")') svalue
 81:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 82:   end if
 83:   PetscCallA(PetscOptionsScalarArray('-scalararray', 'Get an application scalar array', 'Man page', sarray, nopt, flg, ierr))
 84:   if (flg) then
 85:     write (IOBuffer, '("The scalar array was set to ",*(ES12.5," "))') sarray
 86:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr))
 87:   end if
 88:   PetscCallA(PetscOptionsString('-string', 'Get an application string', 'Man page', stdefault, stvalue, flg, ierr))
 89:   if (flg) then
 90:     write (IOBuffer, '("The string value was set to ",A,"\n")') trim(stvalue)
 91:     PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
 92:   end if
 93:   PetscCallA(PetscOptionsEnd(ierr))

 95:   deallocate (iarray)
 96:   deallocate (rarray)
 97:   deallocate (barray)
 98:   deallocate (sarray)
 99:   PetscCallA(PetscFinalize(ierr))
100: end program ex9f

102: !
103: !/*TEST
104: !
105: !   build:
106: !      requires: !complex
107: !
108: !   test:
109: !      output_file: output/empty.out
110: !
111: !   test:
112: !      suffix: 2
113: !      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
114: !
115: !TEST*/