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

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

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AZA_N
не, это не среда/мощь (вернее, немощь) компа виноваты...
именно что "неправильными строками" память чужую затирал...
 
Mav80
а зачем тебе левые пробелы? гы

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 16:25 26-02-2009
Mav80

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

Код:
 
character(8) :: str
character(1) :: nullchar = ''c
integer(4) :: i
i=10
write(str,*) i ! str = "______10"
str = trim(adjustl(str))//nullchar
 

 
чтобы его нормально отобразить в гуи

Всего записей: 20 | Зарегистр. 31-01-2006 | Отправлено: 23:47 26-02-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mav80
надеюсь, не фортрановскими средствами?
Код:
 
character(8) :: str
character(1) :: nullchar = ''c
integer(4) :: i
i=10
write(str,*) i ! str = "______10"
str = trim(adjustl(str))//nullchar ! str = "10______"
 

и когда только 2003-ий нормально пойдёт...

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 16:01 27-02-2009 | Исправлено: akaGM, 16:13 27-02-2009
Juk301

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Извините, я снова туплю.
Какую библиотеку нужно подключить, чтобы нормально работали функции типа SQRT и Arcsin(X) ?

Всего записей: 11 | Зарегистр. 23-02-2009 | Отправлено: 20:53 28-02-2009
KChernov



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

Всего записей: 2471 | Зарегистр. 20-04-2004 | Отправлено: 22:10 28-02-2009 | Исправлено: KChernov, 08:23 01-03-2009
Juk301

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не, тут что-то не то. dflib у меня подключен...
 

Всего записей: 11 | Зарегистр. 23-02-2009 | Отправлено: 00:47 01-03-2009
Mav80

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sqrt стандартная функция ничего подключать не надо.
а какой компилятор на нее ругается и как?
 
y = sqrt(x)

Всего записей: 20 | Зарегистр. 31-01-2006 | Отправлено: 02:34 01-03-2009 | Исправлено: Mav80, 02:45 01-03-2009
Juk301

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сорри, проглючило. SQRT работает нормально.
Не работает SQR, но это ладно.
Мне нужны конкретно Arcsin(X) и Atn(x)

Всего записей: 11 | Зарегистр. 23-02-2009 | Отправлено: 09:09 01-03-2009
Vskazka

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Juk301
Вы относительно какого языка спрашиваете то? Паскаля? В Фортране
Цитата:
Arcsin(X) и Atn(x)
- это asin(x) и atan(x).  
Опять же  
Цитата:
Не работает SQR, но это ладно.
- в фортране нет такой функции. есть SQRT только.
Вы бы, прежде чем переходить с одного языка на другой, посмотрели бы список встроенных функций с их обозначениями. Обозначения у разных языков разные.

Всего записей: 382 | Зарегистр. 24-11-2003 | Отправлено: 09:53 01-03-2009 | Исправлено: Vskazka, 09:57 01-03-2009
Juk301

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое!
А то у меня help смешанный для VF, VC и VB. Вот я и путаюсь...

Всего записей: 11 | Зарегистр. 23-02-2009 | Отправлено: 13:03 01-03-2009
unkind05

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте! Надеюсь на помощь) Только только осваиваю фортран (по учёбе приходится), и начало освоения началось с копирования нужной мне подпрограммы библиотеки IMSL. Данная находится на с.216 IMSL Fortran 90 Library Help ,решает,соответственно,разреженные матрицы комплексные...

При запуске текста программы описанной на этой странице винда выдаёт критическую ошибку и программа не работает. Сам найти причину не в состоянии,надеюсь на вашу помощь)

Текст программы:

INTEGER    N, NFAC, NZ
     PARAMETER  (N=6, NZ=15, NFAC=3*NZ)
     INTEGER    IPARAM(6), IPVT(N), IRFAC(NFAC), IROW(NZ), JCFAC(NFAC), &
    &           JCOL(NZ), JPVT(N), NL
     REAL       RPARAM(5)
     COMPLEX    A(NZ), FAC(NFAC)
     DATA A/(3.0,7.0), (3.0,2.0), (-3.0,0.0), (-1.0,3.0), (4.0,2.0), &
    &     (10.0,7.0), (-5.0,4.0), (1.0,6.0), (-1.0,12.0), (-5.0,0.0), &
    &     (12.0,2.0), (-2.0,8.0), (-2.0,-4.0), (-1.0,2.0), (-7.0,7.0)/
     DATA IROW/6, 2, 2, 4, 3, 1, 5, 4, 6, 5, 5, 6, 4, 2, 5/
     DATA JCOL/6, 2, 3, 5, 3, 1, 1, 4, 1, 4, 5, 2, 1, 4, 6/
     IPARAM(1) = 0
     CALL LFTZG (N, NZ, A, IROW, JCOL, IPARAM, RPARAM, NFAC, NL, FAC, &
    &            IRFAC, JCFAC, IPVT, JPVT)
     CALL WRCRN ('fac',NFAC,1,FAC,NFAC,0)
     CALL WRIRN (' irfac ', 1, NFAC, IRFAC, 1, 0)
     CALL WRIRN (' jcfac ', 1, NFAC, JCFAC, 1, 0)
     CALL WRIRN (' p ', 1, N, IPVT, 1, 0)
     CALL WRIRN (' q ', 1, N, JPVT, 1, 0)
     END

Всего записей: 3 | Зарегистр. 10-03-2009 | Отправлено: 21:39 10-03-2009
XPEHOMETP

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Фигню написал, не сразу понял, что у Вас Fortran77
 
З.Ы.: А может, в этом и дело? Обращения к используемым функциям imsl разные в Фортране-77 и Фортране-90. Может, все прописано для F77, а запихивается в компилятор F90?

Всего записей: 2485 | Зарегистр. 21-06-2005 | Отправлено: 22:14 10-03-2009 | Исправлено: XPEHOMETP, 22:26 10-03-2009
unkind05

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да,этот факт может иметь место. Но как мне сделать чтобы запускалась на Фортране-90,не подскажете? Вообще забавная штука - вся группа скопировала свои примеры - и все примеры работают. И только этот 1 - нет. Не знаю что делать(

Всего записей: 3 | Зарегистр. 10-03-2009 | Отправлено: 22:47 10-03-2009 | Исправлено: unkind05, 22:49 10-03-2009
KChernov



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А если явно задать компилятору 77/90 фортраны?
Ещё не уверен, что можно при переносе ставить 2 & подряд.

Всего записей: 2471 | Зарегистр. 20-04-2004 | Отправлено: 23:17 10-03-2009
unkind05

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
при переносе - точно можно. позвольте не объяснять,дело точно не в этом.) Как задать компилятору 77/90 фортраны - не знаю к сожалению(... может,кто-то попробует текст программы запустить у себя?

Всего записей: 3 | Зарегистр. 10-03-2009 | Отправлено: 23:25 10-03-2009
KChernov



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

Цитата:
Как задать компилятору 77/90 фортраны - не знаю к сожалению(

В настройках проекта должно быть (у Компака/Интела точно есть).

Всего записей: 2471 | Зарегистр. 20-04-2004 | Отправлено: 09:57 11-03-2009
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unkind05
 
/f66 -- самая лучшая опция! (типа шутка)
 
/stand:[f90][f95][f203] без скобок естественно
/f77
 
а вообще, достаточно расширения исходника .f90 или .f95
 
ну и конечно, надо смотреть с чем линкуется, хотя, это неважно при условии одинакового интерфейса, может ты библиотеку для IA64 использовал или вместо сингловой двойную точность, надо по месту смотреть...
 
KChernov

Цитата:
Ещё не уверен, что можно при переносе ставить 2 & подряд.

если ты об
 
 call(
&
&
 
то, афаир, дефолт -- 6 строк переноса, а если об:
 
 call(... &
&...
 
то это маленькая программ.хитрость
ставь перенос на 74 позиции и у тебя он будет работать как в "фиксед", так и во "фри-форм"

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 16:07 11-03-2009 | Исправлено: akaGM, 17:06 11-03-2009
XPEHOMETP

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это не маленькая программистская хитрость, это именуется смешанным форматом. Когда, кроме того, комментарии пишут после восклицательного знака, но за 72 позицией. И еще там что-то есть. Позволяет безболезненно мешать код как с фиксированным, так и со свободным форматом записи.

Всего записей: 2485 | Зарегистр. 21-06-2005 | Отправлено: 16:58 11-03-2009 | Исправлено: XPEHOMETP, 16:58 11-03-2009
akaGM

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

Всего записей: 24056 | Зарегистр. 06-12-2002 | Отправлено: 17:03 11-03-2009 | Исправлено: akaGM, 17:05 11-03-2009
vaulin

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Никто не в курсе, какая функция служит для измерения процессорного времени в g95? другими словами, мне нужна функция аналогичная cpu_time()

Всего записей: 80 | Зарегистр. 16-10-2008 | Отправлено: 11:51 12-03-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