1: #if defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
  2:       Interface
  3:        subroutine PetscObjectReference(obj,ierr)
  4:           use petscsysdef
  5:           type(*) :: obj
  6:           PetscErrorCode :: ierr
  7:        end Subroutine PetscObjectReference
  8:        subroutine PetscObjectDereference(obj,ierr)
  9:           use petscsysdef
 10:           type(*) :: obj
 11:           PetscErrorCode :: ierr
 12:         end Subroutine PetscObjectDereference
 13:        subroutine PetscObjectGetReference(obj,c,ierr)
 14:           use petscsysdef
 15:           type(*) :: obj
 16:           PetscInt c
 17:           PetscErrorCode :: ierr
 18:         end Subroutine PetscObjectGetReference
 19:        subroutine PetscObjectCompose(obj,str,obj2,ierr)
 20:           use petscsysdef
 21:           type(*) :: obj,obj2
 22:           character(*) :: str
 23:           PetscErrorCode :: ierr
 24:         end Subroutine PetscObjectCompose
 25:        subroutine PetscObjectQuery(obj,str,obj2,ierr)
 26:           use petscsysdef
 27:           type(*) :: obj,obj2
 28:           character(*) :: str
 29:           PetscErrorCode :: ierr
 30:         end Subroutine PetscObjectQuery
 31:         end Interface
 32: #endif

 34:       Interface
 35:         Subroutine PetscOptionsGetInt(o,p,n,v,s,ierr)
 36:           use petscsysdef
 37:           PetscOptions o
 38:           PetscInt v
 39:           character(*) p,n
 40:           PetscBool s
 41:           PetscErrorCode ierr
 42:         End Subroutine
 43:         Subroutine PetscOptionsGetReal(o,p,n,v,s,ierr)
 44:           use petscsysdef
 45:           PetscOptions o
 46:           PetscReal v
 47:           character(*) p,n
 48:           PetscBool s
 49:           PetscErrorCode ierr
 50:         End Subroutine
 51:         Subroutine PetscOptionsGetScalar(o,p,n,v,s,ierr)
 52:           use petscsysdef
 53:           PetscOptions o
 54:           PetscScalar v
 55:           character(*) p,n
 56:           PetscBool s
 57:           PetscErrorCode ierr
 58:         End Subroutine
 59:         Subroutine PetscOptionsGetBool(o,p,n,v,s,ierr)
 60:           use petscsysdef
 61:           PetscOptions o
 62:           PetscBool v
 63:           character(*) p,n
 64:           PetscBool s
 65:           PetscErrorCode ierr
 66:         End Subroutine
 67:         Subroutine PetscOptionsGetString(o,p,n,v,s,ierr)
 68:           use petscsysdef
 69:           PetscOptions o
 70:           character(*) v
 71:           character(*) p,n
 72:           PetscBool s
 73:           PetscErrorCode ierr
 74:         End Subroutine
 75:         Subroutine PetscOptionsHasName(o,p,n,s,ierr)
 76:           use petscsysdef
 77:           PetscOptions o
 78:           character(*) p,n
 79:           PetscBool s
 80:           PetscErrorCode ierr
 81:         End Subroutine
 82:         Subroutine PetscOptionsGetIntArray(o,p,n,v,c,s,ierr)
 83:           use petscsysdef
 84:           PetscOptions o
 85:           PetscInt v(*),c
 86:           character(*) p,n
 87:           PetscBool s
 88:           PetscErrorCode ierr
 89:         End Subroutine
 90:         Subroutine PetscOptionsGetScalarArray(o,p,n,v,c,s,ierr)
 91:           use petscsysdef
 92:           PetscOptions o
 93:           PetscScalar v(*)
 94:           PetscInt c
 95:           character(*) p,n
 96:           PetscBool s
 97:           PetscErrorCode ierr
 98:         End Subroutine
 99:         Subroutine PetscOptionsGetRealArray(o,p,n,v,c,s,ierr)
100:           use petscsysdef
101:           PetscOptions o
102:           PetscReal v(*)
103:           PetscInt c
104:           character(*) p,n
105:           PetscBool s
106:           PetscErrorCode ierr
107:         End Subroutine
108:         Subroutine PetscOptionsSetValue(o,n,v,ierr)
109:           use petscsysdef
110:           PetscOptions o
111:           character(*) n,v
112:           PetscErrorCode ierr
113:         End Subroutine
114:         Subroutine PetscOptionsClearValue(o,n,ierr)
115:           use petscsysdef
116:           PetscOptions o
117:           character(*) n
118:           PetscErrorCode ierr
119:         End Subroutine
120:         Subroutine PetscOptionsClear(o,ierr)
121:           use petscsysdef
122:           PetscOptions o
123:           PetscErrorCode ierr
124:         End Subroutine
125:       End Interface

127:       Interface
128:       subroutine PetscRandomSetType(a,b,z)
129:       use petscsysdef
130:        PetscRandom a
131:        character(*) b
132:        integer z
133:        end subroutine
134:       end Interface

136:       Interface
137:       subroutine PetscRandomView(a,b,z)
138:       use petscsysdef
139:        PetscRandom a
140:        PetscViewer b
141:        integer z
142:        end subroutine
143:       end Interface

145: #if defined(PETSC_USE_LOG)
146:       Interface
147:       function PetscASend(c, d) bind(c,name='PetscASend') result(i)
148:           use iso_c_binding
149:           implicit none
150:           integer(c_int), value :: c
151:           integer(c_int), value :: d
152:           integer(c_int)        :: i
153:       end function PetscASend

155:       function PetscARecv(c, d) bind(c,name='PetscARecv') result(i)
156:           use iso_c_binding
157:           implicit none
158:           integer(c_int), value :: c
159:           integer(c_int), value :: d
160:           integer(c_int)        :: i
161:       end function PetscARecv

163:       function PetscAReduce() bind(c,name='PetscAReduce') result(i)
164:           use iso_c_binding
165:           implicit none
166:           integer(c_int)        :: i
167:       end function PetscAReduce
168:       end Interface
169: #endif