Программа с Windows на LINUX - проблема с файлами. Fortran

Не знаю поможет вам или нет, вот ссылка о том как устроен unformatted http://local.wasp.uwa.edu.au/~pbourke/dataformats/fortran/ , в линуксе с ifort доступна опция form=binary как для чтения, так и для записи, которая не содержит header'ов(то есть пишет только значения и файл получается такой же как и в си). Думаю, что не проблема будет и дописать в файл, если знать сколько байтов там не хватает

Вообщем резюме такое, зная как записан файл и используя read(form='binary') можно прочитать все что угодно.

У меня Fortran 90. Я так пробовала - не получается - не понимает он binary.

У меня все работает на линукс, фортран 90, компилятор ifort. Вот здесь http://alcworx.blogspot.com/2010/10/transferring-data-from-fortran-to.html я писал пост, как в бинарном виде передавать значения fortran => python и наоборот.

А у меня mpif90. Наверное дело в этом?

Может быть и в этом(не использовал), только я думаю, что mpif90 - это обертка к какому-нибудь компилятору(в случае интеловских машин это либо ifort, либо GNU fortran compiler), а не он сам. В любом случае стоит попробовать написать простейшие программки и проверить. Кстати, в таком случае какая операционная система и архитектура?(помочь ничем не смогу, тк недавно лишился доступа к PowerPC с AIX, но самому интересно узнать, где это не работает)

Программируете под кластер на MPI?

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

Покажите, как файл открываете и как пишете.

Вы не в теме. Файл прямого доступа => хедеры не создаются. А BINARY вообще нестандарт.

Спасибо, буду учиться.

ага :-)

Компилятор gfortran. CentOS, два двухядерных Opteron-а.

Лучше бы один раз увидеть кусок кода, чем гадать как считываются данные.

// Я уже давно не удивляюсь сюрпризам фортрана.

И где у нас таким в городе, если не секрет, занимаются?

открываем

«OPEN(Nt%nt3,file='nt3.dat',status='REPLACE',access='direct',& form='unformatted',recl=512,blocksize=512) ......»

пишем в вызываемой подпрограмме

«SUBROUTINE ELTS51 (e,pu,h,ro,nsh,numcod,ivet,numel,l,nst,& nt6,nt7,typel,nver) .......

write(nt6,rec=l) typel,nsh+nst,ncn,i1,i2,i3,i4,e,pu,ro,h,pp .......»

физико-технический институт

Прочитал удаленный комментарий.

Вопрос первый — какая версия gfortran-а ? У меня gfortran дополняет запись нулями, так что всё ок.

(нужен вывод gfortran -v)

Второе — очень важно, что единицы, в которых указывается длина записи, зависят от реализации — в gfortran это байты, в intel fortran это 4байтные целые.

У Меткалфа и Рида написано, что, если запись пишется не целиком, последствия не определены.

И все-таки, если отставить на время формат файла, нельзя ли использовать, например, какую-нибудь интерфейсную функцию? Я попыталась использовать truncate... Насколько я поняла из описания, она должна обрезать файл до нужной длины, или дописывать (нулями или пробелами), если он короче. Но че-то она не сработала :-( Может там надо было какой модуль или библиотеку подключить?

ENDFILE(номер-файла) попробуйте перед закрытием.

P.S. В стандарте написано, что не определено, что будет в _остатке записи_, т.е. длина все равно остается такой, какая указана в RECL.

Вообще, если ничего не получится, пишите перед закрытием еще одну запись (n+1) с нулями и всё на том.

Для нормальной работы с бинарными файлами в Фортране лучше использовать access = 'stream'

Если компилятор поддерживает (это из стандарта-2003). Но stream удобен для работы с абстрактными бинарными файлами сложной структуры, а тут, имхо, direct access вполне удобен.

g95 и gfortran stream поддерживают.

Хм, не могу похвастаться детальным знанием input/output в Фортране, но imho stream наиболее удобен для работы с бинарными файлами любой структуры.

Спасибо всем! Попробую поставить ifort. :-)