XPEHOMETP
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Igorr Ну да, что естественно, то не безобразно. Тем не менее, тот же FFT в виде FFTPACK, я о нем тут уже говорил. Был исходник на Ф-77, вполне рабочий. John Burkardt, который по пониманию Фортрана превосходит меня головы на три, переписал его под Ф-90/95. Старательно прописывая везде где можно в подпрограмах реальные размерности массивов, вместо звездочек в исходном коде. И вообще явно человек пытался разобраться в программе и понять, как она работает. Но с какого-то момента даже у него просто руки опустились. Потому что разобраться в этом не реально. И там не EQUIVALENCE, там нет отнесения одного и того же значения к разным переменным. Все переменные сидят на своей жердочке, точнее, лежат, ибо это именно что братская могила. |