MZN
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть подпрограмма типа subroutine a(x, n1, n2, y) implicit none integer n1, n2 real*8 x, y(n1:n2), p/0.0d0/, z write(7, *) p ... p = z ... end subroutine a Так вот, при первом вызове правильно выдается p=0.0d0, а вот уже при втором p имеет некое значение, слабо связанное со значением из первого вызова. Как такое может быть? | Всего записей: 1718 | Зарегистр. 23-10-2004 | Отправлено: 12:26 02-05-2016 | Исправлено: MZN, 14:47 02-05-2016 |
|