MED fichier: Fichier source de medsupport.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medsupport.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 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 fid, cret, atype, sdim, mdim
27 integer msmfcre
28 c
29 cret = msmfcre(fid, maa, len(maa), sdim, mdim,
30 & des, len(des), atype, aname, 16*sdim,
31 & aunit, 16*sdim)
32 c
33 return
34 end
35 c
36 c
37 c
38 subroutine msmnsm( fid , n , cret)
39 c DEC$ ATTRIBUTES DLLEXPORT :: msmnsm
40 c
41 implicit none
42 save
43 c
44 integer fid, n, cret
45 integer msmfnsm
46 c
47 n = msmfnsm(fid)
48
49 if (n.lt.0) then
50 cret = -1
51 else
52 cret = 0
53 endif
54 c
55 return
56 end
57 c
58 c
59 c
60 subroutine msmsni(fid, name, sdim, mdim, desc,
61 & atype, aname, aunit, cret)
62 c DEC$ ATTRIBUTES DLLEXPORT :: msmsni
63 c
64 implicit none
65 save
66 c
67 character *(*) name, desc, aname, aunit
68 integer fid, sdim, mdim, atype, cret
69 integer msmfsni
70 c
71 cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
72 & atype, aname, aunit)
73 c
74 return
75 end
76 c
77 c
78 c
79 subroutine msmsmi(fid, it, name, sdim, mdim, desc,
80 & atype, aname, aunit, cret)
81 c DEC$ ATTRIBUTES DLLEXPORT :: msmsmi
82 c
83 implicit none
84 save
85 c
86 character *(*) name, desc, aname, aunit
87 integer fid, sdim, mdim, atype, it, cret
88 integer msmfsmi
89 c
90 cret = msmfsmi(fid, it, name, sdim, mdim, desc,
91 & atype, aname, aunit)
92 c
93 return
94 end
95 c
96 c
97 c
98 subroutine msmnax( fid , it, naxis, cret)
99 c DEC$ ATTRIBUTES DLLEXPORT :: msmnax
100 c
101 implicit none
102 save
103 c
104 integer fid,it,naxis,cret
105 integer msmfnax
106 c
107 naxis = msmfnax(fid,it)
108 c
109 if (naxis.lt.0) then
110 cret = -1
111 else
112 cret = 0
113 endif
114 return
115 end
116 c
117 c
118 c
119 subroutine msmnan( fid , name, naxis, cret)
120 c DEC$ ATTRIBUTES DLLEXPORT :: msmnan
121 c
122 implicit none
123 save
124 c
125 integer fid,naxis,cret
126 character *(*) name
127 integer msmfnan
128 c
129 naxis = msmfnan(fid,name,len(name))
130 c
131 if (naxis.lt.0) then
132 cret = -1
133 else
134 cret = 0
135 endif
136 return
137 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:120
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
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:81
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:62
msmnsm
subroutine msmnsm(fid, n, cret)
Cette routine permet de lire le nombre de maillages support dans un fichier.
Definition: medsupport.f:39
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:99