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