OlGu
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: write(101,fmt="(a16)", rec=1) 'variables = x, u' write(101,*) write(101,"(a9,i6)", rec=2) 'zone i = ', 2 write(101,*) write(101,fmt="(f16.8,3X, f16.8)", rec=3) x1, u1 write(101,*) write(101,fmt="(f16.8,3X, f16.8)", rec=4) x2, u2 write(101,*) | так я тоже пробовал, говорит не может он без указания номера записи terminat0r Цитата: Очень большие файлы? Возможно проще прочитать еще раз, посчитать шаги и записать в новый файл? Или вызвать системой обычный sed или awk когда надо? | да не очень большие, порядка 10000 записей, но всё же это лишняя работа ведь, учитывая что рабочий вариант akaGM уже предложил: Цитата: character*2 CRLF parameter (CRLF=char(13)//char(10)) write(101,fmt="(f16.8,3X, f16.8, a2)", rec=3) x1, u1, CRLF | который вроде работает и на linux и на Windows Вообще мне просто пришлось предоставлять данные в таком виде для соучастия в статье, а так я всегда записывал их в обычный txt, как предложил FuzzyLogic, и рисовал гнуплотом Спасибо всем за советы! |