The TELEMAC-MASCARET system  trunk
interface_hermes.f
Go to the documentation of this file.
1 ! ***********************
2  MODULE interface_hermes
3 ! ***********************
4 !
5 !
6 !***********************************************************************
7 ! HERMES VERSION 7.0 26/12/2013
8 !***********************************************************************
9 !
10 !brief INTERFACES OF HERMES PUBLIC SUBROUTINES
11 !+
12 !
13 !history Y. AUDOUIN (EDF R&D, LNHE)
14 !+ 24/03/2014
15 !+ V7P0
16 !+ Creation of the file.
17 !
18 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !
21  INTERFACE
22 !
23 !-----------------------------------------------------------------------
24 !
25 ! DEFINITION OF INTERFACES
26 !
27  SUBROUTINE open_mesh(FFORMAT,FILE_NAME,FILE_ID,OPENMODE,IERR,
28  & MESH_NUMBER)
29  CHARACTER(LEN=8), INTENT(INOUT) :: FFORMAT
30  CHARACTER(LEN=*), INTENT(IN) :: FILE_NAME
31  INTEGER, INTENT(OUT) :: FILE_ID
32  CHARACTER(LEN=9), INTENT(IN) :: OPENMODE
33  INTEGER, INTENT(OUT) :: IERR
34  INTEGER, OPTIONAL, INTENT(IN) :: MESH_NUMBER
35  END SUBROUTINE
36 !
37  SUBROUTINE close_mesh(FFORMAT,FID,IERR,MESH_NUMBER)
38  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
39  INTEGER, INTENT(IN) :: FID
40  INTEGER, INTENT(OUT) :: IERR
41  INTEGER, OPTIONAL, INTENT(IN) :: MESH_NUMBER
42  END SUBROUTINE
43 !
44  SUBROUTINE open_bnd(FFORMAT,FNAME,FID,OPENMODE,IERR,MESH_NUMBER)
45  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
46  INTEGER, INTENT(IN) :: FID
47  CHARACTER(LEN=*), INTENT(IN) :: FNAME
48  CHARACTER(LEN=9), INTENT(IN) :: OPENMODE
49  INTEGER, INTENT(OUT) :: IERR
50  INTEGER, OPTIONAL, INTENT(IN) :: MESH_NUMBER
51  END SUBROUTINE
52 !
53  SUBROUTINE close_bnd(FFORMAT,FID,IERR,MESH_NUMBER)
54  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
55  INTEGER, INTENT(IN) :: FID
56  INTEGER, INTENT(OUT) :: IERR
57  INTEGER, OPTIONAL, INTENT(IN) :: MESH_NUMBER
58  END SUBROUTINE
59 !
60 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
61 ! Reading section
62 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
63 !
64 ! --Mesh
65 !
66  SUBROUTINE get_mesh_title(FFORMAT,FID,TITLE,IERR)
67  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
68  INTEGER, INTENT(IN) :: FID
69  CHARACTER(LEN=80), INTENT(OUT) :: TITLE
70  INTEGER, INTENT(OUT) :: IERR
71  END SUBROUTINE
72  SUBROUTINE get_mesh_date(FFORMAT,FID,DATE,IERR)
73  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
74  INTEGER, INTENT(IN) :: FID
75  INTEGER, INTENT(INOUT) :: DATE(6)
76  INTEGER, INTENT(OUT) :: IERR
77  END SUBROUTINE
78 
79  SUBROUTINE get_mesh_nelem(FFORMAT,FID,TYP_ELEM,NELEM,IERR)
80  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
81  INTEGER, INTENT(IN) :: FID
82  INTEGER, INTENT(IN) :: TYP_ELEM
83  INTEGER, INTENT(OUT) :: NELEM
84  INTEGER, INTENT(OUT) :: IERR
85  END SUBROUTINE
86  SUBROUTINE get_mesh_npoin_per_element(FFORMAT,FID,TYP_ELEM,
87  & NDP,IERR)
88  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
89  INTEGER, INTENT(IN) :: FID
90  INTEGER, INTENT(IN) :: TYP_ELEM
91  INTEGER, INTENT(OUT) :: NDP
92  INTEGER, INTENT(OUT) :: IERR
93  END SUBROUTINE
94  SUBROUTINE get_mesh_connectivity(FFORMAT,FID,TYP_ELEM,IKLE,
95  & NELEM,NDP,IERR)
96  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
97  INTEGER, INTENT(IN) :: FID
98  INTEGER, INTENT(IN) :: TYP_ELEM
99  INTEGER, INTENT(IN) :: NELEM
100  INTEGER, INTENT(IN) :: NDP
101  INTEGER, INTENT(INOUT) :: IKLE(nelem*ndp)
102  INTEGER, INTENT(OUT) :: IERR
103  END SUBROUTINE
104 
105  SUBROUTINE get_mesh_npoin(FFORMAT,FID,TYP_ELEM,NPOIN,IERR)
106  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
107  INTEGER, INTENT(IN) :: FID
108  INTEGER, INTENT(IN) :: TYP_ELEM
109  INTEGER, INTENT(OUT) :: NPOIN
110  INTEGER, INTENT(OUT) :: IERR
111  END SUBROUTINE
112  SUBROUTINE get_mesh_nplan(FFORMAT,FID,NPLAN,IERR)
113  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
114  INTEGER, INTENT(IN) :: FID
115  INTEGER, INTENT(OUT) :: NPLAN
116  INTEGER, INTENT(OUT) :: IERR
117  END SUBROUTINE
118  SUBROUTINE get_mesh_dimension(FFORMAT,FID,NDIM,IERR)
119  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
120  INTEGER, INTENT(IN) :: FID
121  INTEGER, INTENT(OUT) :: NDIM
122  INTEGER, INTENT(OUT) :: IERR
123  END SUBROUTINE
124  SUBROUTINE get_mesh_orig(FFORMAT,FID,X_ORIG,Y_ORIG,IERR)
125  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
126  INTEGER, INTENT(IN) :: FID
127  INTEGER, INTENT(INOUT) :: X_ORIG, Y_ORIG
128  INTEGER, INTENT(OUT) :: IERR
129  END SUBROUTINE
130  SUBROUTINE get_mesh_coord(FFORMAT,FID,JDIM,NDIM,NPOIN,COORD,IERR)
131  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
132  INTEGER, INTENT(IN) :: FID,JDIM,NDIM,NPOIN
133  DOUBLE PRECISION, INTENT(INOUT) :: COORD(npoin)
134  INTEGER, INTENT(OUT) :: IERR
135  END SUBROUTINE
136 !
137  SUBROUTINE get_mesh_l2g_numbering(FFORMAT,FID,KNOLG,NPOIN,IERR)
138  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
139  INTEGER, INTENT(IN) :: FID
140  INTEGER, INTENT(IN) :: NPOIN
141  INTEGER, INTENT(INOUT) :: KNOLG(npoin)
142  INTEGER, INTENT(OUT) :: IERR
143  END SUBROUTINE
144  SUBROUTINE get_mesh_nptir(FFORMAT,FID,NPTIR,IERR)
145  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
146  INTEGER, INTENT(IN) :: FID
147  INTEGER, INTENT(OUT) :: NPTIR
148  INTEGER, INTENT(OUT) :: IERR
149  END SUBROUTINE
150 !
151 ! --Boundary conditions
152 !
153  SUBROUTINE get_bnd_ipobo(FFORMAT,FID,NPOIN,NELEBD,TYP_ELEM_BND,
154  & IPOBO,IERR)
155  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
156  INTEGER, INTENT(IN) :: FID,NPOIN,NELEBD,TYP_ELEM_BND
157  INTEGER, INTENT(INOUT) :: IPOBO(npoin)
158  INTEGER, INTENT(OUT) :: IERR
159  END SUBROUTINE
160 !
161  SUBROUTINE get_bnd_numbering(FFORMAT,FID,TYP_ELEM_BND,NPTFR,
162  & NBOR,IERR)
163  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
164  INTEGER, INTENT(IN) :: FID,NPTFR,TYP_ELEM_BND
165  INTEGER, INTENT(INOUT) :: NBOR(nptfr)
166  INTEGER, INTENT(OUT) :: IERR
167  END SUBROUTINE
168 !
169  SUBROUTINE get_bnd_connectivity(FFORMAT,FID,TYP_BND_ELEM,NELEBD,
170  & NDP,IKLE_BND,IERR)
171  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
172  INTEGER, INTENT(IN) :: FID,TYP_BND_ELEM,NELEBD,NDP
173  INTEGER, INTENT(INOUT) :: IKLE_BND(ndp*nelebd)
174  INTEGER, INTENT(OUT) :: IERR
175  END SUBROUTINE
176 !
177  SUBROUTINE get_bnd_npoin(FFORMAT,FID,TYPE_BND_ELEM,NPTFR,IERR)
178  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
179  INTEGER, INTENT(IN) :: FID
180  INTEGER, INTENT(IN) :: TYPE_BND_ELEM
181  INTEGER, INTENT(OUT) :: NPTFR
182  INTEGER, INTENT(OUT) :: IERR
183  END SUBROUTINE
184 !
185  SUBROUTINE get_bnd_nelem(FFORMAT,FID,TYPE_BND_ELEM,NELEM,IERR)
186  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
187  INTEGER, INTENT(IN) :: FID
188  INTEGER, INTENT(IN) :: TYPE_BND_ELEM
189  INTEGER, INTENT(OUT) :: NELEM
190  INTEGER, INTENT(OUT) :: IERR
191  END SUBROUTINE
192 !
193  SUBROUTINE get_bnd_value
194  &(fformat,fid,typ_bnd_elem,nelebd,lihbor,liubor,
195  & livbor,hbor,ubor,vbor,chbord,trac,
196  & litbor,tbor,atbor,btbor,nptfr,ierr)
197  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
198  INTEGER, INTENT(IN) :: FID
199  INTEGER, INTENT(IN) :: TYP_BND_ELEM
200  INTEGER, INTENT(IN) :: NELEBD
201  INTEGER, INTENT(IN) :: NPTFR
202  INTEGER, INTENT(INOUT) :: LIUBOR(nptfr),LIVBOR(nptfr)
203  INTEGER, INTENT(INOUT) :: LIHBOR(nptfr),LITBOR(*)
204  DOUBLE PRECISION, INTENT(INOUT) :: UBOR(*),VBOR(*)
205  DOUBLE PRECISION, INTENT(INOUT) :: HBOR(nptfr),CHBORD(nptfr)
206  DOUBLE PRECISION, INTENT(INOUT) :: TBOR(*),ATBOR(*)
207  DOUBLE PRECISION, INTENT(INOUT) :: BTBOR(*)
208  LOGICAL, INTENT(IN) :: TRAC
209  INTEGER, INTENT(OUT) :: IERR
210  END SUBROUTINE
211 !
212 ! --Data
213 !
214  SUBROUTINE get_data_nvar(FFORMAT,FID,NVAR,IERR)
215  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
216  INTEGER, INTENT(IN) :: FID
217  INTEGER, INTENT(OUT) :: NVAR
218  INTEGER, INTENT(OUT) :: IERR
219  END SUBROUTINE
220  SUBROUTINE get_data_var_list(FFORMAT,FID,NVAR,VARLIST,UNITLIST,
221  & IERR)
222  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
223  INTEGER, INTENT(IN) :: FID
224  INTEGER, INTENT(IN) :: NVAR
225  CHARACTER(LEN=16), INTENT(INOUT) :: VARLIST(nvar)
226  CHARACTER(LEN=16), INTENT(INOUT) :: UNITLIST(nvar)
227  INTEGER, INTENT(OUT) :: IERR
228  END SUBROUTINE
229  SUBROUTINE get_data_ntimestep(FFORMAT,FID,NTIMESTEP,IERR)
230  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
231  INTEGER, INTENT(IN) :: FID
232  INTEGER, INTENT(OUT) :: NTIMESTEP
233  INTEGER, INTENT(INOUT) :: IERR
234  END SUBROUTINE
235  SUBROUTINE get_data_time(FFORMAT,FID,RECORD,TIME,IERR)
236  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
237  INTEGER, INTENT(IN) :: FID
238  INTEGER, INTENT(IN) :: RECORD
239  DOUBLE PRECISION, INTENT(OUT) :: TIME
240  INTEGER, INTENT(OUT) :: IERR
241  END SUBROUTINE
242  SUBROUTINE get_data_timestep(FFORMAT,FID,RECORD,TIME,IERR)
243  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
244  INTEGER, INTENT(IN) :: FID
245  INTEGER, INTENT(OUT) :: RECORD
246  DOUBLE PRECISION, INTENT(IN) :: TIME
247  INTEGER, INTENT(OUT) :: IERR
248  END SUBROUTINE
249  SUBROUTINE get_data_value(FFORMAT,FID,RECORD,VAR_NAME,
250  & RES_VALUE,N,IERR)
251  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
252  INTEGER, INTENT(IN) :: FID
253  INTEGER, INTENT(IN) :: RECORD
254  CHARACTER(LEN=16), INTENT(IN) :: VAR_NAME
255  INTEGER, INTENT(IN) :: N
256  DOUBLE PRECISION, INTENT(INOUT) :: RES_VALUE(n)
257  INTEGER, INTENT(OUT) :: IERR
258  END SUBROUTINE
259 !
260  SUBROUTINE lit
261  &( x , w , i , c , nval , TYPE , canal , std2 , istat )
262  INTEGER, INTENT(IN) :: NVAL,CANAL
263  INTEGER, INTENT(INOUT) :: ISTAT
264  CHARACTER(LEN=*), INTENT(IN) :: TYPE,STD2
265  INTEGER, INTENT(INOUT) :: I(*)
266  DOUBLE PRECISION, INTENT(INOUT) :: X(*)
267  REAL, INTENT(INOUT) :: W(*)
268  CHARACTER(LEN=*), INTENT(INOUT) :: C
269  END SUBROUTINE
270 !
271 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
272 ! Writing section
273 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
274 !
275 !
276  SUBROUTINE set_header
277  &(fformat,file_id,title,nvar,var_name,ierr)
278  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
279  INTEGER, INTENT(IN) :: FILE_ID
280  CHARACTER(LEN=80), INTENT(IN) :: TITLE
281  INTEGER, INTENT(IN) :: NVAR
282  CHARACTER(LEN=32), INTENT(IN) :: VAR_NAME(nvar)
283  INTEGER, INTENT(OUT) :: IERR
284  END SUBROUTINE
285 !
286  SUBROUTINE set_mesh(FFORMAT,FILE_ID,MESH_DIM,TYPELM,NDP,NPTFR,
287  & NPTIR,NELEM,NPOIN,IKLES,IPOBO,
288  & KNOLG,X,Y,NPLAN,DATE,TIME,X_ORIG,Y_ORIG,
289  & IERR,Z,IN_PLACE)
290  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
291  INTEGER, INTENT(IN) :: FILE_ID,NPLAN
292  INTEGER, INTENT(IN) :: DATE(3)
293  INTEGER, INTENT(IN) :: TIME(3)
294  INTEGER, INTENT(IN) :: MESH_DIM
295  INTEGER, INTENT(IN) :: TYPELM
296  INTEGER, INTENT(IN) :: NDP
297  INTEGER, INTENT(IN) :: NPTFR
298  INTEGER, INTENT(IN) :: NPTIR
299  INTEGER, INTENT(IN) :: NELEM
300  INTEGER, INTENT(IN) :: NPOIN
301  INTEGER, INTENT(IN) :: X_ORIG
302  INTEGER, INTENT(IN) :: Y_ORIG
303  INTEGER, INTENT(IN) :: IKLES(nelem*ndp)
304  INTEGER, INTENT(IN) :: IPOBO(*)
305  INTEGER, INTENT(IN) :: KNOLG(*)
306  DOUBLE PRECISION, INTENT(IN) :: X(npoin),Y(npoin)
307  INTEGER, INTENT(OUT) :: IERR
308  DOUBLE PRECISION, INTENT(IN), OPTIONAL :: Z(*)
309  LOGICAL, INTENT(IN), OPTIONAL :: IN_PLACE
310  END SUBROUTINE
311 !
312  SUBROUTINE add_data(FFORMAT,FILE_ID,VAR_NAME,TIME,RECORD,
313  & FIRST_VAR,VAR_VALUE,N,IERR)
314  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
315  INTEGER, INTENT(IN) :: FILE_ID,N
316  CHARACTER(LEN=32), INTENT(IN) :: VAR_NAME
317  DOUBLE PRECISION, INTENT(IN) :: TIME
318  INTEGER, INTENT(IN) :: RECORD
319  LOGICAL, INTENT(IN) :: FIRST_VAR
320  DOUBLE PRECISION, INTENT(IN) :: VAR_VALUE(n)
321  INTEGER, INTENT(OUT) :: IERR
322  END SUBROUTINE
323 !
324  SUBROUTINE update_data_mesh(FFORMAT,FILE_ID,TIME,RECORD,
325  & NB_DIM_MESH,NPOIN,COORD,IERR)
326  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
327  INTEGER, INTENT(IN) :: FILE_ID
328  DOUBLE PRECISION, INTENT(IN) :: TIME
329  INTEGER, INTENT(IN) :: RECORD
330  INTEGER, INTENT(IN) :: NB_DIM_MESH, NPOIN
331  DOUBLE PRECISION, INTENT(IN) :: COORD(nb_dim_mesh*npoin)
332  INTEGER, INTENT(OUT) :: IERR
333  END SUBROUTINE
334 !
336  &(fformat,fid,fid2,type_elt,type_bnd_elt,ikle_bnd,nelebd,ndp,
337  & trans_elem,trans_point,ierr)
338  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
339  INTEGER, INTENT(IN) :: FID, FID2
340  INTEGER, INTENT(IN) :: NELEBD
341  INTEGER, INTENT(IN) :: NDP
342  INTEGER, INTENT(IN) :: IKLE_BND(*)
343  INTEGER, INTENT(IN) :: TYPE_ELT
344  INTEGER, INTENT(IN) :: TYPE_BND_ELT
345  LOGICAL, INTENT(IN) :: TRANS_ELEM
346  LOGICAL, INTENT(IN) :: TRANS_POINT
347  INTEGER, INTENT(OUT) :: IERR
348  END SUBROUTINE
349 !
351  &(fformat,source_id, dest_id,
352  & typ_bnd_elem, ikle_bnd_dest, nelebd_dest,
353  & ndp_dest, nelebd_src, knolg_bnd,
354  & trans_point, npoin_src, npoin_dest, knolg, ierr)
355  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
356  INTEGER, INTENT(IN) :: SOURCE_ID
357  INTEGER, INTENT(IN) :: DEST_ID
358  INTEGER, INTENT(IN) :: NELEBD_DEST
359  INTEGER, INTENT(IN) :: NDP_DEST
360  INTEGER, INTENT(IN) :: IKLE_BND_DEST(nelebd_dest*ndp_dest)
361  INTEGER, INTENT(IN) :: TYP_BND_ELEM
362  INTEGER, INTENT(IN) :: NELEBD_SRC
363  INTEGER, INTENT(IN) :: KNOLG_BND(nelebd_src)
364  LOGICAL, INTENT(IN) :: TRANS_POINT
365  INTEGER, INTENT(IN) :: NPOIN_SRC
366  INTEGER, INTENT(IN) :: NPOIN_DEST
367  INTEGER, INTENT(IN) :: KNOLG(npoin_dest)
368  INTEGER, INTENT(OUT) :: IERR
369  END SUBROUTINE
370 !
371  SUBROUTINE set_bnd
372  &(fformat,fid,type_bnd_elt,nelebd,ndp,ikle,nptfr,
373  & lihbor,liubor,livbor,hbor,ubor,vbor,chbord,
374  & litbor,tbor,atbor,btbor,color,ierr)
375  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
376  INTEGER, INTENT(IN) :: FID
377  INTEGER, INTENT(IN) :: TYPE_BND_ELT
378  INTEGER, INTENT(IN) :: NELEBD
379  INTEGER, INTENT(IN) :: NDP
380  INTEGER, INTENT(IN) :: IKLE(nelebd*ndp)
381  INTEGER, INTENT(IN) :: NPTFR
382  INTEGER, INTENT(IN) :: LIUBOR(nptfr),LIVBOR(nptfr)
383  INTEGER, INTENT(IN) :: LIHBOR(nptfr),LITBOR(nptfr)
384  DOUBLE PRECISION, INTENT(IN) :: UBOR(nptfr),VBOR(nptfr)
385  DOUBLE PRECISION, INTENT(IN) :: HBOR(nptfr),CHBORD(nptfr)
386  DOUBLE PRECISION, INTENT(IN) :: TBOR(nptfr),ATBOR(nptfr)
387  DOUBLE PRECISION, INTENT(IN) :: BTBOR(nptfr)
388  INTEGER, INTENT(IN) :: COLOR(nptfr)
389  INTEGER, INTENT(OUT) :: IERR
390  END SUBROUTINE
391 !
392  SUBROUTINE ecri2
393  &(x , i , c , nval , TYPE , canal , std , istat)
394  INTEGER, INTENT(IN) :: NVAL,CANAL
395  DOUBLE PRECISION, INTENT(IN) :: X(*)
396  INTEGER, INTENT(IN) :: I(*)
397  CHARACTER(LEN=*), INTENT(IN) :: TYPE,STD,C
398  INTEGER, INTENT(OUT) :: ISTAT
399  END SUBROUTINE
400 !
401  SUBROUTINE get_error_message(MESSAGE)
402  CHARACTER(LEN=200), INTENT(OUT) :: MESSAGE
403  END SUBROUTINE
404 !
405  END INTERFACE
406 
407 
408 !
409 !=======================================================================
410 !
411  END MODULE interface_hermes
subroutine get_mesh_nptir(FFORMAT, FID, NPTIR, IERR)
Definition: get_mesh_nptir.f:7
subroutine get_mesh_npoin(FFORMAT, FID, TYP_ELEM, NPOIN, IERR)
Definition: get_mesh_npoin.f:7
subroutine get_bnd_npoin(FFORMAT, FID, TYPE_BND_ELEM, NPTFR, IERR)
Definition: get_bnd_npoin.f:7
subroutine get_mesh_orig(FFORMAT, FID, X_ORIG, Y_ORIG, IERR)
Definition: get_mesh_orig.f:7
subroutine add_data(FFORMAT, FILE_ID, VAR_NAME, TIME, RECORD, FIRST_VAR, VAR_VALUE, N, IERR)
Definition: add_data.f:8
subroutine transfer_group_info(FFORMAT, FID, FID2, TYPE_ELT, TYPE_BND_ELT, IKLE_BND, NELEBD, NDP, TRANS_ELEM, TRANS_POINT, IERR)
subroutine close_mesh(FFORMAT, FILE_ID, IERR, MESH_NUMBER)
Definition: close_mesh.f:7
subroutine get_bnd_connectivity(FFORMAT, FID, TYP_BND_ELEM, NELEBD, NDP, IKLE_BND, IERR)
subroutine set_mesh(FFORMAT, FILE_ID, MESH_DIM, TYPELM, NDP, NPTFR, NPTIR, NELEM, NPOIN, IKLE, IPOBO, KNOLG, X, Y, NPLAN, DATE, TIME, X_ORIG, Y_ORIG, IERR, Z, IN_PLACE)
Definition: set_mesh.f:9
subroutine get_data_nvar(FFORMAT, FID, NVAR, IERR)
Definition: get_data_nvar.f:7
subroutine get_data_var_list(FFORMAT, FID, NVAR, VARLIST, UNITLIST, IERR)
subroutine ecri2(X, I, C, NVAL, TYPE, CANAL, STD, ISTAT)
Definition: ecri2.f:7
subroutine update_data_mesh(FFORMAT, FILE_ID, TIME, RECORD, NB_DIM_MESH, NPOIN, COORD, IERR)
subroutine get_bnd_ipobo(FFORMAT, FID, NPOIN, NELEBD, TYP_BND_ELEM, IPOBO, IERR)
Definition: get_bnd_ipobo.f:7
subroutine get_bnd_nelem(FFORMAT, FID, TYPE_BND_ELEM, NELEM, IERR)
Definition: get_bnd_nelem.f:7
subroutine close_bnd(FFORMAT, FILE_ID, IERR, MESH_NUMBER)
Definition: close_bnd.f:7
subroutine get_data_value(FFORMAT, FID, RECORD, VAR_NAME, RES_VALUE, N, IERR)
Definition: get_data_value.f:7
subroutine get_mesh_nelem(FFORMAT, FID, TYP_ELEM, NELEM, IERR)
Definition: get_mesh_nelem.f:7
subroutine get_mesh_npoin_per_element(FFORMAT, FID, TYP_ELEM, NDP, IERR)
subroutine get_error_message(MESSAGE)
subroutine transfer_group_part_info(FFORMAT, SOURCE_ID, DEST_ID, TYP_BND_ELEM, IKLE_BND_DEST, NELEBD_DEST, NDP_DEST, NELEBD_SRC, KNOLG_BND, TRANS_POINT, NPOIN_SRC, NPOIN_DEST, KNOLG, IERR)
subroutine get_data_timestep(FFORMAT, FID, RECORD, TIME, IERR)
subroutine get_mesh_dimension(FFORMAT, FID, NDIM, IERR)
subroutine lit(X, W, I, C, NVAL, TYPE, CANAL, STD2, ISTAT)
Definition: lit.F:7
subroutine get_mesh_title(FFORMAT, FID, TITLE, IERR)
Definition: get_mesh_title.f:7
subroutine get_bnd_numbering(FFORMAT, FID, TYP_BND_ELEM, NPTFR, NBOR, IERR)
subroutine get_mesh_date(FFORMAT, FID, DATE, IERR)
Definition: get_mesh_date.f:7
subroutine get_mesh_nplan(FFORMAT, FID, NPLAN, IERR)
Definition: get_mesh_nplan.f:7
subroutine set_header(FFORMAT, FILE_ID, TITLE, NVAR, VAR_NAME, IERR)
Definition: set_header.f:7
subroutine get_mesh_coord(FFORMAT, FID, JDIM, NDIM, NPOIN, COORD, IERR)
Definition: get_mesh_coord.f:7
subroutine set_bnd(FFORMAT, FID, TYPE_BND_ELT, NELEBD, NDP, IKLE, NPTFR, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, LITBOR, TBOR, ATBOR, BTBOR, COLOR, IERR)
Definition: set_bnd.f:9
subroutine get_bnd_value(FFORMAT, FID, TYP_BND_ELEM, NELEBD, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, TRAC, LITBOR, TBOR, ATBOR, BTBOR, NPTFR, IERR)
Definition: get_bnd_value.f:9
subroutine get_mesh_connectivity(FFORMAT, FID, TYP_ELEM, IKLE, NELEM, NDP, IERR)
subroutine open_mesh(FFORMAT, FILE_NAME, FILE_ID, OPENMODE, IERR, MESH_NUMBER)
Definition: open_mesh.f:7
subroutine open_bnd(FFORMAT, FILE_NAME, FILE_ID, OPENMODE, IERR, MESH_NUMBER)
Definition: open_bnd.f:7
subroutine get_data_time(FFORMAT, FID, RECORD, TIME, IERR)
Definition: get_data_time.f:7
subroutine get_mesh_l2g_numbering(FFORMAT, FID, KNOLG, NPOIN, IERR)
subroutine get_data_ntimestep(FFORMAT, FID, NTIMESTEP, IERR)