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?
