# medsupport.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 msmcre(fid , maa , sdim , mdim , des,
    00019      &                  atype, aname, aunit, cret)
    00020 c     DEC$ ATTRIBUTES DLLEXPORT :: msmcre
    00021 c
    00022       implicit none
    00023       save
    00024 c
    00025       character *(*) maa, des, aname, aunit
    00026       integer fid, cret, atype, sdim, mdim
    00027       integer msmfcre
    00028 c
    00029       cret = msmfcre(fid, maa, len(maa), sdim, mdim,
    00030      &               des, len(des), atype, aname, 16*sdim,
    00031      &               aunit, 16*sdim)
    00032 c
    00033       return
    00034       end
    00035 c
    00036 c
    00037 c
    00038       subroutine msmnsm( fid , n , cret)
    00039 c     DEC$ ATTRIBUTES DLLEXPORT :: msmnsm
    00040 c
    00041       implicit none
    00042       save
    00043 c
    00044       integer fid, n, cret
    00045       integer msmfnsm
    00046 c
    00047       n = msmfnsm(fid)
    00048
    00049       if (n.lt.0) then
    00050          cret = -1
    00051       else
    00052          cret = 0
    00053       endif
    00054 c
    00055       return
    00056       end
    00057 c
    00058 c
    00059 c
    00060       subroutine msmsni(fid, name, sdim, mdim, desc,
    00061      &                  atype, aname, aunit, cret)
    00062 c     DEC$ ATTRIBUTES DLLEXPORT :: msmsni
    00063 c
    00064       implicit none
    00065       save
    00066 c
    00067       character *(*) name, desc, aname, aunit
    00068       integer fid, sdim, mdim, atype, cret
    00069       integer msmfsni
    00070 c
    00071       cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
    00072      &               atype, aname, aunit)
    00073 c
    00074       return
    00075       end
    00076 c
    00077 c
    00078 c
    00079       subroutine msmsmi(fid, it, name, sdim, mdim, desc,
    00080      &                  atype, aname, aunit, cret)
    00081 c     DEC$ ATTRIBUTES DLLEXPORT :: msmsmi
    00082 c
    00083       implicit none
    00084       save
    00085 c
    00086       character *(*) name, desc, aname, aunit
    00087       integer fid, sdim, mdim, atype, it, cret
    00088       integer msmfsmi
    00089 c
    00090       cret = msmfsmi(fid, it, name, sdim, mdim, desc,
    00091      &               atype, aname, aunit)
    00092 c
    00093       return
    00094       end
    00095 c
    00096 c
    00097 c
    00098       subroutine msmnax( fid , it, naxis, cret)
    00099 c     DEC$ ATTRIBUTES DLLEXPORT :: msmnax
    00100 c
    00101       implicit none
    00102       save
    00103 c
    00104       integer fid,it,naxis,cret
    00105       integer msmfnax
    00106 c
    00107       naxis =  msmfnax(fid,it)
    00108 c
    00109       if (naxis.lt.0) then
    00110          cret = -1
    00111       else
    00112          cret = 0
    00113       endif
    00114       return
    00115       end
    00116 c
    00117 c
    00118 c
    00119       subroutine  msmnan( fid , name, naxis, cret)
    00120 c     DEC$ ATTRIBUTES DLLEXPORT :: msmnan
    00121 c
    00122       implicit none
    00123       save
    00124 c
    00125       integer fid,naxis,cret
    00126       character *(*) name
    00127       integer msmfnan
    00128 c
    00129       naxis = msmfnan(fid,name,len(name))
    00130 c
    00131       if (naxis.lt.0) then
    00132          cret = -1
    00133       else
    00134          cret = 0
    00135       endif
    00136       return
    00137       end