[Çözüldü]çalışan fortran kodu çalışmaz oldu

[zeusmaster]

Arkadaşlar kullanmış olduğumuz bir fortran kodu var

Kod Seç Genişlet

IMPLICIT REAL*8 (A-H,K-Z)
      OPEN(1,FILE='output2.DAT')  !!!!2DEG uzerinde olusan gate potansiyeli, giriş datasi
      OPEN(3,FILE='output2-0.DAT')  !!2DEG uzerinde olusan gate potansiyeli, cikis datasi

C=================================================================
C==========================GATE VOLTAJ DAGILIMI DATADAN OKUTULUYOR
          READ(1,*) INX    !! INTEGXY numerik integralin X dongusunu verir
          READ(1,*) INY    !! INTEGXY numerik integralin Y dongusunu verir
c WRITE(*,*) INX
c          WRITE(*,*) INY


DO 12 IX=1,INX
DO 11 IY=1,INY
   
READ(1,*)I,J,IPOT
IF(IPOT.EQ.1) WRITE(3,*)I,J,0


11 CONTINUE     
12 CONTINUE
       write(*,*)'data okundu'
C STOP


END


Çalıştırınca şöyle bir hata almaya başladım;

Kod Seç Genişlet

At line 7 of file resim-datasi-okuyucusu-renkli-.for (unit = 1, file = 'output2.DAT')
Fortran runtime error: End of file



-----------------------Sorunun çözümü

Kod Seç Genişlet

     OPEN(1,FILE='output2.DAT')  !!!!2DEG uzerinde olusan gate potansiyeli, giriş datasi
      OPEN(3,FILE='output2-0.DAT')  !!2DEG uzerinde olusan gate potansiyeli, cikis datasi


görüldüğü gibi output2 nin uzantısı büyük harfle yazılmış(DAT). Bizim giriş dosyasının sonun küçük harfleydi (dat). Dolayısıyla giriş olmadığından çıkış da olamadı