medflibrary.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 subroutine mlbclo(cret)
00019
00020 implicit none
00021 save
00022
00023 integer cret
00024 integer mlbfclo
00025
00026 cret = mlbfclo()
00027
00028 return
00029 end
00030
00031
00032
00033 subroutine mlbnuv(major,minor,rel,cret)
00034
00035 implicit none
00036 save
00037
00038 integer major, minor, rel
00039 integer cret
00040 integer mlbfnuv
00041
00042 cret = mlbfnuv(major,minor,rel)
00043
00044 return
00045 end
00046
00047
00048 subroutine mlbstv(version,cret)
00049
00050 implicit none
00051 save
00052
00053 character*(*) version
00054 integer cret
00055 integer mlbfstv
00056
00057 cret = mlbfstv(version,len(version))
00058
00059 return
00060 end
00061
00062
00063
00064 subroutine mlbhnv(major,minor,rel,cret)
00065
00066 implicit none
00067 save
00068
00069 integer major, minor, rel
00070 integer cret
00071 integer mlbfhnv
00072
00073 cret = mlbfhnv(major,minor,rel)
00074
00075 return
00076 end
00077
00078
00079 subroutine mlbhsv(version,cret)
00080
00081 implicit none
00082 save
00083
00084 character*(*) version
00085 integer cret
00086 integer mlbfhsv
00087
00088 cret = mlbfhsv(version,len(version))
00089
00090 return
00091 end