c
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:03:14 +0000 (14:03 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 9 Jun 2010 14:03:14 +0000 (14:03 +0000)
c     Version 1.381
c
c     The parameters for Wood-Saxon distribution for deuteron are
c     constrained to give the right rms ratius 2.116 fm
c     (R=0.0, D=0.5882)
c

HIJING/hijing1_36/hijwds.F

index f7da0b4..525566a 100644 (file)
@@ -14,17 +14,18 @@ C     NUCLEUS IA DISTRIBUTED ACCORDING TO THREE PARAM WOOD SAXON
 #include "wood_hijing.inc"
         DIMENSION IAA(20),RR(20),DD(20),WW(20),RMS(20)
         EXTERNAL RWDSAX,WDSAX
+
 C
 C   PARAMETERS OF SPECIAL NUCLEI FROM ATOMIC DATA AND NUC DATA TABLES
 C     VOL 14, 5-6 1974
-        DATA IAA/4,12,16,27,32,40,56,63,93,184,197,208,8*0./
-        DATA RR/.964,2.355,2.608,2.84,3.458,3.766,3.971,4.214,
-     1        4.87,6.51,6.38,6.624,8*0./
-        DATA DD/.322,.522,.513,.569,.61,.586,.5935,.586,.573,
-     1        .535,.535,.549,8*0./
-        DATA WW/.517,-0.149,-0.051,0.,-0.208,-0.161,14*0./
-        DATA RMS/1.71,2.46,2.73,3.05,3.247,3.482,3.737,3.925,4.31,
-     1        5.42,5.33,5.521,8*0./
+        DATA IAA/2,4,12,16,27,32,40,56,63,93,184,197,208,7*0./
+        DATA RR/0.01,.964,2.355,2.608,2.84,3.458,3.766,3.971,4.214,
+     1        4.87,6.51,6.38,6.624,7*0./
+        DATA DD/0.5882,.322,.522,.513,.569,.61,.586,.5935,.586,.573,
+     1        .535,.535,.549,7*0./
+        DATA WW/0.0,.517,-0.149,-0.051,0.,-0.208,-0.161,13*0./
+        DATA RMS/2.11,1.71,2.46,2.73,3.05,3.247,3.482,3.737,3.925,4.31,
+     1        5.42,5.33,5.521,7*0./
         SAVE
 C
        A=IA
@@ -38,7 +39,7 @@ C                     ********R IS RADIUS PARAM
 C              ********W IS The third of three WOOD-SAX PARAM
 C
 C                      ********CHECK TABLE FOR SPECIAL CASES
-       DO 10 I=1,12
+       DO 10 I=1,13
                IF (IA.EQ.IAA(I)) THEN
                        R=RR(I)
                        D=DD(I)