SUBROUTINE PRINTBRANCH C. C. ****************************************************************** C. * * C. * Print branching ratios and decay modes for standard * C. * GEANT particles. (modeled after GEANT routine gsdk() ) * C. * * C. ****************************************************************** C. #include "geant321/gcbank.inc" #include "geant321/gcphys.inc" #include "geant321/gcnum.inc" #include "geant321/gcunit.inc" C. C. ------------------------------------------------------------------ C. CHARACTER*32 chpatl CALL KUPATL(chpatl,narg) ! get number of arguments... CALL KUGETI(IPART) ! ... and read iopt and ival WRITE(6,*) 'Branching modes for particle:' CALL GPPART(IPART) IF (IPART.LE.0) GO TO 99 IF (IPART.GT.NPART) GO TO 99 C C Particle pointer. C JPA = LQ(JPART-IPART) IF (JPA.LE.0) GO TO 99 C C Book decay links and data banks. C JDK1=LQ(JPA-1) JDK2=LQ(JPA-2) C C Print branching ratios & decay modes. C DO 20 I=1,6 write(6,*) Q(JDK1+I), IQ(JDK2+I) 20 CONTINUE C 99 RETURN END