3:       Interface
  4:         Subroutine PetscOptionsGetInt(o,p,n,v,s,ierr)
  5:           use petscsysdef
  6:           PetscOptions o
  7:           PetscInt v
  8:           character(*) p,n
  9:           PetscBool s
 10:           PetscErrorCode ierr
 11:         End Subroutine
 12:         Subroutine PetscOptionsGetReal(o,p,n,v,s,ierr)
 13:           use petscsysdef
 14:           PetscOptions o
 15:           PetscReal v
 16:           character(*) p,n
 17:           PetscBool s
 18:           PetscErrorCode ierr
 19:         End Subroutine
 20:         Subroutine PetscOptionsGetScalar(o,p,n,v,s,ierr)
 21:           use petscsysdef
 22:           PetscOptions o
 23:           PetscScalar v
 24:           character(*) p,n
 25:           PetscBool s
 26:           PetscErrorCode ierr
 27:         End Subroutine
 28:         Subroutine PetscOptionsGetBool(o,p,n,v,s,ierr)
 29:           use petscsysdef
 30:           PetscOptions o
 31:           PetscBool v
 32:           character(*) p,n
 33:           PetscBool s
 34:           PetscErrorCode ierr
 35:         End Subroutine
 36:         Subroutine PetscOptionsGetString(o,p,n,v,s,ierr)
 37:           use petscsysdef
 38:           PetscOptions o
 39:           character(*) v
 40:           character(*) p,n
 41:           PetscBool s
 42:           PetscErrorCode ierr
 43:         End Subroutine
 44:         Subroutine PetscOptionsHasName(o,p,n,s,ierr)
 45:           use petscsysdef
 46:           PetscOptions o
 47:           character(*) p,n
 48:           PetscBool s
 49:           PetscErrorCode ierr
 50:         End Subroutine
 51:         Subroutine PetscOptionsGetIntArray(o,p,n,v,c,s,ierr)
 52:           use petscsysdef
 53:           PetscOptions o
 54:           PetscInt v(*),c
 55:           character(*) p,n
 56:           PetscBool s
 57:           PetscErrorCode ierr
 58:         End Subroutine
 59:         Subroutine PetscOptionsGetScalarArray(o,p,n,v,c,s,ierr)
 60:           use petscsysdef
 61:           PetscOptions o
 62:           PetscScalar v(*)
 63:           PetscInt c
 64:           character(*) p,n
 65:           PetscBool s
 66:           PetscErrorCode ierr
 67:         End Subroutine
 68:         Subroutine PetscOptionsGetRealArray(o,p,n,v,c,s,ierr)
 69:           use petscsysdef
 70:           PetscOptions o
 71:           PetscReal v(*)
 72:           PetscInt c
 73:           character(*) p,n
 74:           PetscBool s
 75:           PetscErrorCode ierr
 76:         End Subroutine
 77:         Subroutine PetscOptionsSetValue(o,n,v,ierr)
 78:           use petscsysdef
 79:           PetscOptions o
 80:           character(*) n,v
 81:           PetscErrorCode ierr
 82:         End Subroutine
 83:         Subroutine PetscOptionsClearValue(o,n,ierr)
 84:           use petscsysdef
 85:           PetscOptions o
 86:           character(*) n
 87:           PetscErrorCode ierr
 88:         End Subroutine
 89:         Subroutine PetscOptionsClear(o,ierr)
 90:           use petscsysdef
 91:           PetscOptions o
 92:           PetscErrorCode ierr
 93:         End Subroutine
 94:       End Interface