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

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

если вам вдруг не отвечают или ответ вас не устраивает
и вообще полезно прочитать всем спрашивающим
 
просьба к пишущим и отвечающим все большие листинги оформлять тегом more
и отключать графические смайлики при размещении фортран-кода
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 18:11 14-01-2007 | Исправлено: akaGM, 15:26 15-05-2024
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, библиотека с камими "дабл прецизион" :) компилировалась?
Всего записей: 24173 | Зарегистр. 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
akaGM

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

Цитата:
На этой строке даёт ошибку
какую, телепатическую?
 
call get_command_argument(1, arg1)
call get_command_argument(2, arg2)
 
запускать надо так:
my_super_program.exe arg1 arg2
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 19:21 20-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM
Для чего строка, понятно.
И как запускать тоже  
При компиляции пишет неопознанная команда. (потому и  запускать нечего).
В описании написано   -  работает в гфортране не ниже 2003.
Поставил такую галочку при компилировании. Всё равно не понимает.
Хоть особо и не требуется, но желательно.
my_super_program в слезах!
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 19:31 20-04-2021 | Исправлено: aur1, 00:07 25-04-2021
akaGM

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

Код:
 
! gfortran
       
      implicit none
       
      character(len = 32) arg
      real*8 a1, a2
 
      call get_command_argument(1, arg)
      read(arg, *) a1
      call get_command_argument(2, arg)
      read(arg, *) a2
 
      print *, 'arg1 = ', a1
      print *, 'arg2 = ', a2
 
      end

проще вряд ли...
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 20:42 20-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM
Проверю у себя завтра.
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 21:36 20-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всё работает.
Нужно было в папку проекта добавить несколько dll.
Вопрос закрыт.
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 10:43 21-04-2021
akaGM

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

Цитата:
добавить несколько dll
опять длл...
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 11:01 21-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да.
Для запуска exe приходится рядом помещать все треб. dll.
Может подскажете что, чтоб упаковать всё в один exe.
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 11:55 21-04-2021 | Исправлено: aur1, 11:56 21-04-2021
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в принципе должно работать
 
-static-libgfortran
 
но это зависит как сам гфортран собирался...
а так линкеру надо передать "-static" опцию...
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 12:37 21-04-2021 | Исправлено: akaGM, 12:37 21-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всё скомпилировалось.
 
x86_64-w64-mingw32-gfortran.exe -Jobj\Release\ -Wall  -ffast-math -fbackslash -Wall -pg  -flto -O2    -c D:\CDBFortran\Project\f_test_wsp\main.f90 -o obj\Release\main.o
x86_64-w64-mingw32-gfortran.exe  -o bin\Release\f_test_wsp.exe obj\Release\main.o  -pg -lgmon -flto -static-libgfortran
 
Но без библиотек всё равно не работает.
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 13:04 21-04-2021 | Исправлено: aur1, 13:07 21-04-2021
akaGM

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

Цитата:
Но без библиотек всё равно не работает.
мне жаль,
что тебе придётся самому разбираться...
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 13:28 21-04-2021
aur1

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это можно пережить.
Всего записей: 56 | Зарегистр. 28-08-2007 | Отправлено: 14:08 21-04-2021
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
когда уже всё исчерпано, самое время вкурить мануал...
Всего записей: 24173 | Зарегистр. 06-12-2002 | Отправлено: 14:47 21-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

Рейтинг.ru