c

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hijset.F

diff --git a/HIJING/hijing1_36/hijset.F b/HIJING/hijing1_36/hijset.F
index 0e0b1b2abcf8ff603d075e935f83b2070d99223f..b92cb55215ff9b6fe3e35a73e920e24a117ecc53 100644 (file)
--- a/HIJING/hijing1_36/hijset.F
+++ b/HIJING/hijing1_36/hijset.F
@@ -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"