if(q==0) exit
if (q==1) then
2000 print *,'input the year, the month and the day:'
read *,year,month,day
if (month>12.or.month<0) print *,'you input wrong month.'
if (month>12.or.month<0) goto 2000
call leapday(year,month,day,lday)
if (lday==0) print *,'you input wrong day.'
if (lday==0) goto 2000
call numday(year,month,day,days)
print '(a14,i3,a18)','The day is the',days,' day of this year.'
open(25,file='days.dat',status='unknown')
write(25,'(a14,i3,a18)') 'The day is the',days,' day of this year.'
close(25)
else if (q==2) then
print *,'input the year:'
read *,year
call shengxiao(year)
else if (q==3) then
2001 print *,'input the year(2000-2099) and the month:'
read *,year,month
if (year>2099.or.year<2000) print *,'you input wrong year,please input the year between
2000 and 2099.'
if (year>2099.or.year<2000) goto 2001
if (month>12.or.month<0) print *,'you input wrong month.'
if (month>12.or.month<0) goto 2001
open(27,file='yueli.dat',status='unknown')
call nyli(year,month,mday,ds,tem)
write(27, "(26x,i2,'月',3x,i4,'年')")month,year
write(27, '(18x,7a4)')'日','一','二','三','四','五','六'
write(27, '(18x,7a4)')(tem(i),i=1,mday+ds)
write(27,*)
close(27)
else if (q==4) then
2002 print *,'input the year(2000-2099):'
read *,year
if (year>2099.or.year<2000) print *,'you input wrong year,pleade input the year between