- #1
jam_gha
- 7
- 0
Hi there
I compile the following Fortran program but it shows more error it output file.
can you help me.
with Regards,
jamshid
INCLUDE '(SCOHLP)'
INCLUDE '(PAPROP)'
*
*
******LOGICAL LFIRST
******SAVE LFIRST, ZMIN, DELTAZ
******DATA LFIRST /.TRUE./
* Initialization, to be done only at first call
******IF (LFIRST) THEN
*********LFIRST = .FALSE.
* It is always good to write a warning on standard output that a
* user routine has been used
*********WRITE(LUNOUT,*)
*****& "**** Using routine fluscw to get differential yield in z ****"
*********ZMIN = 5.D+00 ! write here the limits of the z range
*********ZMAX = 45.D+00 ! where you want to do the scoring
*********NINTRV = 400.D+00 ! and the number of z intervals
*********DELTAZ = (ZMAX - ZMIN)/DBLE(NINTRV)
******END IF
******FLUSCW = ONEONE
******LSCZER = .FALSE.
* The following applies only to yield detectors (there could be others)
******IF (ISCRNG .EQ. 5) THEN
* find the z interval number
*********INTERV = INT((ZZ - ZMIN)/DELTAZ) + 1
* don't score if detector number is different from interval number
*********LSCZER = JSCRNG .NE. INTERV
* multiply the score by 4pi to get integral result in omega
*********IF (.NOT. LSCZER) FLUSCW = FOUFOU * PIPIPI
******END IF
******RETURN
******END
I compile the following Fortran program but it shows more error it output file.
can you help me.
with Regards,
jamshid
INCLUDE '(SCOHLP)'
INCLUDE '(PAPROP)'
*
*
******LOGICAL LFIRST
******SAVE LFIRST, ZMIN, DELTAZ
******DATA LFIRST /.TRUE./
* Initialization, to be done only at first call
******IF (LFIRST) THEN
*********LFIRST = .FALSE.
* It is always good to write a warning on standard output that a
* user routine has been used
*********WRITE(LUNOUT,*)
*****& "**** Using routine fluscw to get differential yield in z ****"
*********ZMIN = 5.D+00 ! write here the limits of the z range
*********ZMAX = 45.D+00 ! where you want to do the scoring
*********NINTRV = 400.D+00 ! and the number of z intervals
*********DELTAZ = (ZMAX - ZMIN)/DBLE(NINTRV)
******END IF
******FLUSCW = ONEONE
******LSCZER = .FALSE.
* The following applies only to yield detectors (there could be others)
******IF (ISCRNG .EQ. 5) THEN
* find the z interval number
*********INTERV = INT((ZZ - ZMIN)/DELTAZ) + 1
* don't score if detector number is different from interval number
*********LSCZER = JSCRNG .NE. INTERV
* multiply the score by 4pi to get integral result in omega
*********IF (.NOT. LSCZER) FLUSCW = FOUFOU * PIPIPI
******END IF
******RETURN
******END