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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
и отключать графические смайлики при размещении фортран-кода

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

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

Цитата:
гуй у меня уже есть билдеровский

Борландовский Builder?

Цитата:
хочется считать с нормальной скростью

консоль и только консоль, без всяких длл, отдаваемых на откуп ОС
 
кстати, причём здесь 2005-ая студия?

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 18:38 14-06-2009 | Исправлено: akaGM, 18:46 14-06-2009
FryMax

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При запуске программы, параметром командной строки является имя файла, открываемого в программе. В мануале написано, что если вместо имени файла в программе оставить ' ' , то  имя нужного файла будет браться из командной строки. Но при выполнении выдает: open: null file name apparent state: unit 50 named lately writing direct unformatted external IO. В чем дело, подскажите?

Всего записей: 6 | Зарегистр. 12-06-2009 | Отправлено: 21:35 14-06-2009
pir0texnik2



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM, да он самый 2007.
Но ведь dll загружается правильно, получает-отдает данные тоже правильно, проблема только с OMP... Что на откуп ОС идет?..
2005 студия - просто, под ней стоит фортран, мог бы быть и под 2008....

Всего записей: 173 | Зарегистр. 27-02-2008 | Отправлено: 21:47 14-06-2009
plasmon

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

Цитата:
При запуске программы, параметром командной строки является имя файла, открываемого в программе. В мануале написано, что если вместо имени файла в программе оставить ' ' , то  имя нужного файла будет браться из командной строки. Но при выполнении выдает: open: null file name apparent state: unit 50 named lately writing direct unformatted external IO. В чем дело, подскажите?

 
Выдержка из документации:

Цитата:
 
On Windows systems, the name can be blank (FILE=' ') if the compatibility compiler option fpscomp filesfromcmd is specified. If the name is blank, the following occurs:
1. The program reads a filename from the list of arguments (if any) in the command line that started the program. If the argument is a null or blank string (" "), you are prompted for the corresponding filename. Each successive OPEN statement that specifies a blank name reads the next following command-line argument.
 

 
Теперь по-русски
Что бы было нужное тебе поведение Нужно включить режим совместимости FPS, указав ключик /fpscomp:filesfromcmd

Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 01:11 15-06-2009 | Исправлено: plasmon, 01:13 15-06-2009
FryMax

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
plasmon
А где указать такой ключик?

Всего записей: 6 | Зарегистр. 12-06-2009 | Отправлено: 11:26 15-06-2009
plasmon

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В командной строке. Если ты работаешь с компилятором Intel, то так:
ifort /fpscomp:filesfromcmd test.f90
 
В 2005 Студии Pojec-Propery-Fortran-Command Line-Additional Options
Или там же ...-Fortran-Comaptibility-Use Filenames from Command Line
 
PS Все это актуально для компилятора Intel под Windows.

Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 12:34 15-06-2009 | Исправлено: plasmon, 12:42 15-06-2009
Igorr

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

Цитата:
тот же код, но в dll, то итерации в цикле начинают идти не п опорядку и сумма считается не правильно,

У меня была аналогичная ситуация, но только не при распараллеливании, а при многопоточном расчете. Каждый поток рассчитывал свой вариант задачи и использовал загрузку одной и той-же dll. Задачи стали считаться правильно только после использования Thread Local Storage функций: TlsAlloc, TlsSetValue, TlsGetValue, TlsFree. Может и вам это поможет?

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 16:20 15-06-2009
Mav80

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
я когдато пытался писать многопоточное приможение и были погожие грабли. Каждый поток заходил в одну и туже подпрограмму (дебажить было весело). Пофиксилось добавлением слова Recursive к подпрограмме.

Всего записей: 20 | Зарегистр. 31-01-2006 | Отправлено: 16:26 15-06-2009
pir0texnik2



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем спасибо за советы.
Но решолось все по другому... Переделал алгоритм. То что я приводил выше в моей длл в разных вариантах повторялось 3 раза, т.е. последовательный участок, параллельный и так 3 раза. Переписал это дело, сделав все одиним параллельным блоком - заработало... Хотя консоль все весело переваривала...

Всего записей: 173 | Зарегистр. 27-02-2008 | Отправлено: 20:38 15-06-2009
RoenV

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем доброго времени суток!
 
Столкнулся с такой проблемой: у меня есть исходники одного проета на Фортране и мейкфайлы к нему. Издали слышал, что нужно войти в директорию с исходниками и ввести make в командной строке. Скачал gnu make, (правда, не установил - не разобрался), подскажите, пожалуйста, что вообще делать с этим makefile ом? Как по нему создать проект по имеющимся исходникам? ОС - Винда ХР, IDE - compaq visual fortran 6.6.
 
Заранее благодарю!
 
PS: в сети читал про мейкфайлы, но понял мало чего. Если не сложно, объясните что делать как можно доступнее (с такой проблемой первый раз столкнулся)

Всего записей: 2 | Зарегистр. 18-06-2009 | Отправлено: 04:26 18-06-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RoenV
есть какой-нибудь компилятор М$?
а так ничего особенного:
 
make.exe /f <твой_мейк_файл.mak>
или
mingw32-make.exe /f <твой_мейк_файл.mak>
какой ты мейкер взял?
если все библиотеки и инклуды доступны, а компилятор и линкер на пасе, то должно
собраться. если Компак инсталлирован со средой, то можешь сам переоформить проект: просто создать новый и добавить туда руками все нужные исходники фортрана...
а вообще говоря, мейк-файл написан под определённый компилятор. если это, скажем, линуксовый g95, интелом ты на халяву не соберёшь, надо переписывать руками...
 
FryMax
фортран-то какой?

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 13:50 19-06-2009 | Исправлено: akaGM, 14:26 19-06-2009
RoenV

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

Цитата:
есть какой-нибудь компилятор М$?  

Компилятор, который идет со средой Компаковской. Фиг знает, какой туда запихнут.
 

Цитата:
make.exe /f <твой_мейк_файл.mak>

У меня make.exe не запускается. Я только распаковал скачанный архив, установщика там не было. Есть несколько консольных файлов, но они что-то не много дают.
 

Цитата:
какой ты мейкер взял?

Gnu make.
 

Цитата:
можешь сам переоформить проект: просто создать новый и добавить туда руками все нужные исходники фортрана...  

Делал уже. Проект не создается по понятной причине. К примеру, типы написаны не через стандартные операторы real(8) и т.д., а REALTYPE, аналогично и с описанием длины символьных переменных. Писалось все под различные платформы, по-видимому, поэтому как-то не так типы описаны. К примеру:
 
! !PUBLIC DATA MEMBERS:
   logical,  public                    :: calc_fluxes=.false.
 
!  wind speed (m/s)
   REALTYPE, public                    :: w
 
!  surface stress components (Pa)
   REALTYPE, public                    :: tx,ty
 
!  surface short-wave radiation
!  and surface heat flux (W/m^2)
   REALTYPE, public                    :: I_0,heat
 
Вместо REALTYPE должно быть double precision ну и и так далее.
 
Думаю, различия есть еще где-то в коде, а сборка через мейк должна, скорее всего, поменять эти НЕстандартные операторы на стандартные операторы описания Фортрана.
 
 

Всего записей: 2 | Зарегистр. 18-06-2009 | Отправлено: 15:44 19-06-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RoenV
ну попробуй nmake.exe
 

Цитата:
сборка через мейк должна, скорее всего, поменять эти НЕстандартные операторы на стандартные операторы описания Фортрана.

это с какого перепуга? там какой-то препроцессор вызывается?
мейк -- это обычный скрипт, текстовый файл, в котором задаются параметры компиляции и правила сборки, а совсем не языковые конструкции. мейк о коде вообще понятия никакого не имеет, что ты мне фортрановский код цитируешь, он (.mak) написан под оределённый компилятор, давай выкладывай мейк под тегом "more"

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 16:53 19-06-2009 | Исправлено: akaGM, 19:15 20-06-2009
chariot rider

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Linking...
Text1.obj : error LNK2001: unresolved external symbol _S_PDE_1D_MG_MATRIX@32
Debug/Text1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
 
Помогите исправить ошибку... Нужно ли подключать дополнительные библиотеки?? Если да, то где их можно найти.

Всего записей: 2 | Зарегистр. 22-06-2009 | Отправлено: 16:17 22-06-2009
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
chariot rider
Ну судя по тому что гугл его не знает то библиотеку надо взять там же где вы взяли и сам проект.

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 16:39 22-06-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
chariot rider
ищи п/п или функу S_PDE_1D_MG_MATRIX в своих сорсах или бинарниках (*.obj, *.lib)
их и подключай...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 17:56 22-06-2009
Alexikit

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Подскажите пожалуйста, чем ограничен вывод информации в дочернее окно в QuickWin. Открываю дочернее окно оператором
Open(unit=10, file='user')
 и при помощи оператора  
write (10,'(A)') str1
помещаю прочитанную из файла информацию.
Но вся информация не помещается, начало теряется.  
И можно но с этим как то бороться?
 

Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 11:59 23-06-2009
chariot rider

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

Всего записей: 2 | Зарегистр. 22-06-2009 | Отправлено: 13:24 23-06-2009
Alexikit

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пожалуйста помогите с ранее заданным вопросом, то что количество строк в дочернем окне определяется windowconfig я уже поняла, но задать отдельную конфигурацию, только для конкретного дочернего окна не удается. Можно что-нибудь сделать. Или надо впринципе другие окна создавать?

Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 15:31 23-06-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
не надо подгонять, если кто может помочь, то обязательно поможет...
 
вот лично я могу дать лишь секретную наводку:
среди спецов по QuickWin здесь находится только AZA_N, так что умоляй её лично, например, через ПМ...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 16:21 23-06-2009 | Исправлено: akaGM, 16:22 23-06-2009
Открыть новую тему     Написать ответ в эту тему

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