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