stepanoxus
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, пожалуйста, как правильно напечатать табуляцию ( аналог '\t' в Си) на фортране? Печатать хочу, например, в файл. Сейчас пишу так: open (4,file=filename) do i = 1, n do j = 1, n write(4, '(f20.6\)') a(i,j) enddo write(4, '(a3, f20.6)') ' | ', b(i) enddo close (4) Это печать в файл filename квадратной матрицы и присоединенной к ней правой части соответствующей СЛАУ. Сейчас все элементы в строке разделяются пробелами, а хочется, чтобы это были табуляции - то есть, хочу написать на фортране что-то аналогичное следующему коду из Си: f=fopen(filename,"w"); for (i=0;i<n;i++) { for (j=0;j<n;j++) fprintf(f,"%lg\t",a[i][j]); fprintf (f,"|\t%lg\n",b[i]); } fclose(f); |