※ 引述《aistydavil ()》之銘言：
: 有一個在有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
WRITE(*,100) PTR1
100 FORMAT ('PTR1=',1x,\,6I3)
以上...
by the way ... 我沒用過 pointer
所以我有些地方不確定
就是說
我不知道你的問題會不會是出在 interger,pointer :: PTR1(:)
這種宣告方式........嗯.....不知會不會出錯
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.112.232