Запись матричного массива из 2 строк по 3 столбца в выходной текстовый файл в Fortran 95 - PullRequest
Новая
       135

Запись матричного массива из 2 строк по 3 столбца в выходной текстовый файл в Fortran 95

0 голосов
/ 20 марта 2019

В настоящее время я учусь писать матричные массивы для вывода текстовых файлов в Fortran 95. Проблема, с которой я сталкиваюсь, заключается в том, что матричный массив из 2 строк по 3 столбца, над которым я работаю, не форматирует в то, что Я желаю в выходной текстовый файл. Я считаю, что мне не хватает одной или двух строк кодов или я не могу добавить несколько кодов к имеющимся у меня линиям кодов. Ниже приведены мои строки кодов, текущие выходные данные и требуемые выходные данные. Цель состоит в том, чтобы получить «Желаемые выходные данные». Пожалуйста, покажите мне Мои ошибки, какие коды / строки кодов я пропускаю и где я должен добавить коды / строки кодов. Каждый ответ приветствуется и ценится. Спасибо стаковцам.

Строки кодов: 

Program Format2
!illustrates formatting Your Output
Implicit None
Integer:: B(2,3)
Integer:: k,j
!Open Output Text File at Machine 8
Open(8,file="formatoutput2.txt")
Data B/1,3,5,2,4,6/
Do k= 1,2
  B(2,3)= k
!Write to File at Machine 8 and show the formatting in Label 11
Write(8,11) B(2,3)
11 format(3i3)
    End Do
  Do j= 3,6
    B(2,3)= j
!Write to File at Machine 8 and show the formatting in Label 12
Write(8,12) B(2,3)
12 format(3i3)
End Do
End Program Format2

Текущие выходные данные 

  1
  2                                        
  3                                      
  4                                         
  5
  6

Желаемые выходные данные 

1  3  5
2  4  6

Ответы [ 2 ]

0 голосов
/ 22 марта 2019

Я видел Мои ошибки.Инструкции, которые я дал компилятору Фортрана, были результатом, который я получил в моем текстовом файле вывода.Я объявлял две-2 строки (1,2) и (3,4,5,6);вместо объявления трех-трех столбцов (1,2);(3,4) и (5,6).Ниже приведены правильные строки кодов для получения желаемых выходных данных. 

Lines of Codes:

Program Format2

!illustrates formatting Your Output

Implicit None

Integer:: B(2,3)

Integer:: k,j

!Open Output Text File at Machine 8

Open(8,file="formatoutput2.txt")

Data B/1,2,3,4,5,6/

!(a)Declare The 1st Two-2 Values You want for k Two-2 Rows, that is (1 and 2)

!(b)Note, doing (a), automatically declares the values in Column 1, that is (1 and 2)

Do k= 1,2

  B(2,3)= k

    End Do

!(c)Next, Declare, the Four Values You want in Column 2 and Column 3. That is [3,4,5,6]

!(d) Based on (c), We want 3 and 4 in "Column 2"; while "Column 3", gets 5 and 6.

Do j= 3,6

 B(2,3)= j

 End Do

!Write to File at Machine 8 and show the formatting in Label 13

Write(8,13) ((B(k,j),j= 1,3),k= 1,2)

13 format(3i3)

End Program Format2

The Above Lines of Codes, gives the Desired Output below:

1   3   5

2   4   6
0 голосов
/ 20 марта 2019

B(2,3) относится только к одному конкретному элементу массива.А именно элемент с индексом 2 в первом измерении и индексом 3 в другом измерении.Для ссылки на другой элемент используйте B(i,j), где i и j - целые числа с желаемым индексом.Для ссылки на весь массив используйте просто B или, альтернативно, B(:,:) для секции массива, которая охватывает весь массив.

Таким образом, чтобы установить значения 

do j = 1, 3
  do i = 1, 2
    B(i,j) = i + (j-1) * 2
  end do
end do

и распечатать ихиспользуйте один из методов, показанных в бесчисленных дубликатах ( Печать двумерного массива Fortran в качестве матрицы Запись матрицы с помощью Fortran Как записать отформатированную матрицу в строках с помощью fortran77? Вывод в виде матрицы в фортране - ищите больше, будут лучшие ...) на этом сайте 

do i = 1, 2
   write(8,'(999i3)') B(i,:)
end do
...