MED fichier
medsupport.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C
17 
18  subroutine msmcre(fid , maa , sdim , mdim , des,
19  & atype, aname, aunit, cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: msmcre
21 c
22  implicit none
23  save
24 c
25  character *(*) maa, des, aname, aunit
26  integer*8 fid
27  integer cret, atype, sdim, mdim
28  integer msmfcre
29 c
30  cret = msmfcre(fid, maa, len(maa), sdim, mdim,
31  & des, len(des), atype, aname, 16*sdim,
32  & aunit, 16*sdim)
33 c
34  return
35  end
36 c
37 c
38 c
39  subroutine msmnsm( fid , n , cret)
40 c DEC$ ATTRIBUTES DLLEXPORT :: msmnsm
41 c
42  implicit none
43  save
44 c
45  integer*8 fid
46  integer n, cret
47  integer msmfnsm
48 c
49  n = msmfnsm(fid)
50 
51  if (n.lt.0) then
52  cret = -1
53  else
54  cret = 0
55  endif
56 c
57  return
58  end
59 c
60 c
61 c
62  subroutine msmsni(fid, name, sdim, mdim, desc,
63  & atype, aname, aunit, cret)
64 c DEC$ ATTRIBUTES DLLEXPORT :: msmsni
65 c
66  implicit none
67  save
68 c
69  character *(*) name, desc, aname, aunit
70  integer*8 fid
71  integer sdim, mdim, atype, cret
72  integer msmfsni
73 c
74  cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
75  & atype, aname, aunit)
76 c
77  return
78  end
79 c
80 c
81 c
82  subroutine msmsmi(fid, it, name, sdim, mdim, desc,
83  & atype, aname, aunit, cret)
84 c DEC$ ATTRIBUTES DLLEXPORT :: msmsmi
85 c
86  implicit none
87  save
88 c
89  character *(*) name, desc, aname, aunit
90  integer*8 fid
91  integer sdim, mdim, atype, it, cret
92  integer msmfsmi
93 c
94  cret = msmfsmi(fid, it, name, sdim, mdim, desc,
95  & atype, aname, aunit)
96 c
97  return
98  end
99 c
100 c
101 c
102  subroutine msmnax( fid , it, naxis, cret)
103 c DEC$ ATTRIBUTES DLLEXPORT :: msmnax
104 c
105  implicit none
106  save
107 c
108  integer*8 fid
109  integer it,naxis,cret
110  integer msmfnax
111 c
112  naxis = msmfnax(fid,it)
113 c
114  if (naxis.lt.0) then
115  cret = -1
116  else
117  cret = 0
118  endif
119  return
120  end
121 c
122 c
123 c
124  subroutine msmnan( fid , name, naxis, cret)
125 c DEC$ ATTRIBUTES DLLEXPORT :: msmnan
126 c
127  implicit none
128  save
129 c
130  integer*8 fid
131  integer naxis,cret
132  character *(*) name
133  integer msmfnan
134 c
135  naxis = msmfnan(fid,name,len(name))
136 c
137  if (naxis.lt.0) then
138  cret = -1
139  else
140  cret = 0
141  endif
142  return
143  end
msmnan
subroutine msmnan(fid, name, naxis, cret)
Cette routine permet de lire dans un maillage support le nombre d'axes du repère des coordonnées des ...
Definition: medsupport.f:125
msmsni
subroutine msmsni(fid, name, sdim, mdim, desc, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage support en précisant son nom.
Definition: medsupport.f:64
msmnsm
subroutine msmnsm(fid, n, cret)
Cette routine permet de lire le nombre de maillages support dans un fichier.
Definition: medsupport.f:40
msmsmi
subroutine msmsmi(fid, it, name, sdim, mdim, desc, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage support dans un fichier.
Definition: medsupport.f:84
msmnax
subroutine msmnax(fid, it, naxis, cret)
Cette routine permet de lire dans un maillage support le nombre d'axes du repère des coordonnées des ...
Definition: medsupport.f:103
msmcre
subroutine msmcre(fid, maa, sdim, mdim, des, atype, aname, aunit, cret)
Cette routine permet de créer un maillage support.
Definition: medsupport.f:20