format 一問
有一個在有dimension的狀況下
欲format的問題想請教
不知在format的地方是否有寫錯~~程式無法執行
謝謝!!
以下是原程式:
PROGRAM MAIN
IMPLICIT NONE
INTEGER :: i
INTEGER, DIMENSION(10), TARGET :: VECTOR = (/(i,i=1,10)/)
INTEGER, DIMENSION(4,3), TARGET :: MATRIX = (/1,2,3,4,5,
&6,7,8,9,10,11,12/)
INTEGER,POINTER :: PTR1(:),PTR4(:)
INTEGER,POINTER :: PTR2(:,:),PTR3(:,:)
PTR1 => VECTOR
PTR2 => MATRIX
PTR3 => MATRIX(1:3,1:3)
PTR4 => PTR1(1:3)
WRITE(*,100) 'PTR1=',PTR1
WRITE(*,100) 'PTR2=',PTR2
WRITE(*,100) 'PTR3=',PTR3
WRITE(*,100) 'PTR4=',PTR4
100 FORMAT(1X,\,6I3)
END PROGRAM
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.43.128.101
推
02/05 20:18, , 1F
02/05 20:18, 1F
→
02/05 20:45, , 2F
02/05 20:45, 2F
推
02/06 12:31, , 3F
02/06 12:31, 3F
→
02/06 12:32, , 4F
02/06 12:32, 4F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
