IMPLICIT INTEGER(I-N)
COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
COMMON/PYINT1/MINT(400),VINT(400)
-C write(6,*) "structm_alice->"
- IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
- A=MSTP(191+MINT(124))
-C write(6,*) mint(124), "-> structa ", A
+ A=MSTP(191+MINT(124))
+ IF (A .GT. 1) THEN
CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
ELSE
-C write(6,*) mint(124), "-> structm "
CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
ENDIF
END
COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
COMMON/PYINT1/MINT(400),VINT(400)
C write(6,*) "structm_alice->"
- IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
- A=MSTP(191+MINT(124))
-C write(6,*) mint(124), "-> structa ", A
+ A=MSTP(191+MINT(124))
+ IF (A .GT. 1) THEN
CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
ELSE
-C write(6,*) mint(124), "-> structm "
CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
ENDIF
END
COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
COMMON/PYINT1/MINT(400),VINT(400)
C write(6,*) "structm_alice->"
- IF (MSTP(192) .GT. 0 .AND. MSTP(193) .GT. 0) THEN
- A=MSTP(191+MINT(124))
+ A = MSTP(191+MINT(124))
+ IF (A .GT. 1) THEN
C write(6,*) mint(124), "-> structa ", A
CALL STRUCTA(XX,QQ,A,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
ELSE