mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-22 08:58:47 +00:00
59c297484b
- USE gfortran PR: 114307 Submitted by: Stephen Montgomery-Smith <stephen@math.missouri.edu> (maintainer)
16 lines
467 B
Forth
16 lines
467 B
Forth
--- util/kludge.f.orig 2007-07-04 17:50:16.000000000 -0500
|
|
+++ util/kludge.f 2007-07-04 17:51:45.000000000 -0500
|
|
@@ -53,7 +53,11 @@
|
|
INTEGER MTBL(12)
|
|
DATA MTBL/0,31,59,90,120,151,181,212,243,273,304,334/
|
|
C
|
|
- CALL IDATE(MON,IDAY,IYEAR)
|
|
+ INTEGER IAR(3)
|
|
+ CALL IDATE(IAR)
|
|
+ MON=IAR(1)
|
|
+ IDAY=IAR(2)
|
|
+ IYEAR=IAR(3)
|
|
IF (IDAY.LT.1.OR.IDAY.GT.31) RETURN
|
|
IF (MON.LT.1.OR.MON.GT.12) RETURN
|
|
IDDD=IDAY+MTBL(MON)
|