Changes needed on HP
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 16 Mar 2004 13:09:38 +0000 (13:09 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 16 Mar 2004 13:09:38 +0000 (13:09 +0000)
PYTHIA6/pythia6214.f

index 4d1eeff82edb0dfb54594095bffae618d8132bad..6f78fec60c00d4154c5845300e74acf82e22f16c 100644 (file)
@@ -59659,14 +59659,14 @@ C      IDATI(5)=IMIN
 C      IDATI(6)=ISEC
  
 C...Example 4: GNU LINUX libU77, SunOS.
-      CALL IDATE(IDTEMP)
-      IDATI(1)=IDTEMP(3)
-      IDATI(2)=IDTEMP(2)
-      IDATI(3)=IDTEMP(1)
-      CALL ITIME(IDTEMP)
-      IDATI(4)=IDTEMP(1)
-      IDATI(5)=IDTEMP(2)
-      IDATI(6)=IDTEMP(3)
+c      CALL IDATE(IDTEMP)
+c      IDATI(1)=IDTEMP(3)
+c      IDATI(2)=IDTEMP(2)
+c      IDATI(3)=IDTEMP(1)
+c      CALL ITIME(IDTEMP)
+c      IDATI(4)=IDTEMP(1)
+c      IDATI(5)=IDTEMP(2)
+c      IDATI(6)=IDTEMP(3)
  
 C...Common code to ensure right century.
       IDATI(1)=2000+MOD(IDATI(1),100)