forums.silverfrost.com

[lawchellie]

implicit none
integer :: year, n, month, day, t
! t is an offset to account for leap years.
print*, 'year, followed by day within year'
read*, year, n
! checking for leap years
if ((year/4)*4==year)then
t=1
if ((year/400)*400==year)then
t=1
elseif ((year/100)*100==year)then
t=0
endif
else
t=0
endif
! accounting for february
if (n>(59+t))then
day=n+2-t
else
day=n
endif
month=(day+91)-(month*3055)/100
month=month-2
print*, 'calendar date is ', day, month, year

end

hello! pls am wondering what i am suppose to enter under the i/o

read*, year, n
though the compilation appear correct but confuse what to enter as input argument, help pls if possible with an example. thank u!

[Wilfried Linder]

Hi,

it seems that the programme calculates the date from day and year, for instance the input of "2012 100" should give the 9th of April, 2012. Your input: Key in 2012, followed by a blank, followed by 100.

But the algorithm is wrong and lead to funny results. Here's the modified code: