Actual source code: petscsys.h90
petsc-3.11.4 2019-09-28
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 PetscPrintf(m,c,ierr)
36: use petscsysdef
37: MPI_Comm :: m
38: character(len=*) :: c
39: PetscErrorCode :: ierr
40: End Subroutine
41: Subroutine PetscOptionsGetInt(o,p,n,v,s,ierr)
42: use petscsysdef
43: PetscOptions o
44: PetscInt v
45: character(*) p,n
46: PetscBool s
47: PetscErrorCode ierr
48: End Subroutine
49: Subroutine PetscOptionsGetReal(o,p,n,v,s,ierr)
50: use petscsysdef
51: PetscOptions o
52: PetscReal v
53: character(*) p,n
54: PetscBool s
55: PetscErrorCode ierr
56: End Subroutine
57: Subroutine PetscOptionsGetScalar(o,p,n,v,s,ierr)
58: use petscsysdef
59: PetscOptions o
60: PetscScalar v
61: character(*) p,n
62: PetscBool s
63: PetscErrorCode ierr
64: End Subroutine
65: Subroutine PetscOptionsGetBool(o,p,n,v,s,ierr)
66: use petscsysdef
67: PetscOptions o
68: PetscBool v
69: character(*) p,n
70: PetscBool s
71: PetscErrorCode ierr
72: End Subroutine
73: Subroutine PetscOptionsGetString(o,p,n,v,s,ierr)
74: use petscsysdef
75: PetscOptions o
76: character(*) v
77: character(*) p,n
78: PetscBool s
79: PetscErrorCode ierr
80: End Subroutine
81: Subroutine PetscOptionsHasName(o,p,n,s,ierr)
82: use petscsysdef
83: PetscOptions o
84: character(*) p,n
85: PetscBool s
86: PetscErrorCode ierr
87: End Subroutine
88: Subroutine PetscOptionsGetIntArray(o,p,n,v,c,s,ierr)
89: use petscsysdef
90: PetscOptions o
91: PetscInt v(*),c
92: character(*) p,n
93: PetscBool s
94: PetscErrorCode ierr
95: End Subroutine
96: Subroutine PetscOptionsGetScalarArray(o,p,n,v,c,s,ierr)
97: use petscsysdef
98: PetscOptions o
99: PetscScalar v(*)
100: PetscInt c
101: character(*) p,n
102: PetscBool s
103: PetscErrorCode ierr
104: End Subroutine
105: Subroutine PetscOptionsGetRealArray(o,p,n,v,c,s,ierr)
106: use petscsysdef
107: PetscOptions o
108: PetscReal v(*)
109: PetscInt c
110: character(*) p,n
111: PetscBool s
112: PetscErrorCode ierr
113: End Subroutine
114: Subroutine PetscOptionsSetValue(o,n,v,ierr)
115: use petscsysdef
116: PetscOptions o
117: character(*) n,v
118: PetscErrorCode ierr
119: End Subroutine
120: Subroutine PetscOptionsClearValue(o,n,ierr)
121: use petscsysdef
122: PetscOptions o
123: character(*) n
124: PetscErrorCode ierr
125: End Subroutine
126: Subroutine PetscOptionsClear(o,ierr)
127: use petscsysdef
128: PetscOptions o
129: PetscErrorCode ierr
130: End Subroutine
131: Subroutine PetscOptionsInsertString(o,n,ierr)
132: use petscsysdef
133: PetscOptions o
134: character(*) n
135: PetscErrorCode ierr
136: End Subroutine
137: Subroutine PetscOptionsView(o,v,ierr)
138: use petscsysdef
139: PetscOptions, intent(in) :: o
140: PetscViewer, intent(in) :: v
141: PetscErrorCode, intent(out) :: ierr
142: End Subroutine PetscOptionsView
144: subroutine PetscRandomSetType(a,b,z)
145: use petscsysdef
146: PetscRandom a
147: character(*) b
148: integer z
149: end subroutine
151: subroutine PetscErrorf(ierr)
152: use petscsysdef
153: PetscErrorCode, intent(in) :: ierr
154: end Subroutine PetscErrorf
156: subroutine PetscInitialize(c,ierr)
157: use petscsysdef
158: character(len=*), intent(in) :: c
159: PetscErrorCode, intent(out) :: ierr
160: end Subroutine PetscInitialize
161:
162: subroutine PetscFinalize(ierr)
163: use petscsysdef
164: PetscErrorCode, intent(out) :: ierr
165: end Subroutine PetscFinalize
167: subroutine PetscRandomView(a,b,z)
168: use petscsysdef
169: PetscRandom a
170: PetscViewer b
171: integer z
172: end subroutine
174: subroutine MPIU_abort(comm,ierr)
175: integer,intent(in) :: comm,ierr
176: end subroutine
178: subroutine PetscLogEventRegister(name,classid,event,ierr)
179: use petscsysdef
180: character(len=*), intent(in) :: name
181: PetscLogEvent, intent(in) :: classid
182: integer, intent(in) :: event
183: integer, intent(out) :: ierr
184: end subroutine PetscLogEventRegister
186: subroutine PetscLogStageRegister(name,stage,ierr)
187: use petscsysdef
188: character(len=*), intent(in) :: name
189: PetscLogStage, intent(out) :: stage
190: integer, intent(out) :: ierr
191: end subroutine PetscLogStageRegister
193: subroutine PetscLogEventBegin(event,ierr)
194: integer, intent(in) :: event
195: integer, intent(out) :: ierr
196: end subroutine PetscLogEventBegin
198: subroutine PetscLogEventEnd(event,ierr)
199: integer, intent(in) :: event
200: integer, intent(out) :: ierr
201: end subroutine PetscLogEventEnd
203: subroutine PetscLogStagePop(ierr)
204: integer, intent(out) :: ierr
205: end subroutine PetscLogStagePop
207: subroutine PetscLogStagePush(s,ierr)
208: use petscsysdef
209: PetscLogStage, intent(in) :: s
210: integer, intent(out) :: ierr
211: end subroutine PetscLogStagePush
212: end Interface
214: #if defined(PETSC_USE_LOG)
215: Interface
216: function PetscASend(c, d) bind(c,name='PetscASend') result(i)
217: use iso_c_binding
218: implicit none
219: integer(c_int), value :: c
220: integer(c_int), value :: d
221: integer(c_int) :: i
222: end function PetscASend
224: function PetscARecv(c, d) bind(c,name='PetscARecv') result(i)
225: use iso_c_binding
226: implicit none
227: integer(c_int), value :: c
228: integer(c_int), value :: d
229: integer(c_int) :: i
230: end function PetscARecv
232: function PetscAReduce() bind(c,name='PetscAReduce') result(i)
233: use iso_c_binding
234: implicit none
235: integer(c_int) :: i
236: end function PetscAReduce
237: end Interface
238: #endif