Need Help: compiling old Fortran program

Hello: I do not touch Fortran for the obvious reasons. However,
someone
handed over a program to me. After trying to compile it by means of
g77 on Mac OSX I
get the following error messages:

==
preprces.f: In subroutine `comsig':
preprces.f:585:
IF (R(J) .EQ. 0.D0) GO TO 40
1
preprces.f:587: (continued):
DO 40 I = 1,NWVL
2
Reference to label at (2) inconsistent with earlier reference at (1)
preprces.f: In subroutine `pplot':
preprces.f:1189:
5 (QSAVE(I,J,3,L3) .GT. Q1EST))) GO TO
160

1
preprces.f:1190: (continued):
30 DO 160 K1 = 1,3
2
Reference to label at (2) inconsistent with earlier reference at (1)
==


In the following I am giving the particular line sections:

==
30 DO 40 J = 1,137
IF (R(J) .EQ. 0.D0) GO TO 40 .... !!!!!LINE 585!!!!!
AR = PI * R(J)**2 * 1.0D-08
DO 40 I = 1,NWVL ... !!!!!LINE 587!!!!!
ALFA = 2.0D0 * PI * R(J) / WVL(I)
SIGEXT(I,J) = QEXT1(ALF,QT,ALFA) * AR
40 CONTINUE
==


==
DO 160 I1 = 1,7
I = I1
IF (IMIN .NE. 0) GO TO 30
L1 = NITER(I,J,1)
L2 = NITER(I,J,2)
L3 = NITER(I,J,3)
IF (((QSAVE(I,J,1,L1) .EQ. 0.0D0) .OR.
1 (QSAVE(I,J,1,L1) .GT. Q1EST)) .OR.
2 ((QSAVE(I,J,2,L2) .EQ. 0.0D0) .OR.
3 (QSAVE(I,J,2,L2) .GT. Q1EST)) .OR.
4 ((QSAVE(I,J,3,L3) .EQ. 0.0D0) .OR.
5 (QSAVE(I,J,3,L3) .GT. Q1EST))) GO TO
160 !!!! LINE 1189!!!!!!!
30 DO 160 K1 = 1,3 !!!!!!!!!!!!!!!!! LINE
1190 !!!!!!!!!!!!!
K = K1
ITEND = NITER(I,J,K)
IF (ITEND .EQ. 0) GO TO 160
IF (IMIN .EQ. 0) GO TO 40
I = IMIN
J = JMIN
==


What are the reasons for the error messages? Thanks!

.

Relevant Pages

  • Changing default output object for
    ... reasons why it is a bad idea or not possible, but, is there any ... with combination of byte codes which inserted in a reference to ... Python code snippets and compile to byte code. ... registered response object, but instead of doing it this way, could ...
    (comp.lang.python)
  • Re: Ban snaring in Scotland
    ... survey, the first thing you should ask for is the reference which shows ... reference, fails to produce it. ... my post do I refer to SIX reasons. ... A bird was flying south for the Winter. ...
    (uk.environment.conservation)
  • Re: Ban snaring in Scotland
    ... If BASC recognise it is cruel, ... survey, the first thing you should ask for is the reference which shows ... reference, fails to produce it. ... my post do I refer to SIX reasons. ...
    (uk.environment.conservation)
  • Re: Ban snaring in Scotland
    ... If BASC recognise it is cruel, ... survey, the first thing you should ask for is the reference which shows ... reference, fails to produce it. ... my post do I refer to SIX reasons. ...
    (uk.environment.conservation)
  • Re: Showing first day of the next month in a column ...
    ... The first always refers to the date in B2, then creates an offset based ... reference to the cell above. ... A second advantage is that it's slightly easier to ... None are especially compelling reasons to pick one over the other, ...
    (microsoft.public.excel)