MED fichier
medjoint.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 msdjcr(fid,lmname,jname,des,dom,
19  & rmname,cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: MSDJCR
21 c
22  implicit none
23  save
24 c
25  character*(*) jname
26  character*(*) lmname
27  character*(*) des
28  character*(*) rmname
29  integer*8 fid
30  integer dom, cret
31  integer msdfjcr
32 c
33  print *,lmname
34  print *,jname
35  print *,des
36  print *,dom
37  print *,rmname
38  cret = msdfjcr(fid,lmname,len(lmname),
39  & jname,len(jname),
40  & des, len(des),
41  & dom, rmname, len(rmname))
42 c
43  return
44  end
45 c
46 c
47 c
48  subroutine msdcrw(fid,lmname,jname,numdt,numit,
49  & entlcl,geolcl,entdst,geodst,
50  & n,corrtab,cret)
51 c DEC$ ATTRIBUTES DLLEXPORT :: msdcrw
52 c
53  implicit none
54  save
55 c
56  character *(*) lmname, jname
57  integer*8 fid
58  integer n, cret, corrtab(*)
59  integer entlcl, entdst, geolcl, geodst, numdt,numit
60  integer msdfcrw
61 c
62  cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
63  & numdt, numit, entlcl, geolcl, entdst, geodst,
64  & n,corrtab)
65 c
66  return
67  end
68 c
69 c
70 c
71  subroutine msdnjn(fid,maa,n,cret)
72 c DEC$ ATTRIBUTES DLLEXPORT :: msdnjn
73 c
74  implicit none
75  save
76 c
77  character *(*) maa
78  integer*8 fid
79  integer n, cret
80  integer msdfnjn
81 c
82  n = msdfnjn(fid,maa,len(maa))
83 c
84  if (n.lt.0) then
85  cret = -1
86  else
87  cret = 0
88  endif
89 c
90  return
91  end
92 c
93 c
94 c
95  subroutine msdjni(fid,lmname,ind,jname,des,dom,
96  & rmname,nstep,ncor,cret)
97 c DEC$ ATTRIBUTES DLLEXPORT :: msdjni
98 c
99  implicit none
100  save
101 c
102  character *(*) lmname,jname,des,rmname
103  integer*8 fid
104  integer ind,dom,cret,nstep,ncor
105  integer msdfjni
106 c
107  cret = msdfjni(fid,lmname,len(lmname),ind,
108  & jname,des,dom,rmname,nstep,ncor)
109 c
110  return
111  end
112 c
113 c
114 c
115  subroutine msdszi(fid,mname,jname,
116  & numdt,numit,
117  & it,letype,lgtype,
118  & retype,rgtype,
119  & ncor,cret)
120 c DEC$ ATTRIBUTES DLLEXPORT :: msdszi
121 c
122  implicit none
123  save
124 c
125  character*(*) mname,jname
126  integer*8 fid
127  integer cret,numdt,numit
128  integer it,letype,lgtype,retype,rgtype,ncor
129  integer msdfszi
130 c
131  cret = msdfszi(fid,mname,len(mname),
132  & jname,len(jname),
133  & numdt,numit,it,
134  & letype,lgtype,
135  & retype,rgtype,ncor)
136 c
137  return
138  end
139 c
140 c
141 c
142  subroutine msdcsz(fid,mname,jname,
143  & numdt,numit,
144  & letype,lgtype,
145  & retype,rgtype,
146  & ncor,cret)
147 c DEC$ ATTRIBUTES DLLEXPORT :: msdcsz
148 c
149  implicit none
150  save
151 c
152  character*(*) mname,jname
153  integer*8 fid
154  integer cret,numdt,numit
155  integer letype,lgtype,retype,rgtype,ncor
156  integer msdfcsz
157 c
158  cret = msdfcsz(fid,mname,len(mname),
159  & jname,len(jname),
160  & numdt,numit,
161  & letype,lgtype,
162  & retype,rgtype,
163  & ncor)
164 c
165  return
166  end
167 c
168 c
169 c
170  subroutine msdcrr(fid,lmname,jname,numdt,numit,
171  & entlcl,geolcl,entdst,geodst,
172  & corrtab,cret)
173 c DEC$ ATTRIBUTES DLLEXPORT :: msdcrr
174 c
175  implicit none
176  save
177 c
178  character *(*) lmname, jname
179  integer*8 fid
180  integer cret, corrtab(*)
181  integer entlcl, entdst, geolcl, geodst, numdt,numit
182  integer msdfcrr
183 c
184  cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
185  & numdt, numit, entlcl, geolcl, entdst, geodst,
186  & corrtab)
187 c
188  return
189  end
190 c
191 c
192 c
193  subroutine msdcsi(fid,mname,jname,ind,
194  & numdt,numit,ncor,cret)
195 c DEC$ ATTRIBUTES DLLEXPORT :: msdcsi
196 c
197  implicit none
198  save
199 c
200  character *(*) mname,jname
201  integer*8 fid
202  integer ind,ncor,numdt,numit,cret
203  integer msdfcsi
204 c
205  cret = msdfcsi(fid,mname,len(mname),
206  & jname,len(jname),ind,
207  & numdt,numit,ncor)
208 c
209  return
210  end
subroutine msdcsi(fid, mname, jname, ind, numdt, numit, ncor, cret)
Definition: medjoint.f:195
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Definition: medjoint.f:20
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
Definition: medjoint.f:51
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
Definition: medjoint.f:120
subroutine msdnjn(fid, maa, n, cret)
Definition: medjoint.f:72
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
Definition: medjoint.f:97
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
Definition: medjoint.f:147
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
Definition: medjoint.f:173