Unittest_MEDlibrary_1.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 C******************************************************************************
00019 C * Tests for library module
00020 C *
00021 C *****************************************************************************
00022       program MEDlib
00023 C     
00024       implicit none
00025       include 'med.hf'
00026 C
00027 C     
00028       integer cret
00029       integer major,minor,rel
00030       character*20 version
00031 C 
00032 C
00033 C     get library version numbers
00034       call mlbnuv(major,minor,rel,cret)
00035       print *,cret
00036       print *,major,minor,rel
00037       if (cret .ne. 0 ) then
00038          print *,'ERROR : get library version numbers'
00039          call efexit(-1)
00040       endif  
00041 C
00042 C
00043 C     get library version numbers in a string
00044       call mlbstv(version,cret)
00045       print *,cret
00046       print *,version
00047       if (cret .ne. 0 ) then
00048          print *,'ERROR : get library version numbers in a string'
00049          call efexit(-1)
00050       endif  
00051 C
00052 C
00053 C     get Hdf library version numbers
00054       call mlbhnv(major,minor,rel,cret)
00055       print *,cret
00056       print *,major,minor,rel
00057       if (cret .ne. 0 ) then
00058          print *,'ERROR : get hdf-5 library version numbers'
00059          call efexit(-1)
00060       endif  
00061 C
00062 C
00063 C     get Hdf library version numbers in a string
00064       call mlbhsv(version,cret)
00065       print *,cret
00066       print *,version
00067       if (cret .ne. 0 ) then
00068          print *,'ERROR : get hdf-5 library version numbers in a string'
00069          call efexit(-1)
00070       endif  
00071 C
00072 C
00073 C     flush all data and clean memory
00074       call  mlbclo(cret)
00075       print *,cret
00076       if (cret .ne. 0 ) then
00077          print *,'ERROR : MED library close'
00078          call efexit(-1)
00079       endif      
00080 
00081       end

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