Re: Need Help: compiling old Fortran program


"Förster vom Silberwald" <chain_lube@xxxxxxxxxxx> wrote in message
news:1183037553.599974.161960@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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!
Es sind zuviele Fehler vorhanden, dass man sich nicht zweckmaessig an die
Frage herankommt. Ich glaube, dass das erste Problem ist, dass Du mit einer
Fremdsprache arbeitest. Was hiesse "GT" wenn man nicht gerade weiss, dass
es "greater than" sein will. Ich habe es Tausend mal erlebt, dass
vernuenftige Leute sich daher nicht verstaendigen, da sie nicht
einigermassen mit einer Sprachebeziehung bemuehten.

Du hast nie Fortran aus "offentsichtlichen" Gruenden angetastet? Und was
waeren sie?
--
Wade Ward


.

Relevant Pages

  • Re: Gelesen: THE GREENLAND-ANTARCTICA MELTING PROBLEM DOES NOT EXIST
    ... core reached 3035 m and Dome C core 3309 m, ... dass sich das lokale Klima durch die veränderte Reflektion am Rand des Eisfeldes verändert und dadurch nach und nach die Eisfelder "abgeknabbert" werden. ...
    (de.soc.umwelt)
  • Re: KDE4: Plasma??
    ... | it is not the goal of Dolphin offering options for all kind of things. ... Ein Blick auf KDE 4.1 reicht aus, um sich zu vergewissern, dass noch nicht ... Ja, das schon. ...
    (de.comp.os.unix.apps.kde)
  • Re: User verlieren Sicherheitsgruppenzugehörigkeit
    ... Das hört sich komisch an u. ich behaupte erstmal, dass das so nicht ... Hilfe & Anleitungen zum SBS 2003 unter: ... > zugreifen, schauen im AD Benutzerverwaltung nach, der User ist in der ...
    (microsoft.public.de.german.backoffice.smallbiz)
  • Re: wie neue Gruppe auf unpaarige seite??
    ... dass das Format-Ereignis des Kopfbereiches des neuen Buchstabens ... MS sagt, dass es passieren kann, dass Ereignisse nicht in der vorgegebenen ...
    (microsoft.public.de.access)