Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330

Открыть новую тему     Написать ответ в эту тему

akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Обсуждаются все вопросы, связанные с программированием на ФОРТРАН, как общего так и конкретного характера.
Постарайтесь дать как можно больше информации о возникшей проблеме -- это в конце концов в ваших же интересах чтобы вам помогли...

прежде чем просить помощи в задании
платное решение задач

ресурсы этого топика
ссылка на подборку ресурсов, собранных посетителями этого форума
 
то, чем мы решили поделиться
ссылка на страничку программ etc собственного изготовления, которыми любезно делятся наши форумчане


если вам вдруг не отвечают или ответ вас не устраивает
и вообще полезно прочитать всем спрашивающим
 
просьба к пишущим и отвечающим все большие листинги оформлять тегом more
и отключать графические смайлики при размещении фортран-кода

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 18:11 14-01-2007 | Исправлено: akaGM, 09:47 01-03-2020
Vostrikovskiy

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r
У меня все последние версии clapack/lapack скачаны: они в свободном доступе. И там старый вариант: самая свежая версия данной функции относится к 2006 году. Я приватно там автору усовершенствования написал, но он мне ответил, что его в своей работе интересует только та часть, которую он реализовал и предложил обратиться к проф. Донгарре, которому он также предложил внести изменения в  его clapack/lapack. И не знаю, Д'Артаньян он или еще кто, но нос Интелу утер здорово: он мне дал ссылки на свои работы, опубликованные в академических журналах: http://dep ositfiles.com/files/fmy2ueaad (пробел в depositfiles убрать). Как видно, не перевелись еще яйцеголовые в России. Еще не понял, чем они его обломали: пока он их на 50% уделывает, да еще поделился исходным кодом - мы ему за это спасибо должны сказать. Хотя меня диагонализация совершенно не интересует: но дело в том, что функция, для которой приведены исправления, имеет многочисленные применения. В этом и состоит ценность этих исправлений. Я спрашивал автора приватно, почему код так ускоряется, но на этот вопрос он не ответил.
 
P.S.
Да, Донгарре я написал, но в ответ - молчанье. Я думаю, что он к этому улучшению не имеет никакого отношения, поэтому и молчит. А Интелу тоже не по себе, т.к. улучшение этот самый Д'Артаньян выложил в открытом коде: ведь они воспользовались наводкой этого самого  Д'Артаньяна, которую он им дал несколько лет назад.

Всего записей: 403 | Зарегистр. 19-11-2008 | Отправлено: 09:14 16-09-2010 | Исправлено: Vostrikovskiy, 12:17 16-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vostrikovskiy

Цитата:
да еще поделился исходным кодом

Или я или вы не доганяете, по-моему он поделился только тем участком кода, который уравнивает lapack с mkl  реализацией,  не более, так как интеловцы подтянулись без него.  Остальные улучшения он припрятал.  Ну и какой смысл если можно взять тот же mkl?  

Цитата:
А Интелу тоже не по себе, т.к. улучшение этот самый Д'Артаньян выложил в открытом коде: ведь они воспользовались наводкой этого самого  Д'Артаньяна, которую он им дал несколько лет назад.

Не смешите меня. Вам ведь ясно обьяснили, что в MKL использовался оригинальный код, туда никто не смотрел до этого. А глянули, сделали быстрее.

Цитата:
он мне дал ссылки на свои работы, опубликованные в академических журналах

Вы знаете, кластеры это хорошо, но журналом общей химии тут никого не удивишь
 

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 15:30 16-09-2010
Vostrikovskiy

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r

Цитата:
Или я или вы не доганяете, по-моему он поделился только тем участком кода, который уравнивает lapack с mkl  реализацией,  не более, так как интеловцы подтянулись без него.  Остальные улучшения он припрятал.  Ну и какой смысл если можно взять тот же mkl?

Как без него? Он же пишет, что сделал это за несколько лет до них и, как я понял, они об этом знали (Не думаю, что они не были знакомы с его страницей в интернете). Взять mkl за 500 баксов? Помилуйте. Ведь они всем втюхивают, что они впереди планеты всей: да, на них работают лучшие математики и алгоритмисты, а наш парень им всем нос утер. Как я понял, он ничего не прятал, т.к. ознакомившись с его статьями, понял, что он использует эту программу, как вспомогательную в научных целях. И я не понимаю, почему он с кем-то должен делиться? Мое личное мнение: мы и так ему дожны быть благодарны - ведь мог и не выложить, а пакетом LAPACK очень многие пользуются.  

Цитата:
Не смешите меня. Вам ведь ясно обьяснили, что в MKL использовался оригинальный код, туда никто не смотрел до этого. А глянули, сделали быстрее.  

Что за бред: Intel MKL создан на основе LAPACK. С каждым годом там появляются новые функции, которые автоматически перекочевывают в Intel MKL.

Цитата:
Вы знаете, кластеры это хорошо, но журналом общей химии тут никого не удивишь  

Да, это конечно не Ксения Собчак. Меня удивил не журнал, а его статьи.

Всего записей: 403 | Зарегистр. 19-11-2008 | Отправлено: 16:43 16-09-2010 | Исправлено: Vostrikovskiy, 17:20 16-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vostrikovskiy

Цитата:
Как без него? Он же пишет, что сделал это за несколько лет до них и, как я понял, они об этом знали

Конечно знали, но он пожалел даже бинарный файл выслать. Почитайте внимательно начало дискуссии на intel форуме и ее продолжение.
 

Цитата:
И я не понимаю, почему он с кем-то должен делиться?

Вообще-то, это стандартная практика в научной среде?
 

Цитата:
Взять mkl за 500 баксов? Помилуйте.

The Intel® Software Development Products listed below are available for free non-commercial download.  
http://software.intel.com/en-us/articles/non-commercial-software-download/
 

Цитата:
Что за бред: Intel MKL создан на основе LAPACK.

Если я говорю оригинальный код mkl, то всем известно что это код lapack.
 

Цитата:
Да, это конечно не Ксения Собчак. Меня удивил не журнал, а его статьи.  

А что в статьях? PM3 полуэмпирика  с gamess? Офигеть
 

Цитата:
Мое личное мнение: мы и так ему дожны быть благодарны - ведь мог и не выложить, а пакетом LAPACK очень многие пользуются.  

По моему мнению он так и не выложил. Вы видите изменения в lapack? Я нет. Значит не выложил.

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 17:36 16-09-2010 | Исправлено: terminat0r, 17:45 16-09-2010
Vostrikovskiy

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r

Цитата:
Конечно знали, но он пожалел даже бинарный файл выслать. Почитайте внимательно начало дискуссии на intel форуме и ее продолжение.  

Вскрыли бы и все передрали бы. Но вам лучше об этом спросить у автора.

Цитата:
The Intel® Software Development...  

Это под Linux: он мне нафиг не нужен. Сей продукт для некоммерческого использования.

Цитата:
Если я говорю оригинальный код mkl, то всем известно что это код lapack

Всем, кроме меня: наверное я такой тупой. Что значит: оригиналный код? Например, программа перемножения матриц в LAPACK занимает несколько десятков строчек, а dgemm Intel MKL - несколько мегабайт.

Цитата:
А что в статьях? PM3 полуэмпирика  с gamess? Офигеть

Я не знаю, что такое PM3: я смотрел, что по теме страницы интернета. Вот это меня и впечатлило.

Цитата:
По моему мнению он так и не выложил. Вы видите изминения в lapack? Я нет. Значит не выложил.  

Не понял: я уже передрал выложенный им код и пользую его.

Всего записей: 403 | Зарегистр. 19-11-2008 | Отправлено: 17:58 16-09-2010 | Исправлено: Vostrikovskiy, 09:44 18-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Надо бы закинуть в шапку
основные опции компиляции для INTEL MKL
http://software.intel.com/en-us/articles/intel-mkl-link-line-advisor/
 
Ну и еще один компилятор поддерживает фортран 90/95
http://www.open64.net
Надо бы пощупать

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 19:19 21-09-2010 | Исправлено: terminat0r, 19:25 21-09-2010
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r
у тебя что, права отняли?
Всего записей: 2549 | Зарегистр. 06-12-2002 | Отправлено:  18:11 14-01-2007  | Исправлено: terminat0r,  01:11 30-06-2010
 

Цитата:
Ну и еще один компилятор поддерживает фортран 90/95

фигасе, китайская подделка?

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 20:01 21-09-2010 | Исправлено: akaGM, 20:02 21-09-2010
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r
добавил...
кстати, наши заинтересовались, так что пощупают...

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 16:08 23-09-2010
elisseev2000

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет. Всем. У меня рабочая прога в fortran power station . там четыре влеженных цикла. я хочу их распараллелить. подскажите книжку или пособие , где можно прочитать.

Всего записей: 21 | Зарегистр. 28-05-2009 | Отправлено: 10:32 26-09-2010
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
elisseev2000
смотри, например, раздел параллельное программирование в шапке этого топика

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 14:20 27-09-2010
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Попробовал с помощью gfortran из комплекта gcc 4.5 откомпилировать исходный файл модельки HWM93 (вырезать код из файла http://128.183.114.83/models/atmospheric/hwm93/hwm93.txt). Так вот, не компилится, выдает:  

Код:
 
Error: Incompatible types in DATA statement at (1); attempted conversion of CHARACTER(1) to INTEGER(4)
HWM93.F:1578.40:
 
      DATA ISDATE/'28-J','AN-9','3   '/,ISTIME/'20:3','5:39'/            
                                        1
 

 
Возможно ли это откомпилить при помощи gfortran? Следует отметить, что FPS 4 это спокойно глотает и не морщится...

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 19:07 27-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga

Цитата:
Возможно ли это откомпилить при помощи gfortran? Следует отметить, что FPS 4 это спокойно глотает и не морщится...

Не надо писать на диалектах, вот компилятор и не будет дергаться. Читайте здесь
http://www.pubbs.net/200909/gcc/66887-fortran-iv-data-statements.html

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 19:49 27-09-2010
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за ссылку. Но вынужден возразить: когда я вынужден использовать чужой код, у меня практически нет выбора... В конце концов, просто останусь на сановском или айбиэмовском фортране... Переписывать чужой код - у меня нет столько test-кейсов. Могу сделать ошибку. А потом ищи - в коде это ошибка исходном, или же я напортачил...
 
А к чему gfortran появился? Так появились страждущие получить код. Вот только он у них не скомпилился...
 
PS
За ссылочку - отдельное спасибо.

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 22:05 27-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga

Цитата:
В конце концов, просто останусь на сановском или айбиэмовском фортране...

ifort возьмите
или переделайте код. Там по-моему всего несколько  строчек поменять надо.

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 22:34 27-09-2010 | Исправлено: terminat0r, 01:40 28-09-2010
Betatroner

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!  
Столкнулся с такой проблемой: есть программа на Фортране, древняя (90-х годов) по некоторму инженерному расчету. Чтобы посчитать что-то, ее нужно скомпилировать и получившийся объектный файл слинковать с другим объектным файлом minv.obj. Под DOS-ом (в Win98), в каком-то соответствующем Фортране все прекрасно работает. Попытался запустить на CDF 6.6, скомпилировал нормально, но линковать отказывается. Выдает ошибку:  
"LINK : error : Segment reference in fixup record  
.\MINV.OBJ : fatal error LNK1123: failure during conversion to COFF: file invalid or corrupt  
Error executing link.exe."  
Возможно это связано с тем, что в DOS-е при компиляции надо писать сложную комбинацию параметров в командной строке:  
"fl /c /AH /Gt /F 9000 /Ge /Fs name.for"  
и объектный файл получается другой, какой надо.  
 
Буду очень признателен, если поможете разобраться с этим вопросом.

Всего записей: 5 | Зарегистр. 30-09-2010 | Отправлено: 16:03 30-09-2010
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Betatroner
такое обычно случается, если у тебя обж -- 16-битный OMF
есть три пути:
1. самое лучшее это перекомпилировать minv. тем же фортраном
2. использовать таргет 16-бит для головной программы (не знаю умеет ли это делать Компак)
3. мучиться с конвертацией объектника в COFF-формат различными утилитами типа CVTOMF от М$, coff2omf от Борланда или искать подобное omf2coff в сети...

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 16:57 30-09-2010
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
кстати о выводе прогресса вычислений  в коде. Единственная фигня которая работает как в gfortran так и ifort  это
      write(*,'(2x,A10,i2,A1,$)') "step=", i,char(13)  
 
Все другие предложеные здесь или нашедшие мной в интернетах  не работают или в ifort или в gfortran

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 18:09 30-09-2010 | Исправлено: terminat0r, 18:10 30-09-2010
plazmon



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fl - это скорее всего MS FORTRAN.
На сколько я помню, при переходе на MS FORTRAN Power Station поменялся формат объектного файла. Поэтому у тебя линковщик и не хочет линковать старый файл.
Выходов из этой ситуации два - найти исходник minv и скомпилировать его CVF
или найти MS FORTRAN 5.0 компилировать задачу под DOS и пробовать запустить под новой Windows.

Всего записей: 107 | Зарегистр. 29-05-2007 | Отправлено: 18:21 30-09-2010
Betatroner

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM,plazmon
 
Проблема в том, что исходника minv нет, и не знаю, удастся ли найти... Спасибо за ответы!
Еще глупый вопрос. А что такое COFF-формат?
 
 
Добавлено:
Нашел исходник MINV, скомпилировалось в CVF нормально. При запуске же, возникает ошибка:
Unhandled exeption in ANTEST2.exe: 0xC000008C: Array Bounds Exceeded.
 
Насколько я понимаю, опять что-то с чем-то конфликтует, поскольку при компиляции в DOSе MS Fortran 5.0 все прекрасно работает. Возможно, сама программа как-то соответствующе организована?

Всего записей: 5 | Зарегистр. 30-09-2010 | Отправлено: 09:10 01-10-2010
Andrew10

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Betatroner
 
 

Цитата:
Нашел исходник MINV, скомпилировалось в CVF нормально. При запуске же, возникает ошибка:
Unhandled exeption in ANTEST2.exe: 0xC000008C: Array Bounds Exceeded.  

 
Попробуй скомпилировать с ключом /check:nobounds или
/nocheck:bounds. Он отключает проверку выхода за границы массива при работе программы.

Всего записей: 780 | Зарегистр. 26-02-2005 | Отправлено: 11:59 01-10-2010 | Исправлено: Andrew10, 12:00 01-10-2010
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru