Question

我正在学习Fortran课程。

当我使用下面的write语句时，我的代码构建正常，但它没有按预期运行，尤其是READ(6,*)。

可能是什么问题，我该如何解决？谢谢！

      OPEN(UNIT= 5, FILE='inp.dat')
      OPEN(UNIT= 10, FILE='apr1400.dat')   
      OPEN(UNIT= 11, FILE='ulpu2001.dat')  
      OPEN(UNIT= 12, FILE='aprslice.dat')
      OPEN(UNIT= 6, FILE='HEATFX.dat')
      OPEN(UNIT= 13, FILE='HEATFX1.dat')
      OPEN(UNIT= 14, FILE='HEATFX2.dat')
      OPEN(UNIT= 15, FILE='HEATFX3.dat')  
      OPEN(UNIT= 7, FILE='out.dat')
      OPEN(UNIT= 8, FILE='check.dat')
      OPEN(UNIT= 9, FILE='checkout.dat')

      READ (5, *)IPLANT
      IF(IPLANT.EQ.1)IIP=10
      IF(IPLANT.EQ.2)IIP=11
      IF(IPLANT.EQ.3)IIP=12

      READ (IIP, 250) TITLE
250   FORMAT(A20)

      READ (IIP, 300) ISLICE
300   FORMAT(I1)

      READ (IIP, 400) RADIUS, XLCYL, DIACYL, DEPTH, GAP, AINLET
      IF(ISLICE.EQ.0)READ (IIP, 400) POWER

      READ (6, *)HEATFX
      IF(HEATFX.EQ.1)llk=13
      IF(HEATFX.EQ.2)llk=14
      IF(HEATFX.EQ.3)llk=15
      READ(llk, 400) HEATFX

      READ (IIP, 400) PSYS
      READ (IIP, 400) DTSUBI

      READ (IIP, 400) XKLOSSI, XKLOSSC
      READ (IIP, 405) IPARA

Answer 1

单元号0,5和6与标准错误，标准输入和标准输出文件相关联

第6单元是一个特殊的单元，这可能是这里的问题。

通常，尝试对文件单元使用较大的数字。我通常使用100,101,102等

Fortran使用write（6，*）语句

1 个答案: