c
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:07:07 +0000 (14:07 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:07:07 +0000 (14:07 +0000)
c     Version 1.384
c
c     Nov. 20, 2003. Vladimir Oujinski (cern) pointed out an inconsistency
c     between the variable declarations in subroutine HIJSET as in the
c     documentation. So the following
c CHARACTER FRAME*4,PROJ*4,TARG*4,EFRAME*4
c     is changed to
c CHARACTER FRAME*8,PROJ*8,TARG*8,EFRAME*8
c

HIJING/hijing1_36/hijset.F

index 0e0b1b2..b92cb55 100644 (file)
@@ -3,7 +3,7 @@ C
 C
 C
        SUBROUTINE HIJSET(EFRM,FRAME,PROJ,TARG,IAP,IZP,IAT,IZT)
-       CHARACTER FRAME*4,PROJ*4,TARG*4,EFRAME*4
+       CHARACTER FRAME*8,PROJ*8,TARG*8,EFRAME*8
        DOUBLE PRECISION  DD1,DD2,DD3,DD4
 #define BLANKET_SAVE
 #include "histrng.inc"