Итак, мне нужно объявить множество переменных, и исходный код выглядел так: DIMENSION energy_t(20000),nrt(20000),npsh(1000),xx(1000),yy(1000), :step(1000),stepz(1000),r1(1000),rr(1000),ic(1000),diffrr(1000) И я переписал это так:...

Я пытался сделать довольно простой генератор псевдослучайных чисел LCG на Fortran 77 для вывода 1000 случайных чисел в файл, но по какой-то причине результат составляет всего 1000 0. Весь код довольно короткий, поэтому я прочесывал его несколько раз...