29 integer major,minor,rel
34 call mlbnuv(major,minor,rel,cret)
36 print *,major,minor,rel
37 if (cret .ne. 0 )
then
38 print *,
'ERROR : get library version numbers'
47 if (cret .ne. 0 )
then
48 print *,
'ERROR : get library version numbers in a string'
54 call mlbhnv(major,minor,rel,cret)
56 print *,major,minor,rel
57 if (cret .ne. 0 )
then
58 print *,
'ERROR : get hdf-5 library version numbers'
67 if (cret .ne. 0 )
then
68 print *,
'ERROR : get hdf-5 library version numbers in a string'
76 if (cret .ne. 0 )
then
77 print *,
'ERROR : MED library close'
subroutine mlbstv(version, cret)
subroutine mlbnuv(major, minor, rel, cret)
subroutine mlbhsv(version, cret)
subroutine mlbhnv(major, minor, rel, cret)