medstructelement.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  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

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1