*-- Author : S.Burke / J.V. Morris SUBROUTINE FKPRHS(LUN,CMESS,NUM,NPL) *-----------------------------------------Updates 07/02/92------- **: FKPRHS 30205.SB. Change FKISUM to subroutine to please UNDEF. *-----------------------------------------Updates---------------- ********************************************************************** * * * Print out point rejection histograms * * * ********************************************************************** DIMENSION NUM(NPL) CHARACTER*(*) CMESS ********************************************************************** CALL FKISUM(NUM,NPL,NTOT,MAX) IF (NTOT.LE.0) RETURN WRITE(LUN,*) WRITE(LUN,*) CMESS WRITE(LUN,*) PMAX = 200.D0*MAX/NTOT DO 100 JPL=1,NPL PCT = 100.D0*NUM(JPL)/NTOT C IF (NUM(JPL).GT.0) CALL FKHIST(LUN,JPL,PCT,PMAX) * Probably better to print them all CALL FKHIST(LUN,JPL,PCT,PMAX) 100 CONTINUE RETURN END *