science/vis5d+/files/patch-util::kludge.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--- 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)