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