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