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

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