Andrew10
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
...................
...................
!
! Ввод NSEC
!
case('NSEC', 'nsec')
nsec = 2
write(*,*) "NSEC = ", nsec !<---------- Это тестовая печать на консоль
nsec_flg = .TRUE.
cycle
!
! Ввод NP
!
case('NP', 'np')
np = 137
write(*,*) "NP = ", np !<---------- Это тестовая печать на консоль
np_flg = .TRUE.
cycle
!
! Ввод SIGNALFLAG
!
case('SIGNALFLAG', 'signalflag')
signal_flag = 1
write(*,*) "SIGNAL_FLAG = ", signal_flag !<---------- Это тестовая печать на консоль
signal_flg = .TRUE.
cycle
!
! Ввод NH
!
case('NH', 'nh')
nh = 8
write(*,*) "NH = ", nh !<---------- Это тестовая печать на консоль
nh_flg = .TRUE.
cycle
..........................
..........................
|
Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 10:42 26-01-2012 | Исправлено: Andrew10, 00:03 27-01-2012 |
|
