Hallo,
beim Kopilieren von diesem Programme bekomme ich keine Fehlermeldung, jedoch beim Öffnen einen speicherzugriffehler. Ich weiß einfach nicht, wo der Fehler liegt.
PROGRAM main
! Variablendekleration
IMPLICIT NONE
INTEGER::wahl1,i, j, wert1(9,9)
DO i=1,9
DO j=1,9
wert1(i,j)=0
ENDDO
ENDDO
PRINT*, "Herzlich Willkommen"
PRINT*, "Woraus soll die Matrix eingelesen werden?"
PRINT*, "1 - Tastatur"
PRINT*, "2 - Datei"
READ*, wahl1
DO
SELECT CASE(wahl1)
CASE(1)
CALL matrixt(wert1)
CASE DEFAULT
PRINT*, "Falsche Eingabe. Bitte erneut eingeben!"
END SELECT
IF(wahl1==1) EXIT
ENDDO
END
als externes Modul
SUBROUTINE matrixt(wert)
IMPLICIT NONE
INTEGER:: k, l, wert(9,9)
DO k=1,9
DO l=1,9
PRINT*, "Bitte geben Sie die 9 Werte der",k,".ten Zeile ein und der",l,",ten Spalte"
READ*, wert(k,l)
ENDDO
ENDDO
PRINT*,wert(k,l)
PRINT*, "Drücke ENTER"
READ*
END SUBROUTINE
Vielleicht kann mir einer weiter helfen. Das würde mich weiterbringen. Danke
