当CALL FREE(LINE(160))出现error LNK2001: unresolved external symbol _LINE@4

      SUBROUTINE FREE
      IMPLICIT INTEGER*4(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      CHARACTER *1 LINE,SP,BS,C
      COMMON /CLINE/LINE(160)
      COMMON /ILINE/II
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
      DATA SP/' '/, C/'C'/, BS/' '/
      DO 40 I=1,160
40    LINE(I)=SP
C
45    I=1
      II=80
50    IF(NIN.EQ.NTR) GOTO 60
      IF(NTM.NE.3) GOTO 60
      READ(NIN,1001,ERR=100,END=100) (LINE（K),K=I,II)
      GOTO 70
60    READ(NIN,1000,ERR=100,END=100) (LINE(K),K=I,II)
70    DO 80 K=I,II
      IF(LINE(K).NE.BS) GOTO 80
      I=K
      II=K+79
      IF(II.GT.160) II=160
      GOTO 50
80    CONTINUE
C    
      CALL UPPER
      IF(NTR.EQ.NIN) GOTO 900
      IF(LINE(1).NE.C) GOTO 900
      WRITE(NTM,2000) (LINE(I),I=1,II)
      GOTO 45
100   WRITE(NTM,2001)
      WRITE(NOT,2001)
      CALL FREEPT
C
900   RETURN

1000  FORMAT(80A1)
1001  FORMAT(1X,80A1)
2000  FORMAT(1X,80A1)
2001  FORMAT(/,' * END OF FILE OR ERROR IN READING  INPUT LINE *',/)
      END

这样该怎么修改呢？

首先肯定的是调用形式为CALL FREE！因为只要调用这个程序，它自己会读取一行内的数据信息，不存在参数传递。

看了你的子程序，觉得有个问题,即：

   因为有CALL UPPER这一句，需要处理“：”，所以把

      CHARACTER *1 LINE,SP,BS,C
      COMMON /CLINE/LINE(160)
      COMMON /ILINE/II
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
      DATA SP/' '/, C/'C'/, BS/' '/

      改成：

       CHARACTER *1 LINE,SP,BS,C，SC
      COMMON /CLINE/LINE(160)
      COMMON /ILINE/II
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
      DATA SP/' '/, C/'C'/, BS/' '/，SC/':'/