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

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

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

akaGM

Platinum Member

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

aur1

Цитата:

проверь свою любимую double precision, сколько она байт размером

т.е. тебя волнуют только вопросы, кот. _ты_ задаёшь, да ещё совершенно безличностным образом...

ок

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 11:33 17-04-2021 | Исправлено: akaGM, 11:33 17-04-2021

aur1

Junior Member

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

akaGM
Согласен, надо проверить на соответствие "любимую" double precision, сколько она байт размером.
Только сейчас нет возможности. Доступ только к форуму.

Функция с возвратом только одного значения double precision сработала Она вызывалась первой.

double precision - это из описания возвращаемых значений функций.

Обезличенные вопросы - это от неопытности здешнего общения.
В диалог включаются разные люди.
Хотя у меня получается, что я продолжаю общаться с одним человеком, с которым начат диалог.

Надо обдумать полученную инфу.
Спасибо за конструктивные подсказки.

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 13:09 17-04-2021 | Исправлено: aur1, 16:55 17-04-2021

akaGM

Platinum Member

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

aur1

Цитата:

функция (wspSPT) с одним возвращаемым параметром

это возвращаемое значение функции, а не значение...
параметры -- это var, val, типа по ссылке и по значению...

ret = func(val, var)

Цитата:

это от неопытности здешнего общения
28-08-2007 | Отправлено: 13:09 17-04-2021

да, 14 лет -- не срок...

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 16:00 17-04-2021

aur1

Junior Member

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

akaGM
Да, особенно если посмотреть разницу не между датой регистрации(тогда даже больше 14лет) и текущим сообщением, а временную разницу между соседними сообщениями. Вы же не думаете, что я все 14лет ежедневно строчил комменты.

Согласен с вами.
Я не верно написал. Не параметры. Скверная привычка обзывать параметрами все, что в скобках.
Тип данных возвращаемый функцией.
Вам сам бог велел это лучше знать.

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 16:13 17-04-2021 | Исправлено: aur1, 17:04 17-04-2021

akaGM

Platinum Member

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

aur1

хорошо...
тогда сделай так как говорит ne_viens:

Код:

!gcc$ attributes stdcall :: iwspVUSHCVWDERPTP
real*8, intent(in) :: p
real*8, intent(in) :: t
real*8 :: v
real*8 :: u
real*8 :: s
real*8 :: h
real*8 :: Cv
real*8 :: w
real*8 :: DVDPt
real*8 :: DUDPt
real*8 :: DSDPt
real*8 :: DHDPt
real*8 :: DVDTp
real*8 :: DUDPTp
real*8 :: DSDPTp
real*8 :: DHDTp

т.е положись на исполение дефолтных calling convention гфортраном...

Добавлено:

нашёл...

в вызове надо использовать две ключ. метакоманды:
%VAL и %REF или %LOC

ret = func(%VAL (parameter_by_value), %REF(parameter_by_reference))

или %LOC, лично я сам не понял когда что...

Добавлено:

опять кривожопо сделано -- не один раз в интерфейсе описать, а заморачиваться при каждом
вызове...

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 18:46 17-04-2021

ne_viens

Advanced Member

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

%VAL и %REF или %LOC не надо использовать, всё прекрасно работает и без них:
ret = wspVUSHCVWDERPTPT(p, t, v, u, s, h, Cv, w, DVDPt, DUDPt, DSDPt, DHDPt, DVDTp, DUDPTp, DSDPTp, DHDTp)

И намного проще будет: code
Так как не царское это дело дллы загружать и функции искать, пусть этим занимается системный загрузчик.

Пример 64битный, так как в okawsp6.pas неправильные прототипы приведены, и на 32 битах работать не будут.
Можно исправить перлом или питоном, но муторно всё это.

Всего записей: 1530 | Зарегистр. 01-11-2004 | Отправлено: 09:38 19-04-2021 | Исправлено: ne_viens, 09:45 19-04-2021

aur1

Junior Member

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

akaGM
Для непонятливых
Поясните, пожалуйста, по подробнее с вызовом
а то пишу (это я про себя) непонято что

call c_f_procpointer(cProc,wspVUSHCVWDERPTPT)
p = 36000000.0
t = 410.1
ret=wspVUSHCVWDERPTPT ( p, t,&
&%VAL(v), %REF(v), &
&%VAL(u), %REF(u), &
&%VAL(s), %REF(s), &
&%VAL(h), %REF(h), &
&%VAL(Cv), %REF(Cv), &
&%VAL(w), %REF(w), &
&%VAL(DVDPt) , %REF(DVDPt),&
&%VAL(DUDPt) ,%REF(DUDPt), &
&%VAL(DSDPt) ,%REF(DSDPt), &
&%VAL(DHDPt) ,%REF(DHDPt), &
&%VAL(DVDTp) ,%REF(DVDTp), &
&%VAL(DUDPTp),%REF(DUDPTp),&
&%VAL(DSDPTp),%REF(DSDPTp),&
&%VAL(DHDTp) ,%REF(DHDTp) )

print *, v
print *, u
print *, DVDPt
print *, ret
print *, p

ne_viens
Я так понимаю (что не так поправьте пожалуйста)
Вы предлагаете из okawsp6.pass, делать okawsp6.h с помощью Delphi2Cpp
Создать(Make) из okawsp6.c и okawsp6.def okawsp6.h
Скомпилировать OKAWSP6_64.lib
и работать с 64bit lib.
Ни разу такого не делал.
Но все когда то бывает в первый раз.

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 12:38 19-04-2021 | Исправлено: aur1, 13:10 19-04-2021

akaGM

Platinum Member

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

aur1

ret=wspVUSHCVWDERPTPT( %VAL(p), %VAL(t), &
& %REF(v), &
& %REF(u), &
& %REF(s), &
& %REF(h), &
& %REF(Cv), &
& %REF(w), &
& %REF(DVDPt),&
& %REF(DUDPt), &
& %REF(DSDPt), &
& %REF(DHDPt), &
& %REF(DVDTp), &
& %REF(DUDPTp),&
& %REF(DSDPTp),&
& %REF(DHDTp) )

я не очень понял вопрос, ты вот это имел в виду?

Добавлено:

ne_viens

без имплиситов тоже всё работает, да и без прототипов, зачем они?

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 12:47 19-04-2021

aur1 Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору akaGM вот теперь ясно. Сделал. Все равно возвращает нули.
	Всего записей: 56 \| Зарегистр. 28-08-2007 \| Отправлено: 12:59 19-04-2021 \| Исправлено: aur1, 13:15 19-04-2021

akaGM

Platinum Member

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

aur1

Цитата:

Вы предлагаете из okawsp6.pass, делать okawsp6.h с помощью Delphi2Cpp
...
Ни разу такого не делал.
Но все когда то бывает в первый раз.

может проще вообще на дельфи писать?
а то ещё тебе придётся и скрипты фигачить :)
Цитата:

Можно исправить перлом или питоном

всё это называется простым словом: "садо-мазо-онанизм"...

Добавлено:
так сделай так как говорит ne_viens и успокойся...

Цитата:

И намного проще будет: code

Добавлено:

Цитата:

Сделал.
Все равно возвращает нули.

тогда замени все %REF() на %LOC()
и больше я не знаю чем тебе помочь...

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 13:21 19-04-2021

aur1

Junior Member

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

akaGM,
ne_viens

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

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 14:27 19-04-2021 | Исправлено: aur1, 14:33 20-04-2021

ne_viens

Advanced Member

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

Как получилось или нет?
Причина может быть в не до конца отломленой 32-бит OKAWSP6.dll , если она та самая из магнетлинка.
wspSPT() рабочая, а wspVUSHCVWDERPTPT() - нет.
У меня в 64-битах работают оба варианта, и с динамической и с статической линковкой.

Всего записей: 1530 | Зарегистр. 01-11-2004 | Отправлено: 14:37 19-04-2021

aur1

Junior Member

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

ne_viens
На gfortrane
не получилось,
имеется ввиду для wspVUSHCVWDERPTPT
выдаёт нули и для 32 и 64bit.

Для wspSPT, то есть когда возврат одного значения все работает и на 32 и на 64bit.

На 64bit (okawsp6_64.dll) у меня недоотломленная - задерка 5сек.
Линкую только динамически.

На с++ 32bit работает
вот код
Подробнее...
На С++ 64bit не пробовал.
Щас попробую

На С++ 64bit видно недоотломленная выдало нули
имеется ввиду для wspVUSHCVWDERPTPT

Для функций возвращающих одно значение это сработало.

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 14:48 19-04-2021 | Исправлено: aur1, 17:00 19-04-2021

ne_viens Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Там тайпдефы неправильные для __stdcall , смотри мой пример для C выше.
	Всего записей: 1530 \| Зарегистр. 01-11-2004 \| Отправлено: 15:00 19-04-2021 \| Исправлено: ne_viens, 15:02 19-04-2021

aur1

Junior Member

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

ne_viens
А почему на 32bit сработало?

Сделал на 64bit
typedef double (__stdcall *pfn_wspVUSHCVWDERPTPT)(double, double,
double *,
double *,
......

double test= wspVUSHCVWDERPTPT(p, t, &v, &u, ...

Опять нули.
Дайте, пожалуйста, ссылку на правительную okawsp6_64.dll

На всякий случай, может компилирую криво?
Вот опции компилятора
g++.exe -Wall -fexceptions -std=c++11 -g -ID:\CODEBLOCKS -c D:\CDBFortran\Project\cpp_test\main.cpp -o obj\Debug\main.o
g++.exe -o bin\Debug\cpp_test.exe obj\Debug\main.o -static-libstdc++ -static-libgcc -static

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 16:38 19-04-2021 | Исправлено: aur1, 16:45 19-04-2021

akaGM

Platinum Member

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

aur1

Цитата:

А почему на 32bit сработало?

а потому что sizeof(double) может быть как 8, так и 16, библиотека с камими "дабл прецизион" :) компилировалась?

Всего записей: 24114 | Зарегистр. 06-12-2002 | Отправлено: 16:47 19-04-2021

ne_viens

Advanced Member

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

Цитата:

Дайте, пожалуйста, ссылку на правительную okawsp6_64.dll

В личку отправил, тут не варезная ветка.

1. __stdcall в 64 битах не существует. В 32 битах, если его в таипедефе не прописать, поломается стек, что приведёт к ошибке сегментации.
2. У тебя до этого были рабочими только некоторые функции из 32-битного OKAWSP6.dll , wspVUSHCVWDERPTPT() небыла в их числе.

Всего записей: 1530 | Зарегистр. 01-11-2004 | Отправлено: 16:56 19-04-2021 | Исправлено: ne_viens, 17:09 19-04-2021

aur1

Junior Member

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

Ок.
Спасибо.
Щас опробую.

Добавлено:
Здорово!
В C++ 64bit сработало.
Щас в gfortrane пробую.

ne_viens
gfortran 64bit статич линковка - сработало.

При динамической не видит функции (dll находится в папке проекта)

Пишет
undefined reference to `wspSETCHECKRANGEMODE'
undefined reference to `wspSPT'
undefined reference to `wspVUSHCVWDERPTPT'

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 17:01 19-04-2021 | Исправлено: aur1, 14:24 20-04-2021

ne_viens Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Есть какие-то особые предпочтения для использования динамической?
	Всего записей: 1530 \| Зарегистр. 01-11-2004 \| Отправлено: 15:02 20-04-2021

aur1

Junior Member

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

ne_viens
Абсолютно ни каких. Всё работает.
При явно прописанном интерфейсе динам линк работает.
Вопрос закрыт.
Большое спасибо Вам и akaGM.

Чисто из любопытства.
На этой строке даёт ошибку.
call get_command_argument(1, arg)

Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 15:16 20-04-2021 | Исправлено: aur1, 16:25 20-04-2021

Открыть новую тему

Написать ответ в эту тему

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