forrtl: severe (193): Run-Time Check Failure

forrtl: severe (193): Run-Time Check Failure

I have defined array integer,dimension(15) :: kk1, but:

milenko@milenkons:~/alo/v2$ ./oipc
forrtl: severe (193): Run-Time Check Failure. The variable 'oipc_$ITER' is being used without being defined
Image              PC        Routine            Line        Source             
oipc               08094943  Unknown               Unknown  Unknown
oipc               08093660  Unknown               Unknown  Unknown
oipc               080613BE  Unknown               Unknown  Unknown
oipc               0804DB6C  Unknown               Unknown  Unknown
oipc               0804E335  Unknown               Unknown  Unknown
oipc               08049FA5  MAIN__                     20  oipc.f90
program oipc
use m1
implicit none
integer :: i,n,c,iter,e1,f1
integer,dimension(15) :: kk1
integer,dimension(15) :: y1,w1
real,dimension(1300) :: a,b,l,d,e,f,g
real,dimension(:),allocatable :: ee,ff

open(10,file='RESP20.resp',status='old')
open(11,file='num1.txt',status='old')
open(12,file='sio.txt',status='old')

do i=1,1300
read(10,59)a(i),b(i),l(i),d(i),e(i),f(i),g(i)
59 format(7(2x,g13.5))
end do

do i=1,15
read(11,19)kk1(iter)
19 format(i3)
n=kk1(iter)
 c=4*n
read(12,99)y1(iter),w1(iter)
99 format(2i9)
e1=y1(iter)
f1=w1(iter)

allocate (ee(c))
allocate (ff(c))
ee=e(e1:f1)
ff=f(e1:f1)
call mii(iter,c,ee,ff)
deallocate(ee)
deallocate(ff)
end do

end program

What is going on?

3 post / 0 nuovi
Ultimo contenuto
Per informazioni complete sulle ottimizzazioni del compilatore, consultare l'Avviso sull'ottimizzazione

The error message is telling you quite clearly what the problem is. The variable "iter" is being used as a subscript in the statement

read(11,19)kk1(iter)
but it does not have a defined value yet.

Thanks.

Lascia un commento

Eseguire l'accesso per aggiungere un commento. Non siete membri? Iscriviti oggi