00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine msecre(fid,mname,mdim,smname,setype,
00019 & sgtype, etype, cret)
00020
00021 implicit none
00022 save
00023 character*(*) mname,smname
00024 integer fid,cret,mdim,setype,sgtype,etype
00025 integer msefcre
00026
00027 etype = msefcre(fid,mname,len(mname),mdim,
00028 & smname,len(smname),setype,sgtype)
00029
00030 if (etype.lt.0) then
00031 cret = -1
00032 else
00033 cret = 0
00034 endif
00035
00036 return
00037 end
00038
00039
00040
00041 subroutine msense(fid,n,cret)
00042
00043 implicit none
00044 save
00045 integer fid,n,cret
00046 integer msefnse
00047
00048 n = msefnse(fid)
00049
00050 if (n.lt.0) then
00051 cret = -1
00052 else
00053 cret = 0
00054 endif
00055
00056 return
00057 end
00058
00059
00060
00061 subroutine msesei(fid,it,mname,mgtype,mdim,smname,
00062 & setype,snnode,sncell,sgtype,
00063 & ncatt,ap,nvatt,cret)
00064
00065 implicit none
00066 save
00067 character*(*) mname,smname
00068 integer fid,cret,mdim,setype,sgtype,it
00069 integer snnode,sncell,ncatt,ap,nvatt,mgtype
00070 integer msefsei
00071
00072 cret = msefsei(fid,it,mname,mgtype,mdim,smname,
00073 & setype,snnode,sncell,sgtype,
00074 & ncatt,ap,nvatt)
00075
00076 return
00077 end
00078
00079
00080
00081 subroutine msesin(fid,mname,mgtype,mdim,smname,
00082 & setype,snnode,sncell,sgtype,
00083 & ncatt,ap,nvatt,cret)
00084
00085 implicit none
00086 save
00087 character*(*) mname,smname
00088 integer fid,cret,mdim,setype,sgtype
00089 integer snnode,sncell,ncatt,ap,nvatt,mgtype
00090 integer msefsin
00091
00092 cret = msefsin(fid,mname,len(mname),mgtype,
00093 & mdim,smname,setype,snnode,
00094 & sncell,sgtype,ncatt,ap,nvatt)
00095
00096 return
00097 end
00098
00099
00100
00101 subroutine msesen(fid,mgtype,mname,cret)
00102
00103 implicit none
00104 save
00105 character*(*) mname
00106 integer fid,cret,mgtype
00107 integer msefsen
00108
00109 cret = msefsen(fid,mgtype,mname)
00110
00111 return
00112 end
00113
00114
00115
00116 subroutine msesgt(fid,mname,gtype,cret)
00117
00118 implicit none
00119 save
00120 character*(*) mname
00121 integer fid,gtype,cret
00122 integer msefsgt
00123
00124 gtype = msefsgt(fid,mname,len(mname))
00125
00126 if (gtype.lt.0) then
00127 cret = -1
00128 else
00129 cret = 0
00130 endif
00131
00132 return
00133 end
00134
00135
00136
00137 subroutine msevac(fid,mname,aname,atype,anc,cret)
00138
00139 implicit none
00140 save
00141 character*(*) mname,aname
00142 integer fid,cret,atype,anc
00143 integer msefvac
00144
00145 cret = msefvac(fid,mname,len(mname),
00146 & aname,len(aname),atype,
00147 & anc)
00148
00149 return
00150 end
00151
00152
00153
00154 subroutine msevni(fid,mname,aname,atype,anc,cret)
00155
00156 implicit none
00157 save
00158 character*(*) mname,aname
00159 integer fid,cret,atype,anc
00160 integer msefvni
00161
00162 cret = msefvni(fid,mname,len(mname),
00163 & aname,len(aname),
00164 & atype,anc)
00165
00166 return
00167 end
00168
00169
00170
00171 subroutine msevai(fid,mname,it,aname,atype,anc,cret)
00172
00173 implicit none
00174 save
00175 character*(*) mname,aname
00176 integer fid,cret,atype,anc,it
00177 integer msefvai
00178
00179 cret = msefvai(fid,mname,len(mname),it,
00180 & aname,atype,anc)
00181
00182 return
00183 end
00184
00185
00186
00187 subroutine mseasz(atype,size,cret)
00188
00189 implicit none
00190 save
00191 integer size,atype,cret
00192 integer msefasz
00193
00194 size = msefasz(atype)
00195
00196 if (size.lt.0) then
00197 cret = -1
00198 else
00199 cret = 0
00200 endif
00201
00202 return
00203 end
00204
00205
00206
00207 subroutine mseraw(fid,mname,aname,atype,anc,
00208 & setype,val,cret)
00209
00210 implicit none
00211 save
00212 character*(*) mname,aname
00213 integer fid,cret,atype,anc,setype
00214 real*8 val(*)
00215 integer msefraw
00216
00217 cret = msefraw(fid,mname,len(mname),
00218 & aname,len(aname),atype,
00219 & anc,setype,val)
00220
00221 return
00222 end
00223
00224
00225
00226 subroutine mseiaw(fid,mname,aname,atype,anc,
00227 & setype,val,cret)
00228
00229 implicit none
00230 save
00231 character*(*) mname,aname
00232 integer fid,cret,atype,anc,setype
00233 integer val(*)
00234 integer msefiaw
00235
00236 cret = msefiaw(fid,mname,len(mname),
00237 & aname,len(aname),atype,
00238 & anc,setype,val)
00239
00240 return
00241 end
00242
00243
00244
00245 subroutine msesaw(fid,mname,aname,atype,anc,
00246 & setype,val,cret)
00247
00248 implicit none
00249 save
00250 character*(*) mname,aname
00251 integer fid,cret,atype,anc,setype
00252 character *(*) val
00253 integer msefsaw
00254
00255 cret = msefsaw(fid,mname,len(mname),
00256 & aname,len(aname),atype,
00257 & anc,setype,val,len(val))
00258
00259 return
00260 end
00261
00262
00263
00264 subroutine mserpw(fid,mname,aname,atype,anc,
00265 & setype,pname,val,cret)
00266
00267 implicit none
00268 save
00269 character*(*) mname,aname,pname
00270 integer fid,cret,atype,anc,setype
00271 real*8 val(*)
00272 integer msefrpw
00273
00274 cret = msefrpw(fid,mname,len(mname),
00275 & aname,len(aname),atype,
00276 & anc,setype,pname,len(pname),
00277 & val)
00278
00279 return
00280 end
00281
00282
00283
00284 subroutine mseipw(fid,mname,aname,atype,anc,
00285 & setype,pname,val,cret)
00286
00287 implicit none
00288 save
00289 character*(*) mname,aname,pname
00290 integer fid,cret,atype,anc,setype
00291 integer val(*)
00292 integer msefipw
00293
00294 cret = msefipw(fid,mname,len(mname),
00295 & aname,len(aname),atype,
00296 & anc,setype,pname,len(pname),
00297 & val)
00298
00299 return
00300 end
00301
00302
00303
00304 subroutine msespw(fid,mname,aname,atype,anc,
00305 & setype,pname,val,cret)
00306
00307 implicit none
00308 save
00309 character*(*) mname,aname,pname
00310 integer fid,cret,atype,anc,setype
00311 character *(*) val
00312 integer msefspw
00313
00314 cret = msefspw(fid,mname,len(mname),
00315 & aname,len(aname),atype,
00316 & anc,setype,pname,len(pname),
00317 & val,len(val))
00318
00319 return
00320 end
00321
00322
00323
00324 subroutine msecni(fid,mname,aname,atype,anc,
00325 & setype,pname,psize,cret)
00326
00327 implicit none
00328 save
00329 character*(*) mname,aname,pname
00330 integer fid,cret,atype,anc,setype,psize
00331 integer msefcni
00332
00333 cret = msefcni(fid,mname,len(mname),
00334 & aname,len(aname),atype,
00335 & anc,setype,pname,psize)
00336
00337 return
00338 end
00339
00340
00341
00342 subroutine msecai(fid,mname,it,aname,atype,anc,
00343 & setype,pname,psize,cret)
00344
00345 implicit none
00346 save
00347 character*(*) mname,aname,pname
00348 integer fid,cret,atype,anc,setype,psize,it
00349 integer msefcai
00350
00351 cret = msefcai(fid,mname,len(mname),it,
00352 & aname,atype,
00353 & anc,setype,pname,psize)
00354
00355 return
00356 end
00357
00358
00359
00360 subroutine mserar(fid,mname,aname,val,cret)
00361
00362 implicit none
00363 save
00364 character*(*) mname,aname
00365 integer fid,cret
00366 real*8 val(*)
00367 integer msefrar
00368
00369 cret = msefrar(fid,mname,len(mname),
00370 & aname,len(aname),val)
00371
00372 return
00373 end
00374
00375
00376
00377 subroutine mseiar(fid,mname,aname,val,cret)
00378
00379 implicit none
00380 save
00381 character*(*) mname,aname
00382 integer fid,cret
00383 integer val(*)
00384 integer msefiar
00385
00386 cret = msefiar(fid,mname,len(mname),
00387 & aname,len(aname),val)
00388
00389 return
00390 end
00391
00392
00393
00394 subroutine msesar(fid,mname,aname,val,cret)
00395
00396 implicit none
00397 save
00398 character*(*) mname,aname
00399 integer fid,cret
00400 character *(*) val
00401 integer msefsar
00402
00403 cret = msefsar(fid,mname,len(mname),
00404 & aname,len(aname),
00405 & val)
00406
00407 return
00408 end