>

열이 4 개인 데이터 파일이 있습니다 :

x    y    u    v

x와 y가 값 u와 v와 관련된 좌표 위치가되도록

데이터는 다음과 같이 구성되어 있습니다

x    y    u    v
1    1    #    #
2    1    #    #
3    1    #    #
...

그러나 파일을 재구성하여

x    y    u    v
1    1    #    #
1    2    #    #
1    3    #    #
...

이 기능을 수행 할 수있는 포트란 기능이 있습니까?

  • 답변 # 1

    글쎄, 나는 "예쁜"에 대한 주장을하지는 않지만 그 일을해야합니다. 분명히 FORMAT 문을 확인해야합니다.

         PROGRAM TEST
          REAL*8 :: U(4,4)
          REAL*8 :: V(4,4)
          INTEGER :: X, Y
          DO
             READ(*,'(2I2)',ADVANCE='NO',END=10) X,Y
             READ(*,'(2F6.1)',ADVANCE='YES',END=10) U(X,Y),V(X,Y)
          END DO
     10   CONTINUE
          WRITE(*,'(2I4,2F10.2)') ((I,J,U(I,J),V(I,J),J=1,4),I=1,4)
          END
    
    

    어레이가 이미 올바르게 할당되었다고 가정합니다.

    입력 파일은 다음과 같습니다.

    $ cat test.in
     1 1    5.0  10.0
     2 1    1.3  -0.2
     3 1    5.1   0.0
     4 1   -9.1   3.0
     1 2    4.0   2.0
     2 2   14.0  -8.0
     3 2   -8.0   8.0
     4 2    4.0   9.6
     1 3    2.0   1.1
     2 3    3.4   8.0
     3 3    4.0   7.0
     4 3    4.0   4.1
     1 4    5.5   8.4
     2 4   34.1  23.0
     3 4   -4.1   4.0
     4 4    6.0   8.4
    
    

    그리고 출력 :

    $ cat test.in | ./a.out
     1 1    5.0  10.0
     1 2    4.0   2.0
     1 3    2.0   1.1
     1 4    5.5   8.4
     2 1    1.3  -0.2
     2 2   14.0  -8.0
     2 3    3.4   8.0
     2 4   34.1  23.0
     3 1    5.1   0.0
     3 2   -8.0   8.0
     3 3    4.0   7.0
     3 4   -4.1   4.0
     4 1   -9.1   3.0
     4 2    4.0   9.6
     4 3    4.0   4.1
     4 4    6.0   8.4
    
    

  • 이전 scripting - Spotfire에서 IronPython을 사용하여 표현식 저장 및 호출
  • 다음 amazon web services - AWS S3에서 일부 유니 코드 문자가 손상 되었습니까?