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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

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

akaGM

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

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

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


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

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

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
terminat0r
Цитата:
не могу примирить многопоточный fftw3 и openmp
Замена  
  complex(cdp), allocatable, dimension( :: ad
на
 complex(cdp), dimension(1:o) :: ad
решает проблему?

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 05:36 10-02-2012
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igorr
хм, решает...  и работает с  -lfftw3_threads и  -lfftw3_omp, а также и с -mkl
Ок, и что там не так с динамическими массивами?  я ведь FFTW_UNALIGNED в планы передал. Как мне еще надо извращаться с этим интелом?

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 15:23 10-02-2012
sergsh_sergsh

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

Цитата:
dimitriy7
 
Еще интересно, а кто-нибудь PGI использует?
 
 

 
У меня стоит PGI.
Раздают они его бесплатно, если частное лицо
Нужно зарегистрироваться, и ящик почты должен быть не публичный типа google_mail
мой ящик на @mail.mipt.ru  их устроил
 
Потом заходим на страницу :
http://www.pgroup.com/support/downloads.php
выбираем что нам нужно ( там есть сейчас уже PGI v:12 от февраля 2012 , правда только под Linux )
 и качаем
спросит вашу почту под которой вы регистрировались и пароль
и кусок в 600 Mb  ваш
 

Всего записей: 31 | Зарегистр. 09-01-2012 | Отправлено: 22:13 14-02-2012
Igorr

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sergsh_sergsh
Может знаете, у вас в mipt кто-нибудь использует PGI CDK Cluster Development Kit / Fortran (Windows x64)? Интересует: имеет ли он поддержку coarrays для работы именно в кластере, а не на одной машине?

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 22:30 14-02-2012 | Исправлено: Igorr, 22:35 14-02-2012
sergsh_sergsh

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igorr,  я посмотрел  и понял что PGI  у меня все же крекнутый
Из моих знакомых fortran стоит только у меня
 
может попробовать спросить прямо у PGI :
 
Product Support
E-mail: trs@pgroup.com

Всего записей: 31 | Зарегистр. 09-01-2012 | Отправлено: 22:46 14-02-2012 | Исправлено: sergsh_sergsh, 23:01 14-02-2012
Igorr

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sergsh_sergsh
Цитата:
может попробовать спросить прямо у PGI
Народ у intel попробовал спросить про аналогичную проблему с их кластерной студией - так они сами разобраться не могут, хотя в рекламе - все тип-топ. Думаю нужно спрашивать конкретных пользователей или раздобыть, поставить самому (что не очень желательно) и посмотреть.

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 23:53 14-02-2012
terminat0r



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вот такие интересные проекты нашел
http://fortwrap.sourceforge.net
http://fwrap.sourceforge.net
 
а также
http://fortran90.org

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 07:12 26-02-2012 | Исправлено: terminat0r, 07:15 26-02-2012
AZA_N

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

Совсем не в тему, но вдруг тут кто-нибудь динамику пучков считает. Нужны для benchmarking вот эти программы - http://forum.ru-board.com/topic.cgi?forum=35&topic=50683#1, а доступ русским прикрыли (т.е. часть  программ из LANL кому угодно и совершенно даром, а конкретно эти - не дают). Же не манж па сис жюр, подайте бедному инженеру.

Всего записей: 853 | Зарегистр. 10-11-2007 | Отправлено: 12:01 26-02-2012 | Исправлено: AZA_N, 12:02 26-02-2012
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемый All, потребовалось откомпилировать модельку (HWM07, ftp://nssdcftp.gsfc.nasa.gov/models/atmospheric/hwm07/HWM07_all_files.zip) на Fortran Power Station 4 (в действительности потребовалось подключить их модель к своей, но для начала просто пытаюсь откомпилировать).  
 
Так вот, в процессе компиляции объектрых файлов компилятор ругается замечательными ошибками:

Код:
 
fl32 /G5 /Ox /c dwm07b.f90
 
dwm07b.f90
dwm07b.f90(147): error FOR3852: syntax error detected between EXTERNAL and ::
dwm07b.f90(489): error FOR3852: syntax error detected between EXTERNAL and ::
 
fl32 /G5 /Ox /c hwm07e.f90
hwm07e.f90
<поскипал warning>
hwm07e.f90 : error FOR2232: explicit INTERFACE required for procedure HWMUPDATE invoked from procedure HWMQT with argument EBZ (number 8): is a TARGET
 

строка 147 выглядит так:
    external                  :: loaddwm, vsh_basis
 
 Не подскажете, как побороть сию ошибку? Или на этом компиляторе уже бесполезно (и он таких инструкций не понимает?)

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 23:36 28-02-2012 | Исправлено: BagaBaga, 23:37 28-02-2012
knkd

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga
Понятия не имею, но не пробовали, ради спортивного интереса, убрать пробельные символы, между "external" и "::"? Или добавить тип? (:

Всего записей: 196 | Зарегистр. 15-01-2008 | Отправлено: 23:43 28-02-2012 | Исправлено: knkd, 23:45 28-02-2012
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga
попробуй вот так по-простому:
external loaddwm, vsh_basis
 
ну или полностью описать эти п/п через интерфейс
ну а компилятор неплохо бы обновить...

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 00:12 29-02-2012
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Любопытный результат
 
заменил (строки с external, на которые компилятор про  синтаксис жаловался)
      external                  :: loaddwm, vsh_basis
на
       external                   loaddwm, vsh_basis
 
и
       external :: bspline_calc
на
       external bspline_calc
 
В результате теперь получаю

Код:
 
C:\test_src\HWM07>fl32 /G5 /Ox /c dwm07b.f90  
Microsoft (R) Fortran PowerStation  Version 4.00
Copyright (C) Microsoft Corp 1982-1995. All rights reserved.
 
dwm07b.f90
dwm07b.f90(198): error FOR1127: internal compiler error
Internal Error -- please report this bug
Command line error D2013: internal compiler error.
 

 
в исходникас строки 197-198
    external vsh_basis_init
    open(unit=23,file=trim(datafile),form='unformatted')
 
PS
Похоже, я с этим компилятором не совладаю...

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 08:51 29-02-2012
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga
да уж...
 
могу только присоветовать убрать всю оптимизацию, чтобы попробовать скомпилировать с минимальными требованиями...
а вообще
Цитата:
1982-1995
наводит на мысль...
 
кстати, библиотека написана очень коряво, перемешаны модульность и старый стиль
а вот IF и gfortran хавает это на ура...
там ФОР-кода всего на 100 килограмм, может тебе руками адаптировать, или тот же gfortran использовать?

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 13:49 29-02-2012 | Исправлено: akaGM, 16:26 29-02-2012
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
(Надеюсь, за оффтоп не забанят)
 
Про коряво. Была моделька HWM-93, где 1993 - это как бы год... Нынешняя 2007 - её replacement. Я так понимаю, старый код ни кто не выкидывал и детально не перерабатывал - собрали в кучу по принципу "работает под ifort и g95" и ладно. В принципе - понятно. Работает, нужно улучшать модель (а не код) по новым данным наблюдений. Так что проблемы индейцев (вроде меня)...
 
Про IF. Буду думать, где поймать академическую лицензию подешевле.
 
Про gfortran. Всё бы хорошо, но у него в багах висит отсутствие поддержки преобразований строковых выражений к real. Как сказано, сделают по мере нахождения сил (т.е. никогда), т.к. мало кому это надо. А мы используем чужую модель (NRL MSISE-00), которая вся на этом построена.
 
Добавлено:
Про адаптировать. Если компилятор поновее не найду (а то всё равно такие грабли будут всё чаще вылезать), то так и сделаю .

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 16:22 29-02-2012
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga
забанят, забанят, полный оффтоп :)
 

Цитата:
Про gfortran. Всё бы хорошо, но у него в багах висит отсутствие поддержки преобразований строковых выражений к real
а что там не так?
r = "3.14" не работает? сам напиши :)
 

Цитата:
"работает под ifort и g95" и ладно
ну так используй g95, он под винду тоже имеется...
 
да что вообще там переписывать? максимум час работы, тем более если нужно...
мне понадобилось, я либу с питона слизал, хотя о питоне знаю только то, что там нет "начала/конца блока" и надо индентами фигачить :)

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 16:34 29-02-2012
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
C g95 та же проблема, что и с gfortran'ом (пробовал, только более ранее).
 
PS
Пошёл переписывать. Настораживает только то, что фортран я очень хорошо не знаю (слово external вчера увидел впервые

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 23:56 29-02-2012
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BagaBaga
ну и правильное решение...
кстати, попробуй компильнуть все исходники по-отдельности, может там и не всё переписывать надо...
а с другой стороны, всегда полезно знать как это всё работает изнутри...

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 02:05 01-03-2012
terminat0r



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

Цитата:
Про gfortran. Всё бы хорошо, но у него в багах висит отсутствие поддержки преобразований строковых выражений к real.  

Вы меня извините, но это как отмазка не прокатит.    
http://gbenthien.net/strings/Strings.zip

Цитата:
Про IF. Буду думать, где поймать академическую лицензию подешевле.  

я никого не принуждаю, но какбы намекну, что у нас в теор физике например все используют некоммерческую лицензию от интела под линуксом и поэтому и довольны и счастливы. Конечно на институт тут тоже куплен какой то там интел с версией бабушкиной молодости для отвода глаз.

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 16:30 01-03-2012 | Исправлено: terminat0r, 16:39 01-03-2012
BagaBaga

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемый terminat0r, я не ищу отмазки. Они мне не помогут. Примерно с полгода назад я пытался откомпилировать (как раз с gfortran)  http://uap-www.nrl.navy.mil/uap/?code=7643;content=nrlmsise00.dist17  
В общем, тогда не получилось, и мне посоветовали поменять все соотв. строки в исходниках на Hollerith-strings. В общем, скоро - очень похоже - накатит критическая масса, которая и заставит что-то делать...
 
Про линукс и отвод глаз. Фишка в том, что у нас нет (кроме серверов) машин под Lin. И счёт идет на обычных офисных машинках. Такова особенность локального вуза...

Всего записей: 463 | Зарегистр. 14-11-2005 | Отправлено: 00:25 04-03-2012
terminat0r



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

Цитата:
В общем, тогда не получилось, и мне посоветовали поменять все соотв. строки в исходниках на Hollerith-strings.

Проще Подробнее...
Стандартний тест проходит
Хотя я не уверен с размерностями для P и AP, что-то они там перемудрили (или я не помню/не знаю каких-то особенностей 66 фортрана)
 

Цитата:
Про линукс и отвод глаз. Фишка в том, что у нас нет (кроме серверов) машин под Lin. И счёт идет на обычных офисных машинках. Такова особенность локального вуза...

И что мешает поставить там какой то линукс?

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 03:39 04-03-2012
Открыть новую тему     Написать ответ в эту тему

Страницы: 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

Компьютерный форум 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