han84
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: попробуй, как говорит FuzzyLogic (да и сам компилятор), сразу две опции -fdefault-double-8 -fdefault-real-8 | Пробовал выдает кучу варнингов типа Код: main.for:19.22: COMMON/HIJJET2/NSG, NJSG(900), IASG(900,3), K1SG(900,100), 1 Warning: COMMON 'hijjet2' at (1) requires 4 bytes of padding at start | а результат тотже, после компиляции прога не работает. Цитата: если так то и рехнутся не долго (8 тыс это только одна часть, втораяч около 20). Цитата: кстати, пока писал эту строчку, ещё увидел у тебя прокол -- у тебя же все функции сингловые! | В том то и дело что не у меня, я просто использую 2 модуля для своих расчетов. Моя программа не больше полусотни строк. Цитата: надо только правильный тип в функцию передать. | Дело в том, что во всех процедурах и функциях тип не явно задается, всюду наподобие Код: COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50) SAVE /HIPARNT/ | Может тут чего можно изменить? К сожалению, сам я не знаю что (фортран пришлось учить несколько месяцев назад). | Всего записей: 55 | Зарегистр. 31-05-2007 | Отправлено: 20:43 18-02-2008 | Исправлено: han84, 20:50 18-02-2008 |
|