# medstructelement.f

Aller à la documentation de ce fichier.

    00001 C*  This file is part of MED.
    00002 C*
    00003 C*  COPYRIGHT (C) 1999 - 2012  EDF R&D, CEA/DEN
    00004 C*  MED is free software: you can redistribute it and/or modify
    00005 C*  it under the terms of the GNU Lesser General Public License as published by
    00006 C*  the Free Software Foundation, either version 3 of the License, or
    00007 C*  (at your option) any later version.
    00008 C*
    00009 C*  MED is distributed in the hope that it will be useful,
    00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012 C*  GNU Lesser General Public License for more details.
    00013 C*
    00014 C*  You should have received a copy of the GNU Lesser General Public License
    00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    00016 C*
    00017
    00018       subroutine msecre(fid,mname,mdim,smname,setype,
    00019      &                  sgtype, etype, cret)
    00020 c     DEC$ ATTRIBUTES DLLEXPORT :: msecre
    00021 c
    00022       implicit none
    00023       save
    00024       character*(*) mname,smname
    00025       integer fid,cret,mdim,setype,sgtype,etype
    00026       integer msefcre
    00027 c
    00028       etype = msefcre(fid,mname,len(mname),mdim,
    00029      &               smname,len(smname),setype,sgtype)
    00030 c
    00031       if (etype.lt.0) then
    00032          cret = -1
    00033       else
    00034          cret = 0
    00035       endif
    00036 c
    00037       return
    00038       end
    00039 c
    00040 c
    00041 c
    00042       subroutine msense(fid,n,cret)
    00043 c     DEC$ ATTRIBUTES DLLEXPORT :: msense
    00044 c
    00045       implicit none
    00046       save
    00047       integer fid,n,cret
    00048       integer msefnse
    00049 c
    00050       n = msefnse(fid)
    00051 c
    00052       if (n.lt.0) then
    00053          cret = -1
    00054       else
    00055          cret = 0
    00056       endif
    00057 c
    00058       return
    00059       end
    00060 c
    00061 c
    00062 c
    00063       subroutine msesei(fid,it,mname,mgtype,mdim,smname,
    00064      &                  setype,snnode,sncell,sgtype,
    00065      &                  ncatt,ap,nvatt,cret)
    00066 c     DEC$ ATTRIBUTES DLLEXPORT :: msesei
    00067 c
    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 c
    00075       cret = msefsei(fid,it,mname,mgtype,mdim,smname,
    00076      &               setype,snnode,sncell,sgtype,
    00077      &               ncatt,ap,nvatt)
    00078 c
    00079       return
    00080       end
    00081 c
    00082 c
    00083 c
    00084       subroutine msesin(fid,mname,mgtype,mdim,smname,
    00085      &                  setype,snnode,sncell,sgtype,
    00086      &                  ncatt,ap,nvatt,cret)
    00087 c     DEC$ ATTRIBUTES DLLEXPORT :: msesin
    00088 c
    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 c
    00096       cret = msefsin(fid,mname,len(mname),mgtype,
    00097      &               mdim,smname,setype,snnode,
    00098      &               sncell,sgtype,ncatt,ap,nvatt)
    00099 c
    00100       return
    00101       end
    00102 c
    00103 c
    00104 c
    00105       subroutine msesen(fid,mgtype,mname,cret)
    00106 c     DEC$ ATTRIBUTES DLLEXPORT :: msesen
    00107 c
    00108       implicit none
    00109       save
    00110       character*(*) mname
    00111       integer fid,cret,mgtype
    00112       integer msefsen
    00113 c
    00114       cret = msefsen(fid,mgtype,mname)
    00115 c
    00116       return
    00117       end
    00118 c
    00119 c
    00120 c
    00121       subroutine msesgt(fid,mname,gtype,cret)
    00122 c     DEC$ ATTRIBUTES DLLEXPORT :: msesgt
    00123 c
    00124       implicit none
    00125       save
    00126       character*(*) mname
    00127       integer fid,gtype,cret
    00128       integer msefsgt
    00129 c
    00130       gtype = msefsgt(fid,mname,len(mname))
    00131 c
    00132       if (gtype.lt.0) then
    00133          cret = -1
    00134       else
    00135          cret = 0
    00136       endif
    00137 c
    00138       return
    00139       end
    00140 c
    00141 c
    00142 c
    00143       subroutine msevac(fid,mname,aname,atype,anc,cret)
    00144 c     DEC$ ATTRIBUTES DLLEXPORT :: msevac
    00145 c
    00146       implicit none
    00147       save
    00148       character*(*) mname,aname
    00149       integer fid,cret,atype,anc
    00150       integer msefvac
    00151 c
    00152       cret = msefvac(fid,mname,len(mname),
    00153      &               aname,len(aname),atype,
    00154      &               anc)
    00155 c
    00156       return
    00157       end
    00158 c
    00159 c
    00160 c
    00161       subroutine msevni(fid,mname,aname,atype,anc,cret)
    00162 c     DEC$ ATTRIBUTES DLLEXPORT :: msevni
    00163 c
    00164       implicit none
    00165       save
    00166       character*(*) mname,aname
    00167       integer fid,cret,atype,anc
    00168       integer msefvni
    00169 c
    00170       cret = msefvni(fid,mname,len(mname),
    00171      &               aname,len(aname),
    00172      &               atype,anc)
    00173 c
    00174       return
    00175       end
    00176 c
    00177 c
    00178 c
    00179       subroutine msevai(fid,mname,it,aname,atype,anc,cret)
    00180 c     DEC$ ATTRIBUTES DLLEXPORT :: msevai
    00181 c
    00182       implicit none
    00183       save
    00184       character*(*) mname,aname
    00185       integer fid,cret,atype,anc,it
    00186       integer msefvai
    00187 c
    00188       cret = msefvai(fid,mname,len(mname),it,
    00189      &               aname,atype,anc)
    00190 c
    00191       return
    00192       end
    00193 c
    00194 c
    00195 c
    00196       subroutine mseasz(atype,size,cret)
    00197 c     DEC$ ATTRIBUTES DLLEXPORT :: mseasz
    00198 c
    00199       implicit none
    00200       save
    00201       integer size,atype,cret
    00202       integer msefasz
    00203 c
    00204       size = msefasz(atype)
    00205 c
    00206       if (size.lt.0) then
    00207          cret = -1
    00208       else
    00209          cret = 0
    00210       endif
    00211 c
    00212       return
    00213       end
    00214 c
    00215 c
    00216 c
    00217       subroutine mseraw(fid,mname,aname,atype,anc,
    00218      &                  setype,val,cret)
    00219 c     DEC$ ATTRIBUTES DLLEXPORT :: mseraw
    00220 c
    00221       implicit none
    00222       save
    00223       character*(*) mname,aname
    00224       integer fid,cret,atype,anc,setype
    00225       real*8 val(*)
    00226       integer msefraw
    00227 c
    00228       cret = msefraw(fid,mname,len(mname),
    00229      &               aname,len(aname),atype,
    00230      &               anc,setype,val)
    00231 c
    00232       return
    00233       end
    00234 c
    00235 c
    00236 c
    00237       subroutine mseiaw(fid,mname,aname,atype,anc,
    00238      &                  setype,val,cret)
    00239 c     DEC$ ATTRIBUTES DLLEXPORT :: mseiaw
    00240 c
    00241       implicit none
    00242       save
    00243       character*(*) mname,aname
    00244       integer fid,cret,atype,anc,setype
    00245       integer val(*)
    00246       integer msefiaw
    00247 c
    00248       cret = msefiaw(fid,mname,len(mname),
    00249      &               aname,len(aname),atype,
    00250      &               anc,setype,val)
    00251 c
    00252       return
    00253       end
    00254 c
    00255 c
    00256 c
    00257       subroutine msesaw(fid,mname,aname,atype,anc,
    00258      &                  setype,val,cret)
    00259 c     DEC$ ATTRIBUTES DLLEXPORT :: msesaw
    00260 c
    00261       implicit none
    00262       save
    00263       character*(*) mname,aname
    00264       integer fid,cret,atype,anc,setype
    00265       character *(*) val
    00266       integer msefsaw
    00267 c
    00268       cret = msefsaw(fid,mname,len(mname),
    00269      &               aname,len(aname),atype,
    00270      &               anc,setype,val,anc*64)
    00271 c
    00272       return
    00273       end
    00274 c
    00275 c
    00276 c
    00277       subroutine mserpw(fid,mname,aname,atype,anc,
    00278      &                  setype,pname,val,cret)
    00279 c     DEC$ ATTRIBUTES DLLEXPORT :: mserpw
    00280 c
    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 c
    00288       cret = msefrpw(fid,mname,len(mname),
    00289      &               aname,len(aname),atype,
    00290      &               anc,setype,pname,len(pname),
    00291      &               val)
    00292 c
    00293       return
    00294       end
    00295 c
    00296 c
    00297 c
    00298       subroutine mseipw(fid,mname,aname,atype,anc,
    00299      &                  setype,pname,val,cret)
    00300 c     DEC$ ATTRIBUTES DLLEXPORT :: mseipw
    00301 c
    00302       implicit none
    00303       save
    00304       character*(*) mname,aname,pname
    00305       integer fid,cret,atype,anc,setype
    00306       integer val(*)
    00307       integer msefipw
    00308 c
    00309       cret = msefipw(fid,mname,len(mname),
    00310      &               aname,len(aname),atype,
    00311      &               anc,setype,pname,len(pname),
    00312      &               val)
    00313 c
    00314       return
    00315       end
    00316 c
    00317 c
    00318 c
    00319       subroutine msespw(fid,mname,aname,atype,anc,
    00320      &                  setype,pname,val,cret)
    00321 c     DEC$ ATTRIBUTES DLLEXPORT :: msespw
    00322 c
    00323       implicit none
    00324       save
    00325       character*(*) mname,aname,pname
    00326       integer fid,cret,atype,anc,setype
    00327       character *(*) val
    00328       integer msefspw
    00329 c
    00330       cret = msefspw(fid,mname,len(mname),
    00331      &               aname,len(aname),atype,
    00332      &               anc,setype,pname,len(pname),
    00333      &               val,64*anc)
    00334 c
    00335       return
    00336       end
    00337 c
    00338 c
    00339 c
    00340       subroutine msecni(fid,mname,aname,atype,anc,
    00341      &                  setype,pname,psize,cret)
    00342 c     DEC$ ATTRIBUTES DLLEXPORT :: msecni
    00343 c
    00344       implicit none
    00345       save
    00346       character*(*) mname,aname,pname
    00347       integer fid,cret,atype,anc,setype,psize
    00348       integer msefcni
    00349 c
    00350       cret = msefcni(fid,mname,len(mname),
    00351      &               aname,len(aname),atype,
    00352      &               anc,setype,pname,psize)
    00353 c
    00354       return
    00355       end
    00356 c
    00357 c
    00358 c
    00359       subroutine msecai(fid,mname,it,aname,atype,anc,
    00360      &                  setype,pname,psize,cret)
    00361 c     DEC$ ATTRIBUTES DLLEXPORT :: msecai
    00362 c
    00363       implicit none
    00364       save
    00365       character*(*) mname,aname,pname
    00366       integer fid,cret,atype,anc,setype,psize,it
    00367       integer msefcai
    00368 c
    00369       cret = msefcai(fid,mname,len(mname),it,
    00370      &               aname,atype,
    00371      &               anc,setype,pname,psize)
    00372 c
    00373       return
    00374       end
    00375 c
    00376 c
    00377 c
    00378       subroutine mserar(fid,mname,aname,val,cret)
    00379 c     DEC$ ATTRIBUTES DLLEXPORT :: mserar
    00380 c
    00381       implicit none
    00382       save
    00383       character*(*) mname,aname
    00384       integer fid,cret
    00385       real*8 val(*)
    00386       integer msefrar
    00387 c
    00388       cret = msefrar(fid,mname,len(mname),
    00389      &               aname,len(aname),val)
    00390 c
    00391       return
    00392       end
    00393 c
    00394 c
    00395 c
    00396       subroutine mseiar(fid,mname,aname,val,cret)
    00397 c     DEC$ ATTRIBUTES DLLEXPORT :: mseiar
    00398 c
    00399       implicit none
    00400       save
    00401       character*(*) mname,aname
    00402       integer fid,cret
    00403       integer val(*)
    00404       integer msefiar
    00405 c
    00406       cret = msefiar(fid,mname,len(mname),
    00407      &               aname,len(aname),val)
    00408 c
    00409       return
    00410       end
    00411 c
    00412 c
    00413 c
    00414       subroutine msesar(fid,mname,aname,val,cret)
    00415 c     DEC$ ATTRIBUTES DLLEXPORT :: msesar
    00416 c
    00417       implicit none
    00418       save
    00419       character*(*) mname,aname
    00420       integer fid,cret
    00421       character *(*) val
    00422       integer msefsar
    00423 c
    00424       cret = msefsar(fid,mname,len(mname),
    00425      &               aname,len(aname),
    00426      &               val)
    00427 c
    00428       return
    00429       end