logari81 έγραψε:2010 έγραψε:
Μολις του δινω το 2ο αρχειο input μου γραφει μεν το 3ο αρχειο που ζηταει αλλα προτου πληκτρολογησω το ονομα του αρχειου αυτου, βγαζει error:
αν μας δειξεις τι έχει το αρχειο model.for κοντα στην γραμμη 91 θα μπορεσουμε να καταλάβουμε τι φταιει. Σκεψου π.χ. ότι αυτος που εγραψε το προγραμμα μπορει να μην σκεφτηκε οτι θα τρεξει ποτε το πρόγραμμα σε linux και να όρισε για διαχωριστικό των καταλόγων το "\" που χρησιμοποιείται στα windows αντι του "/" του linux.
Αυτες ειναι οι γραμμες 64-110:
- Κώδικας: Επιλογή όλων
c---------- names-------------------------
write(*,'(//'' file with names:'' )')
read(*,'(A)')fexp2
open (5,file=fexp2)
do 444 i=1,ncomp
read (5,14)n11(i),names(i)
if (number(i).ne.n11(i))then
write(*,*)number(i),n11(i)
write(*,*)'error in index number'
goto 333
endif
14 format(I4,1x,A50)
444 continue
close(5)
c------- groups ------------
do 74 i=1,ncomp
do 75 j=1,nfirst
75 first1(i,j)=0
74 continue
write(*,'(//'' file with groups :'' )')
read(*,'(A)')fexp3
open (8,file=fexp3)
do 18 i=1,ncomp
read (8,*) n(i)
if (number(i).ne.n(i))then
write(*,*)'error in index number'
write(*,*) n(i)
goto 333
endif
do 19 j=1,nfirst
kkk=j
read(8,*) i1type(i,j),i1group(i,j)
if(i1type(i,j).eq.0.and.i1group(i,j).eq.0)goto 33
first1(i,i1type(i,j))=i1group(i,j)
19 continue
33 n1g(i)=kkk
18 continue
close(8)
Η γραμμη 91 ειναι αυτη που γραφει:
- Κώδικας: Επιλογή όλων
read(*,'(A)')fexp3
Το αρχειο με τα names ειναι το δευτερο που ζηταει (δες τις γραμμες 64-79) και εκει κολλαει.
Το αρχειο με τα groups ειναι το τριτο που ζηταει (δες τις γραμμες 83-110).
Αμα ξερεις κατι, μπορεις να μου πεις.
Ευχαριστω πολυ.
Πέρα από την πλάκα, έχει ότι γαργαρλιστικές λεπτομέρειες χρειαστεις.
