Re: Date representation
Group: comp.lang.fortran · Group Profile · Search for iar in comp.lang.fortran
Author: Kurt Kallblad
Date: Sep 11, 2008 06:41
... the variables. Kurt SUBROUTINE CALEND(IAR,IMAN,IDAG,JULDAG,NRDAG,IVDAG)...244,274,305,335,366/NU/6/ IF (IAR.LT.1901.OR.... 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...
Show full article (2.83Kb) |