Вопросы программирования на FORTRAN (ФОРТРАН) - [84] :: Прикладное программирование :: Компьютерный форум 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
и отключать графические смайлики при размещении фортран-кода

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

akaGM Platinum Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору вообще говоря IMSL и НАГ можно купить как опенсорс, по кр. мере мы в своё время их приобрели для своих VAX'ов
	Всего записей: 24106 \| Зарегистр. 06-12-2002 \| Отправлено: 14:14 19-02-2010

Advanced Member

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

Цитата:

вообще говоря IMSL и НАГ можно купить как опенсорс, по кр. мере мы в своё время их приобрели для своих VAX'ов

Вообще-то это было давно - я до сих пор немного жалею, что не сохранил исходники IMSL c одного буржуйского компа. Но теперь исходники IMSL и NAG не дают, если кто-то знает другое - пусть напишет. Во-вторых ценность старых исходников нулевая - они написаны под другое железо и на новом будут неоптимальны.
Ну собственно поэтому исходники и не дают : неоптимальные никому не нужны, а оптимальные - это коммерческий секрет.

Всего записей: 995 | Зарегистр. 06-12-2002 | Отправлено: 09:50 28-02-2010

Silver Member

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

ValterG

Цитата:

Во-вторых ценность старых исходников нулевая - они написаны под другое железо и на новом будут неоптимальны.

ifort -parallel -O3 ... -mtune=... -march=... (по желанию) и легким движением руки брюки превращаются...

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 16:05 28-02-2010 | Исправлено: terminat0r, 16:06 28-02-2010

Dod Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Уважаемые корифеи! Посоветуйте, пожалуйста, как приучить Silverfrost FTN95 к кириллице. Даже в комментариях он ее не терпит.
	Всего записей: 51 \| Зарегистр. 25-09-2002 \| Отправлено: 19:33 01-03-2010

Silver Member

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

Dod
подождать когда он станет FTN03
Fortran 2003
open(output_unit,encoding='utf-8')

конкретно сказать ничего не могу, так как за 8 лет еще ни разу не писал в программе кирилицей. Думаю, лучше спросить на сайте forums.silverfrost.com

хотя цитирую оффсайт
Plato Version 4 now supports Unicode.

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 15:30 02-03-2010 | Исправлено: terminat0r, 15:33 02-03-2010

Vskazka

Member

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

Dod
А зачем Вам там комментарии на кирилице? Чем интересен этот компилятор, так это диагностикой в реальном времени. Покруче интеловского кое какие ошибки ищет. Релизы на нем делать... Сравнивал, не стоит.

Всего записей: 382 | Зарегистр. 24-11-2003 | Отправлено: 17:24 02-03-2010

dmmarch

Newbie

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

Добрый день всем,
Вчера поставил интеловский фортран и решил перекомпилировать весь свой софт. Появилась проблема обнуления строки при выводе каунтера на экран. Например :
IF(screen) then
if(i==10*(i/10)) WRITE(*,"('+',i10)") DataHeader%numdat-i
end if
компилятор ifort принимает '+' как character и каждое новое значение выводит с новой строки. До этого пользовался лахеем без всяких проблем. Буду очень благодарен если кто подскажет как "держать" строку
Заранее спасибо

Всего записей: 7 | Зарегистр. 19-09-2009 | Отправлено: 23:16 02-03-2010

terminat0r Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dmmarch не уверен, но может быть что-то подойдет отсюда http://objectmix.com/fortran/371073-progress-bar-fortran.html
	Всего записей: 2084 \| Зарегистр. 31-03-2002 \| Отправлено: 02:21 03-03-2010

akaGM

Platinum Member

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

dmmarch
если я правильно понял, то тебе должен помочь дескриптор '\'
т.е. что-то типа
'( i10, \)'

ValterG
Цитата:

Во-вторых ценность старых исходников нулевая.

ну-ну...

Всего записей: 24106 | Зарегистр. 06-12-2002 | Отправлено: 13:14 03-03-2010 | Исправлено: akaGM, 13:27 03-03-2010

Vskazka

Member

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

dmmarch
Собственно, ранее здесь все это обсуждалось. И было предложено два способа, один из которых указал akaGM (кстати о птичках
Цитата:

ну-ну...

- абсолютно согласен). Ниже привожу код, который тогда набрасал для опробывания обоих способов

implicit none
character*1 charCR
PARAMETER (charCR = char(13)) !CarriageReturn
integer i
character*8 str ! 8-ой чар -- это backspace
str = char(8)//char(8)//char(8)//char(8)//char(8)//char(8)//char(8)//char(8)

do i = 1, 200
write(*,200) str, i
enddo
200 format (A8,I8\)

do i = 1, 20
write(*, 100) i, charCR
enddo

100 format ('step=',I8, A1\)

Всего записей: 382 | Зарегистр. 24-11-2003 | Отправлено: 13:45 03-03-2010

akaGM Platinum Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dmmarch да, точно страница 45 этого топа: http://forum.ru-board.com/topic.cgi?forum=33&topic=7860&start=886
	Всего записей: 24106 \| Зарегистр. 06-12-2002 \| Отправлено: 14:01 03-03-2010

beam2005

Junior Member

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

Недавно при переводе фортрановской программы (Quick Win), написанной на Compaq Visual Fortran 6.6c, на Intel Visual Fortran, столкнулся со следующей проблемой. В программе для графического представления результатов численного моделирования предусмотрено открытие нескольких окон с графиками, с которыми связана процедура, фиксирующая события перемещения «мыши» и отображающая в строке состояния координаты курсора «мыши». Так вот, в Compaq Visual Fortran по окончании работы эти окна всегда закрываются (close), а в Intel Visual Fortran не всегда. Причем это происходит случайным образом. Может кто-нибудь сталкивался с такой проблемой?

Всего записей: 85 | Зарегистр. 26-07-2005 | Отправлено: 16:16 03-03-2010

akaGM

Platinum Member

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

beam2005
попробуй поменять тип создаваемого проекта:
Standard Graphics Application/QuickWin Application/Console Application
что-то точно должно корректно работать

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

Всего записей: 24106 | Зарегистр. 06-12-2002 | Отправлено: 16:57 03-03-2010 | Исправлено: akaGM, 17:14 03-03-2010

StudeAlex

Junior Member

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

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

Всего записей: 41 | Зарегистр. 08-03-2010 | Отправлено: 12:03 08-03-2010

Vskazka

Member

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

beam2005
akaGM
Ребята, а на кой ляд плюсы изобретали. Фортран хорош во всем, что касается вычислений. Но писать на нем внешние оболочки по-моему - это некоторое извращение. (Общее впечатление. Как-то пытался)
StudeAlex
Нет конкретики, о том какая задача и как структурированы вектора. Ежели они заполнены случайным образом, то таки да, Вам ничего не остается делать, как запоминать все. Если же есть другие какие-то условия, то... В любом случае, похоже Ваша задача не програмисткая, а алгоритмическая. И даже у Кнута Вы ее не найдете. Так что изобретать Вам
В конце концов задача о коммивояжере, как стояла, так и стоит. И в полной постановке - кто знает, разрешима ли (имеется в виду полиномиальное затраты ресурсов). а Вы похоже что-то такое затеяли разгребать

Всего записей: 382 | Зарегистр. 24-11-2003 | Отправлено: 18:00 09-03-2010 | Исправлено: Vskazka, 18:07 09-03-2010

Dudus

Junior Member

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

Товарищи, такая задача. Есть в большом файле разные числа - с десятичной точкой и без нее.
Требуется прочитать все числа из файла в вещественный массив. По формату '(f)' числа с точкой читаются нормально, но числа без точки усваиваются неверно. Что делать?

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

Код...

Всего записей: 126 | Зарегистр. 10-12-2004 | Отправлено: 22:33 09-03-2010

Advanced Member

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

Dudus

Код:

real :: f
do ...
read(1,*) f
end do

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 22:38 09-03-2010

yurpos

Newbie

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

Подскажите, пожалуйста, что я неправильно делаю - при выводе в FPS4.0 строк с русскими буквами на экране получается какая-то абракадабра, как это исправить?

Всего записей: 1 | Зарегистр. 10-03-2010 | Отправлено: 02:08 10-03-2010

Vskazka Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Dudus Вы бы прочитали, что значит unit=1 по умолчанию... В фортране. Сишные тут переменные не работают.
	Всего записей: 382 \| Зарегистр. 24-11-2003 \| Отправлено: 10:32 10-03-2010

Dudus Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору FuzzyLogic спасибо Vskazka при чем тут сишные переменные? Да и умолчания тоже вроде нет.
	Всего записей: 126 \| Зарегистр. 10-12-2004 \| Отправлено: 12:36 10-03-2010

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

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

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