m-s-rayaneh
عضو جدید
سلام
کد فرترن زیر تو فرترن من ران نمیشه در حالی که در سیستم های دیگه این دستور جواب میده ! نمیدونم مشکل از کجاست اروری هم که میده را عکسش را گذاشتم اگر کسی کمکم کنه ممنون میشم
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
![Untitled.png Untitled.png](http://www.iran-eng.ir/data/attachments/103/103530-31e6a9e9d6bec3cdae90cff4bc9b0729.jpg)
کد فرترن زیر تو فرترن من ران نمیشه در حالی که در سیستم های دیگه این دستور جواب میده ! نمیدونم مشکل از کجاست اروری هم که میده را عکسش را گذاشتم اگر کسی کمکم کنه ممنون میشم
real :: x,y,nx,ny,dx,dy,h
real,ALLOCATABLE :: t
![Smile :) :)](/styles/default/xenforo/smilies/vb5/smile.gif)
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
![Untitled.png Untitled.png](http://www.iran-eng.ir/data/attachments/103/103530-31e6a9e9d6bec3cdae90cff4bc9b0729.jpg)