labalama
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите кто может. В программе переменная Nflaman равна нулю, т.е. N на coef не умножается, хотя дебаггер пишет, что из внешней процедуры ей значение передано, типы совпадают. Что это может быть? (Compaq Visual Fortran Prof. Edition 6.6)
subroutine raznostn_shema(yi,xh_,xi,xi0,yi0,h,N,h0,r,m0,u,alpha,EE1,F)
! разностная схема
!yi первое приближение
! на выходе давление
!implicit none
integer i
real(8) xh_,xi0,yi0,h,h0,r,m0,u,alpha,EE1,N,deform0,diff_pressure,hFlaman, Nflaman
real(8) yi(1:N),xi(1:N)
real(8) F(1:N)
real(8):: coef=1.0D3
!real(8):: NTemp=0
real(8) yiFlaman(1:1000),xiFlaman(1:1000)
!real(8) F0(1:N)
!real(8) fx2y2(1:N)
!real(8) fx1y1(1:N) ! ,intent(out)::
!NTemp=N
Nflaman=N*coef
! для уточнения расчета деформации дополнительно разобЪем xi и yi function analitint
|
