Unittest_MEDlibrary_1.f
Aller à la documentation de ce fichier.00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022       program MEDlib
00023 
00024       implicit none
00025       include 'med.hf'
00026 
00027 
00028       integer cret
00029       integer major,minor,rel
00030       character*20 version
00031 
00032 
00033 
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 
00042 
00043 
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 
00052 
00053 
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 
00062 
00063 
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 
00072 
00073 
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