Hi there(adsbygoogle = window.adsbygoogle || []).push({});

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

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Errors in compling fortran

Loading...

Similar Threads for Errors compling fortran |
---|

Fortran Successive Over Relaxation Method in FORTRAN |

Web Scraping Py Script Generates Error for Old Norse Chars |

Python Numerical integration 'quad' error |

Fortran Handling underflow errors in fortran 90 |

**Physics Forums | Science Articles, Homework Help, Discussion**