medparfile.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 mpfope(fid, name, access, com, info, cret)
00019 c     DEC$ ATTRIBUTES DLLEXPORT :: mpfope
00020 c
00021       implicit none
00022       save
00023       character *(*) name
00024       integer fid
00025       integer access
00026       integer com,info,cret
00027       integer mpffope
00028 c
00029       fid = mpffope(name, access, len(name), com, info)
00030       if (fid.lt.0) then
00031          cret=-1
00032       else
00033          cret=0
00034       endif
00035 c      
00036       return
00037       end
00038 

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