Fehlermeldung 2 Hauptprogramme in Fortran

#1
Hallo zusammen,
Ich habe zwei Hauptprogramme, mir ist jedoch nicht bewusst, wie ich die vereinen kann, dass nicht diese Fehlermeldung kommt.
C:\Users\T\Desktop\ZSS\GLOBEX.FOR:3.72:

INTEGER inp,iout
1
C:\Users\T\Desktop\ZSS\GLOBEX.FOR:822.72:

DIMENSION U(2),DU(2),S(2,5)
2
Error: Two main PROGRAMs at (1) and (2)

Im Anhang befindet sich noch der gesamte Quellcode.

Um jegliche Hilfe bin ich mit Dank verbunden.

Gruß Georg

1. Hauptprogramm:
Code:
      INTEGER inp,iout
      REAL*8 PAR
      COMMON /DIAG/ INP,IOUT
      COMMON /RUECK/  PAR(50)

      inp=5
      iout=6
      OPEN (UNIT=inp ,FILE="C:\Users\T\Desktop\ZSS\GLOBEX_EINGABE.inp",
     &      ACCESS='sequential',STATUS='unknown')
      OPEN (UNIT=IOUt,FILE="C:\Users\T\Desktop\ZSS\GLOBEX_AUSGABE.out",
     &      ACCESS='sequential',STATUS='unknown')


      WRITE(IOUT,100)
  100 format(///,1x,'.................................................'
     #        ,/,1x,'.                                               .'
     #        ,/,1x,'. Rosenbrock Bananenfunktion mit k=2 und nres=2 .'
     #        ,/,1x,'.                                               .'
     #        ,/,1x,'.................................................'
     #        ,//)


      call EXTRE


 
      
           close(unit=5)
      close(unit=6)
      stop
      end
2. Hauptprogramm:
Code:
      DIMENSION U(2),DU(2),S(2,5)
      EXTERNAL ROSE1 , ROSE2
      U(1)=-2
      U(2)=1.0
      DU(1)=0.1
      DU(2)=0.1
      CALL EXTREM (ROSE1,2,U,DU,S,1.E-10,1.E-10,-40,FOPT,2)
      U(1)=-2
      U(2)=1.0
      DU(1)=0.1
      DU(2)=0.1
      CALL EXTREM (ROSE2,2,U,DU,S,1.E-10,1.E-10,-40,FOPT,2)
      STOP
      END
 

Anhänge

Oben