LN2018
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подпрограмма-функция (внешняя, оформлена после end program) меняет массив
Код:
open(10,file='massiv.txt') !Читаю 2-х мерный массив из текстового файла
read (10,*) (a(:,j), j=1,5)
close (10)
... тект программы
print*, a !Здесь массив правильный, как в текстовом файле massiv.txt
d = FindDet (a, 5)
print*, a !А здесь уже не правильный
... продолжние программы
|
Подпрограмма функция это поиск определителя матрицы, вот эта (пост №2). Определитель она вычисляет правильно. Но почему изменения в массиве лезут наружу, в основную программу? Как избавится от напасти? Массив "а" нужен в программе и дальше.
Пробовал в строке REAL, DIMENSION(n,n) :: matrix подпрограммы вставить параметр intent (in), но компилятор ругается, выдавая - Error: Dummy argument 'matrix' with INTENT(IN) in variable definition context (assignment) at (1)., говорит, что это не переменная, а матрица.
|
Всего записей: 10 | Зарегистр. 05-02-2018 | Отправлено: 16:00 15-03-2018 | Исправлено: LN2018, 16:03 15-03-2018 |
|
