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,len(val))
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,len(val))
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

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1