*$ CREATE STUPRF.FOR *COPY STUPRF * *=== stuprf ===========================================================* * SUBROUTINE STUPRF ( IJ, MREG, XX, YY, ZZ, NUMSEC, NPPRMR ) INCLUDE '(DBLPRC)' INCLUDE '(DIMPAR)' INCLUDE '(IOUNIT)' * *----------------------------------------------------------------------* * * * SeT User PRoperties for Fluka particles: * * * * Created on 09 october 1997 by Alfredo Ferrari & Paola Sala * * Infn - Milan * * * * Last change on 14-aug-99 by Alfredo Ferrari * * * * * *----------------------------------------------------------------------* * INCLUDE '(EVTFLG)' INCLUDE '(FLKSTK)' INCLUDE '(TRACKR)' INCLUDE '(LTCLCM)' LOGICAL LFIRST SAVE LFIRST DATA LFIRST / .TRUE. / LOUSE (NPFLKA) = LLOUSE DO 100 ISPR = 1, MKBMX1 SPAREK (ISPR,NPFLKA) = SPAUSR (ISPR) 100 CONTINUE DO 200 ISPR = 1, MKBMX2 ISPARK (ISPR,NPFLKA) = ISPUSR (ISPR) 200 CONTINUE * +-------------------------------------------------------------------* * | Elastic interaction: IF ( LELEVT ) THEN * Increment number of elastic scatterings ISPARK (1,NPFLKA) = ISPARK (1,NPFLKA) + 1 END IF * | * +-------------------------------------------------------------------* *=== End of subroutine Stuprf =========================================* END