DIMENSION SGTCOE (5,33), IHLP (NALLWP)
DIMENSION SGTCO1(5,10),SGTCO2(5,8),SGTCO3(5,15)
- SAVE SGTCOE, IHLP
- SAVE IQFSC1, IQFSC2, IQBSC1, IQBSC2
+CPH SAVE SGTCOE, IHLP
+CPH SAVE IQFSC1, IQFSC2, IQBSC1, IQBSC2
EQUIVALENCE (SGTCO1(1,1),SGTCOE(1,1))
EQUIVALENCE (SGTCO2(1,1),SGTCOE(1,11))
EQUIVALENCE (SGTCO3(1,1),SGTCOE(1,19))
PARAMETER ( LINP = 10 ,
& LOUT = 6 ,
& LDAT = 9 )
- SAVE
+CPH SAVE
PARAMETER (ZERO=0.0D0,ONE=1.0D0,TWO=2.0D0,THREE=3.0D0)
& LOUT = 6 ,
& LDAT = 9 )
PARAMETER (TINY10=1.0D-10,ZERO=0.0D0,OHALF=0.5D0,ONE=1.0D0)
- SAVE
+CPH SAVE
PARAMETER (
* lower cuts for (valence-sea/sea-valence) chain masses
& JPTISM (NISMMX), IZWISM (NISMMX),
& INWISM (0:NAMSMX)
*
- SAVE KA0, KZ0, IZ0
+CPH SAVE KA0, KZ0, IZ0
DATA KA0, KZ0, IZ0 / -1, -1, -1 /
*
IFLAG = 1
* T (4,7), RMASS (297), ALPH (297), BET (297),
* APRIME (250), IA (6), IZ (6)
LOGICAL LFIRST
- SAVE LFIRST, EXHYDR, EXNEUT
+CPH SAVE LFIRST, EXHYDR, EXNEUT
DATA LFIRST / .TRUE. /
*
IF ( LFIRST ) THEN
dimension u1(40),ds1(40),g1(40)
dimension ud2(20),s2(20),g2(20)
dimension up0(20),dsp0(20),gp0(20)
- save u1,ds1,g1,ud2,s2,g2,up0,dsp0,gp0
+CPH save u1,ds1,g1,ud2,s2,g2,up0,dsp0,gp0
c
data u1/-0.139d0,0.783d0,0.132d0,0.087d0,0.003d0,-0.0134d0,
& 0.009d0,-0.017d0,0.092d0,-0.516d0,-0.085d0,0.439d0,
COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6),
&XPDIR(-6:6)
COMMON/SASVAL/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6)
- SAVE /SASCOM/,/SASVAL/
+CPH SAVE /SASCOM/,/SASVAL/
C...Temporary array.
DIMENSION XPGA(-6:6), VXPGA(-6:6)