[Fortran] Скомпилировать win32 приложение

[Dj_Leff]

Сообщение от Vago

О, Господи!..

ФАЙЛ С ИСХОДНЫМИ ДАННЫМИ мне дай, пожалуйста!! Или напиши (если их только с консоли вводили), ЧТО (КАКИЕ ЧИСЛА) ВВОДИТЬ?!

Added 20:52 CET:
Ещё раз "О, Господи!" - она только с консолью и умеет работать!...

Оператор open сделай таким:

      open(1,file = 'con' )

Больше, не имея конкретных исходных данных, я не могу сказать ничего.

Привет еще раз. Извини, сразу не понял тебя, исходник прикрепляю.
Программа действительно работала через Norton Commander.
В изначальном варианте нужно было вводить имя файла.
Но как изменить open(1,file = ' ' ), чтобы программа читала имя файла с клавиатуры?

[Vago]

Сообщение от Dj_Leff

В изначальном варианте нужно было вводить имя файла.
Но как изменить open(1,file = ' ' ), чтобы программа читала имя файла с клавиатуры?

1. Где-нибудь, вверху текста, среди деклараций, вставляешь

	character*256 file1Name

2. После оператора pause добавляешь что-то типа

      print *, 'Enter the input file name (con for console) ?'
      read *, file1Name

3. Оператор open делаешь таким:

      open(1,file = file1Name)

[Dj_Leff]

Сообщение от Vago

1. Где-нибудь, вверху текста, среди деклараций, вставляешь

	character*256 file1Name

2. После оператора pause добавляешь что-то типа

      print *, 'Enter the input file name (con for console) ?'
      read *, file1Name

3. Оператор open делаешь таким:

      open(1,file = file1Name)

Хорошо, с этим разобрался. Сделал. Но программа должна читать и записывать данные в один и тот же файл. Но ничего не происходит. Что то подсказывает мне что виной во всем этом кодировка. Как считаешь?

[Dj_Leff]

При построении задал кодировку Кириллица(DOS). Теперь экзешник на русском. Но при чтении наверно все же видит только кракозябры, и поэтому отказывается работать. Как исправить?

[Vago]

Сообщение от Dj_Leff

Но программа должна читать и записывать данные в один и тот же файл.

Не слишком мудрое решение, но, в принципе, ничего смертельного. Будет дописываться и дописываться, и дописываться...

Сообщение от Dj_Leff

Но ничего не происходит. Что то подсказывает мне что виной во всем этом кодировка. Как считаешь?

Сомневаюсь. Там только две символьные переменные - sym и text. Ни та, ни другая в операторах сравнения, по-моему, не встречаются.

Ищи льва в пустыне, - что ещё можно посоветовать.... В смысле - локализуй место ошибки. Отладочные принты на консоль или <F9>, <F5>, <F10> - в Студии....

Added 11:58 CET:
Я, для комбинации исходника TMOGI_02.FOR из #1 и входных данных DATA_02.02 из #11, получаю сообщение

Число ненулевых элементов матрицы условных уравнений            114
Ошибка при чтении вектора весов

Added 12:32 CET:
Крутi хлопцi у вас там, у Пермi!! И это ж не студенты, явно, писали!...

Использовать eof() для выхода из цикла чтения, заведомо зная, что по eof() не выйдешь, а вместо этого - выходить по ошибке!!..

Во входном файле: заканчивается колонка по три числа. Потом идёт пустая строка. Потом - какой-то комментарий (неважно какой). Потом - 35 чисел. Так вот, в этой самой пустой строке набей хотя бы один (неважно какой) символ:

...
9 35  0.976
*
‚ҐЄв®а ўҐб®ў:
1 1 1 1 1 1 1 1 1 1.345 1.281 0.955 0.586 1.041 1.826 1.517 1.261 1 1 1 1 1 2.035 1.353 1.105 1.936 1 1 1 1 1 1.047 1.001 0.815 0.767
‚ҐЄв®а *Ґўп§®Є:
...

[Dj_Leff]

Сообщение от Vago

Не слишком мудрое решение, но, в принципе, ничего смертельного. Будет дописываться и дописываться, и дописываться...


Сомневаюсь. Там только две символьные переменные - sym и text. Ни та, ни другая в операторах сравнения, по-моему, не встречаются.

Ищи льва в пустыне, - что ещё можно посоветовать.... В смысле - локализуй место ошибки. Отладочные принты на консоль или <F9>, <F5>, <F10> - в Студии....

Added 11:58 CET:
Я, для комбинации исходника TMOGI_02.FOR из #1 и входных данных DATA_02.02 из #11, получаю сообщение

Число ненулевых элементов матрицы условных уравнений            114
Ошибка при чтении вектора весов

Спасибо, я тоже заметил что тормозит при чтении вектора весов.
Но оригинальный экзешник читает data_02.02 и считает без проблем.
Значит нужно подправить чтение вектора весов. Но я ума не приложу, например, что за условие ierr.ne.0, подскажи что нужно подправить?

[Vago]

Разминулись... См. Added 12:32 CET: выше, в моём #15.

[Dj_Leff]

Сообщение от Vago

Разминулись... См. Added 12:32 CET: выше, в моём #15.

Спасибо, дорогой друг!!! Все получилось(наконец-то))) и работает!!!
Только не пойму с этим eof(), он ведь еще ниже в коде встречается, где чтение весовых функций. Или там пофиг, потому, что считывание данных заканчивается?
А вы бы как поступили с циклами, где eof()? На что бы заменили?

[Vago]

Сообщение от Dj_Leff

Спасибо, дорогой друг!!! Все получилось(наконец-то))) и работает!!!

Пожалуйста Замечательно Поздравляю!

Сообщение от Dj_Leff

Или там пофиг, потому, что считывание данных заканчивается?

Да. Именно так.

Сообщение от Dj_Leff

А вы бы как поступили с циклами, где eof()? На что бы заменили?

Надо подумать Но вот входной и выходной файлы - разделил бы всенепременно.