سلام
برنامه زیر در حالی که تو سیستم های دیگه جواب میده ولی تو فرترن من خطا میده . کمکم کنید دارم دیوونه میشم !
real :: x,y,nx,ny,dx,dy,h
real,ALLOCATABLE :: t(:)
integer::i
N=5
h=.001
allocate ( t(N+1) )
t(1)=1
x=.12
do i=1,N
t(i+1)=t(i)+h
print*,x
end do
end