VPF::[General] Файл Fortran binary -> в ASCII? - Форум программистов

kemiisto

Дата 6.9.2010, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160

Цитата(ertttttt @ 6.9.2010, 12:35

)

Жалуется на "<>". Как будет "не равно"?

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

ertttttt

Дата 10.9.2010, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 31.8.2010

Репутация: нет
Всего: нет

Не пойму на что жалуется. Если убрать ERR = 901 работает. Раньше и так работало.

Разобрался, строки не хватало
901 CLOSE(11); CLOSE(12); WRITE(*,*) 'FILES HAVE BEEN CLOSED!'

Код


    program Flow

    implicit none

    INTEGER(4) :: NUM,NUMG,I
    CHARACTER(4) :: CHTYPE
    REAL(4),    ALLOCATABLE  :: FLOOILI_P(:)
    REAL(4),    ALLOCATABLE  :: FLOOILJ_P(:)
    REAL(4),    ALLOCATABLE  :: FLOWATI_P(:)
    REAL(4),    ALLOCATABLE  :: FLOWATJ_P(:)
    CHARACTER(8) :: CHNAME
    CHARACTER(50) :: FNAME

    WRITE(*,*) 'ENTER FILENAME';READ(*,*) FNAME

    OPEN( 11, FILE=FNAME, FORM="UNFORMATTED" ,  &
                   CONVERT = "BIG_ENDIAN", ACTION = "READ")

    FNAME='TEXT_'//FNAME
    OPEN( 12, FILE=FNAME, FORM="FORMATTED" )

    READ (11) CHNAME, NUM, CHTYPE
    
    DO WHILE (not (EOF(11)))

        READ (11,ERR = 901) CHNAME, NUM, CHTYPE

    ENDDO

    end program Flow

Код


--------------------Configuration: Flow - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\Flow\Flow.f90
C:\Program Files\Microsoft Visual Studio\MyProjects\Flow\Flow.f90(26) : Error: This label is undefined.   [901]
  READ (11,ERR = 901) CHNAME, NUM, CHTYPE
-------------------------------^
Error executing df.exe.

Flow.exe - 1 error(s), 0 warning(s)

Это сообщение отредактировал(а) ertttttt - 10.9.2010, 11:30

Mormishka

Дата 1.11.2011, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 236
Регистрация: 25.8.2010

Репутация: нет
Всего: нет

Опять поднимаю тему, т.к. сейчас возникла необходимость написать программу на си. Не очень понимаю как устроена запись в определенном формате в Фортране. Что значит например запись integer в формате 6(1X,I11) ?

Фантом

Дата 1.11.2011, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 5
Всего: 49

Цитата(Mormishka @ 1.11.2011, 23:06

)

Что значит например запись integer в формате 6(1X,I11) ?

Такого не бывает. Формат, который Вы указали - это шестикратное повторение одного пробела и целого с 11 позициями.

Mormishka

Дата 2.11.2011, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 236
Регистрация: 25.8.2010

Репутация: нет
Всего: нет

Фантом,
Я вот начал на СИ считывать и в hex редакторе смотреть файл который в топике. Я понял, что фортрана свой какой формат записи в бинарном виде? Как можно на си прочитать что было записано на фортране?

Фантом

Дата 2.11.2011, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 5
Всего: 49

Цитата(Mormishka @ 2.11.2011, 11:47

)

Я вот начал на СИ считывать и в hex редакторе смотреть файл который в топике. Я понял, что фортрана свой какой формат записи в бинарном виде? Как можно на си прочитать что было записано на фортране?

Э... Вы сами поняли то, что написали? Я - не очень.

"Своего какого формата" нет, и мы это уже обсуждали.

Mormishka

Дата 2.11.2011, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 236
Регистрация: 25.8.2010

Репутация: нет
Всего: нет

В общем проблему почти решил. Оказывается при записи блока памяти на фортране записывается 4 байта в начале и в конце еще 4 байта.
Кому интересны подробности можете прочитать Fortran format c++

Это сообщение отредактировал(а) Mormishka - 2.11.2011, 17:24

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Fortran \| Следующая тема »