推 DMFC:那個 'PTR1' 都放進 100 format 裡就可以了 02/05 20:18
→ aistydavil:不好意思我不知道要放哪一個位置~~TRY了結果還是一樣 02/05 20:45
推 marvericke:不好意思想另外問一下dimension的作用是做什麼的??? 02/06 12:31
→ marvericke:常常看到用dimension但都不知道真實的功能 02/06 12:32
有一個在有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