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