integer:: ls1(2,4),mlis(2,4)
lenrec=1
nps=4
write(1,*)"ls1(1,1)",ls1(1,1)
write(1,*)"ls1(1,",ls1(1,
i=1
do while(ls1(1,i)==lsl(2,i).and.i<nps+1)
i=i+1
enddo
end
First of all it ignores the write statements if omit the do while...
As it is it gives 'undefined reference error to ls1'. Is this a bug in gfortran or what ?
Is there any way to make it work ?
lenrec=1
nps=4
write(1,*)"ls1(1,1)",ls1(1,1)
write(1,*)"ls1(1,",ls1(1,
i=1
do while(ls1(1,i)==lsl(2,i).and.i<nps+1)
i=i+1
enddo
end
First of all it ignores the write statements if omit the do while...
As it is it gives 'undefined reference error to ls1'. Is this a bug in gfortran or what ?
Is there any way to make it work ?