fortran数组输出问题

firedragon

下面一段数组元素的输出：

WRITE(46,*) '**************PINVJ**************'
  DO ITE=1,NTE
  WRITE(46,1100) ITE,(PINVJ(ITE,JTE),JTE=1,NTE)
  END DO
  WRITE(46,*) '**********PINVJ(ITE,NTE-1)**********'
  DO ITE=1,NTE
  WRITE(46,*) PINVJ(ITE,NTE-1),PINVJ(ITE,NTE)
  END DO
1100 FORMAT(I4,6E18.6)

若nte=8时，输出的46文件显示如下：
**************PINVJ**************
   1     -0.137762E-01     -0.288624E-02     -0.196543E-02     -0.162883E-02     -0.153807E-02     -0.162586E-02
****     -0.288638E-02
   2     -0.288731E-02     -0.137777E-01     -0.288725E-02     -0.196999E-02     -0.163020E-02     -0.154045E-02
****     -0.196915E-02
   3     -0.196551E-02     -0.288875E-02     -0.137764E-01     -0.288939E-02     -0.196646E-02     -0.162600E-02
****     -0.162633E-02
   4     -0.162583E-02     -0.196610E-02     -0.288592E-02     -0.137772E-01     -0.288702E-02     -0.196544E-02
****     -0.153744E-02
   5     -0.154188E-02     -0.163302E-02     -0.196810E-02     -0.289138E-02     -0.137818E-01     -0.289072E-02
****     -0.163299E-02
   6     -0.162624E-02     -0.153757E-02     -0.162569E-02     -0.196620E-02     -0.288743E-02     -0.137766E-01
****     -0.196611E-02
   7     -0.197275E-02     -0.163140E-02     -0.154204E-02     -0.163177E-02     -0.197370E-02     -0.289159E-02
****     -0.289191E-02
   8     -0.288668E-02     -0.196615E-02     -0.162831E-02     -0.153844E-02     -0.162947E-02     -0.196599E-02
****     -0.137769E-01

**********PINVJ(ITE,NTE-1)**********
-1.9650834E-03 -2.8863796E-03
-1.6291147E-03 -1.9691531E-03
-1.5365842E-03 -1.6263335E-03
-1.6253742E-03 -1.5374359E-03
-1.9679884E-03 -1.6329874E-03
-2.8859903E-03 -1.9661093E-03
-1.3781269E-02 -2.8919138E-03
-2.8862499E-03 -1.3776915E-02

问题：
在pinvj矩阵中输出时，为何没有显示出每行的第7个元素值，但是指定输出
pinvj(ite,nte-1)时，第7个元素是有值的，所以不知输出格式错在哪里，请
高手指点，谢谢！

苍山负雪

1100 FORMAT(I4,6E18.6)

这一句有误，只给定了6个real型数值的输出格式。

firedragon

苍山负雪 wrote:
1100 FORMAT(I4,6E18.6)

这一句有误，只给定了6个real型数值的输出格式。

谢谢！改为8个real型数值的输出格式可以，也可以
改为：
1100 FORMAT(6E18.6) 也可以，这样每行以6个元素输出，
其他两个另起一行。
去掉"I4"输出，因为有的话，当输出第七个数组的时候，数据格式以“I4"输出，而其数据类型是浮点数，所以输出了“****”东东。