Actual source code: petscsys.h90
petsc-3.9.4 2018-09-11
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