fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K

fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K
fortran
if(M .gt.2) go to 1
\x05 Y = Y - 1
\x05 M = M+12
\x051 I = Y/100
\x05 K = 2 - I + I/4
\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0
\x05 djul = djul + aint(30.6001*(M+1))+ID+K

fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K
你这只是完整程序中的一小段,执行的话就从上到下依次运行,当M>2时,跳到1 I = Y/100这一行运行.这个程序貌似与日期和天数有关