Форум программистов, компьютерный форум, киберфорум
Наши страницы
Fortran
Войти
Регистрация
Восстановить пароль
 
AC_CHANGE
0 / 0 / 0
Регистрация: 19.05.2011
Сообщений: 3
1

Помогите найти ошибку в программе

19.05.2011, 02:26. Просмотров 368. Ответов 0
Метки нет (Все метки)

Зарание очень благодарен за любые советы.
Вот текст программы:
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program l81
 
implicit double precision(a-h,o-z)
 
DATA E, TNU, alpha, GAMA, SIGMA /2E11, .3e0, 125.E-7, 78500e0, 500000000./
REAL*8 GAMA, alpha, KROK, TNU, E, R, R1, R2, Tx, T1, T2, H, N, PR2,C,A,B,K,L, SIGMA, omega 
integer dot, I
 
real*8,allocatable::z(:,:)
 
OPEN(8,FILE='mary.TXT', STATUS='OLD')
OPEN(1,FILE='mary_out.TXT', STATUS='replace')
 
READ (8,*)  R1,R2,T1,T2,H,N,PR2,DOT
 
allocate (z(DOT,5))
 
 
WRITE (*,*) R1,R2,T1,T2,H,N,PR2,DOT
WRITE (*,*) ' '
 
Tx=T1-T2
KROK=(R2-R1)/(DOT-1)
omega=N*3.14/60
222 continue
A=((3.+TNU)/8.)*((GAMA/9.8)*omega**2)
B=TX*ALPHA*E/(3.*(R2-R1))
C=R2**2-R1**2
L=(A*C+B*(R1-R2)-PR2/H)/(1./R2**2-1./R1**2)
K=-L/R1**2+A*R1**2+B*R1
sig_max = 0.
 
DO  I = 1,DOT , 1.
R=R1+KROK*(I-1)
 
z(I,1)=K+(L/(R**2))-A*(R**2)-B*R
z(I,2)=K-L/R**2-A*(R**2)-2*B*R
Z(I,3)=dSQRT(Z(I,2)**2-Z(I,1)*Z(I,2)+Z(I,1)**2)
 
write (*,'(5E12.5)') z(I,1),z(I,2), z(I,3),sigma, R 
write (1,'(5E12.5)') z(I,1),z(I,2), z(I,3),sigma, R 
 
if(z(i,3) > sig_max)sig_max = z(i,3)
 
end do  
 
if(sig_max <= sigma)then
write(*,*)sig_max,sigma !'A'
PR2 = PR2*1.01
goto 222
else
write(*,*)'PR2 = ',PR2
read(*,*)
end if
STOP
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2011, 02:26
Ответы с готовыми решениями:

Помогите найти ошибку в программе
найти ошибку C Головная программа Dimension A(10),B(20), C(15) Read(*,*)A,B,C ...

Найти ошибку в программе
Зарание очень благодарен за любые советы. Вот текст программы: program l81 implicit double...

Не могу найти ошибку в программе
Не могу найти ошибку: subroutine Brailovskoi use perem write(*,*)&quot; Vvedite koeficent...

Помогите найти ошибку
program find_nod integer nod,n1,n2,n3 data n1,n2,n3 /2353,2886,5915/ ...

Помогите найти и решить ошибку
В общем дана целочисленная матрица 4 на 5. И в каждой строчке нужно поменять второй четный с...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2011, 02:26

Помогите разобраться в программе
Добрый день! Дали программу, которую нужно запустить. Программа ссылается на файл QQ.nopo. Но...

Нужно найти ошибку Ln(x+1)
Помогите найти ошибку program la do x=-1,1 s=x a=x do n=1,10 a=a*(-n)/(n+1)*x end laсама...

Необходимо найти ошибку
Не работает подпрограмма subroutine raash(44 строка, вызов подпрограммы в 41 строке), если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru