Author: Kurt Kallblad
Date: Sep 11, 2008 06:41
... the variables. Kurt SUBROUTINE CALEND(IAR,IMAN,IDAG,JULDAG,NRDAG,IVDAG)... TO 10 N=1 IF (MOD(IAR,4).EQ.0) N=2...=IDAG+NDM(IMAN,N) JULDAG=IAR-1901 JULDAG=JULDAG*365+JULDAG/4+...RETURN 10 WRITE(NU,20) IAR,IMAN,IDAG 20 FORMAT(' **** FELAKTIGT ... CALEND'//1X,3I10) STOP END IAR år year IMAN månad...
|