Πρόβλημα στην εκτέλεση κώδικα Fortran

Γενικά θέματα για τις γλώσσες προγραμματισμού που δεν καλύπτονται από τις άλλες περιοχές της κατηγορίας.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
rudolff
Δημοσιεύσεις: 2
Εγγραφή: 15 Σεπ 2009 03:38

Πρόβλημα στην εκτέλεση κώδικα Fortran

Δημοσίευση από rudolff » 15 Σεπ 2009 03:43

Ασχολούμαι εδώ και λίγο καιρό με την Fortran και συγκεκριμένα το περιβάλλον Visual Fortran 6.0 ή και το Visual Compaq Fortran 6.5.
Xρησιμοποιώντας ένα παράδειγμα απο βιβλίο

Κώδικας: Επιλογή όλων

IMPLICIT NONE
REAL::MESOS_OROS_FOITHTH,MESOS_OROS_TAXHS,S,A,B,C,D
INTEGER::I,N
OPEN(9,FILE='INPUT.TXT')
READ(9,*) A,B,C,D
S=0.
DO I=1,N
READ(9,*) A,B,C,D
MESOS_OROS_FOITHTH=(A+B+C+D)/4.
WRITE(*,*) 'MESOS_OROS_FOITHTH',I,' ',MESOS_OROS_FOITHTH
S=S+MESOS_OROS_FOITHTH
END DO
MESOS_OROS_TAXHS=S/N
WRITE(*,*) 'MESOS_OROS_TAXHS=',MESOS_OROS_TAXHS
STOP
END 
δεν τυπώνει αποτέλεσμα αλλα βγάζει το μήνυμα
forrtl: severe (24): end-of-file during read, unit 9, file C:Program FilesMicr
osoft Visual StudioCommonMSDEV98My ProjectsCelsus2INPUT.TXT
Image PC Routine Line Source
a8roisma.exe 0040B399 Unknown Unknown Unknown
a8roisma.exe 0040B193 Unknown Unknown Unknown
a8roisma.exe 0040A324 Unknown Unknown Unknown
a8roisma.exe 0040A59E Unknown Unknown Unknown
a8roisma.exe 00403F7E Unknown Unknown Unknown
a8roisma.exe 004010B8 Unknown Unknown Unknown
a8roisma.exe 00433079 Unknown Unknown Unknown
a8roisma.exe 00426E94 Unknown Unknown Unknown
kernel32.dll 7C816FD7 Unknown Unknown Unknown
Το ίδιο συμβαίνει με αρκετά άλλα παραδείγματα.Το πρόβλημα πρέπει να υπάρχει στο read ή το open,εχω πειραματιστει λίγο αλλα δεν βγάζω άκρη.

psapikas
Δημοσιεύσεις: 25
Εγγραφή: 19 Σεπ 2009 08:25

Πρόβλημα στην εκτέλεση κώδικα Fortran

Δημοσίευση από psapikas » 19 Σεπ 2009 09:32

Το Ν που το ορίζεις ή που το διαβάζεις???

rudolff
Δημοσιεύσεις: 2
Εγγραφή: 15 Σεπ 2009 03:38

Πρόβλημα στην εκτέλεση κώδικα Fortran

Δημοσίευση από rudolff » 20 Σεπ 2009 02:34

Λύθηκε,ευχαριστώ.

Απάντηση

Επιστροφή στο “γλώσσες προγραμματισμού - γενικά”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες