# medstructelement.f

Aller à la documentation de ce fichier.

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