<commit_before>*$ CREATE CMPIPS.FOR
*COPY CMPIPS
*                                                                      *
*=== Cmpips ===========================================================*
*                                                                      *
      SUBROUTINE CMPIPS ( NALLD0, STEPID, STEPTT, STEP )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2005-2006:                <NAME>          *
*     All rights reserved                                              *
*                                                                      *
*                                                                      *
*     CoMpute Primary Ionization PoSitions:                            *
*                                                                      *
*     Created  on  11 november 2005  by       <NAME>          *
*                                               INFN - Milan           *
*                                                                      *
*     Last change  on  05-oct-06     by  <NAME>               *
*                                                                      *
*                                                                      *
*     Input variables:                                                 *
*                                                                      *
*----------------------------------------------------------------------*
*
      INCLUDE '(ALLDLT)'
      INCLUDE '(TRACKR)'
*
      LOGICAL LBGSTP
      DIMENSION CUMTTR (0:MXTRCK), RNDVEC (MXALLD), INDVEC (MXALLD)
*
      SAVE NSTART, CUMTTR
*
D     IF ( ABS ( CTRACK - STEP ) .GT. CSNNRM * CTRACK )
D    &   CALL FLABRT ( 'CMPIPS', 'STEP!=CTRACK' )
      LBGSTP = STEPTT .LT. AZRZRZ
*  +-------------------------------------------------------------------*
*  |  Beginning of a step:
      IF ( LBGSTP ) THEN
         NSTART = 1
         CUMTTR (0) = ZERZER
         DO 1000 I = 1, NTRACK
            CUMTTR (I) = CUMTTR (I-1) + TTRACK (I)
 1000    CONTINUE
         CRVCRR = STEP / CUMTTR (NTRACK)
      END IF
*  |
*  +-------------------------------------------------------------------*
      NRNGEN = NALLDL - NALLD0
      IF ( NRNGEN .LE. 0 ) RETURN
      CALL FLRNLP ( RNDVEC, NRNGEN )<commit_msg>Protection against large number of primary electrons added. (<NAME>)<commit_after>*$ CREATE CMPIPS.FOR
*COPY CMPIPS
*                                                                      *
*=== Cmpips ===========================================================*
*                                                                      *
      SUBROUTINE CMPIPS ( NALLD0, STEPID, STEPTT, STEP )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2005-2006:                <NAME>          *
*     All rights reserved                                              *
*                                                                      *
*                                                                      *
*     CoMpute Primary Ionization PoSitions:                            *
*                                                                      *
*     Created  on  11 november 2005  by       <NAME>          *
*                                               INFN - Milan           *
*                                                                      *
*     Last change  on  05-oct-06     by  <NAME>               *
*                                                                      *
*                                                                      *
*     Input variables:                                                 *
*                                                                      *
*----------------------------------------------------------------------*
*
      INCLUDE '(ALLDLT)'
      INCLUDE '(TRACKR)'
*
      LOGICAL LBGSTP
      DIMENSION CUMTTR (0:MXTRCK), RNDVEC (MXALLD), INDVEC (MXALLD)
*
      SAVE NSTART, CUMTTR
*
      LBGSTP = STEPTT .LT. AZRZRZ
*  +-------------------------------------------------------------------*
*  |  Beginning of a step:
      IF ( LBGSTP ) THEN
         NSTART = 1
         CUMTTR (0) = ZERZER
         DO 1000 I = 1, NTRACK
            CUMTTR (I) = CUMTTR (I-1) + TTRACK (I)
 1000    CONTINUE
         CRVCRR = STEP / CUMTTR (NTRACK)
      END IF
*  |
*  +-------------------------------------------------------------------*
      NRNGEN = MIN ( NALLDL, MXALLD ) - NALLD0
      IF ( NRNGEN .LE. 0 ) RETURN
      CALL FLRNLP ( RNDVEC, NRNGEN )
{'fraction_non_alphanumeric': 0.20357803824799506, 'fraction_numerical': 0.013983137980670367, 'mean_word_length': 0.5305223410950283, 'pattern_counts': {'":': 0, '<': 10, '<?xml version=': 0, '>': 10, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 52, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7437230', 'n_tokens_mistral': 1142, 'n_tokens_neox': 1028, 'n_words': 241}