作者aistydavil ()
看板Fortran
标题format 一问
时间Thu Feb 5 18:42:09 2009
有一个在有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
1F：推 DMFC:那个 'PTR1' 都放进 100 format 里就可以了 02/05 20:18
2F：→ aistydavil:不好意思我不知道要放哪一个位置~~TRY了结果还是一样 02/05 20:45
3F：推 marvericke:不好意思想另外问一下dimension的作用是做什麽的??? 02/06 12:31
4F：→ marvericke:常常看到用dimension但都不知道真实的功能 02/06 12:32