你给某个库存函数的参量太少了

是在FREE子程序中某个函数吗

以下是那个子程序：      

      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/' '/
C――――READ LINE OF FREE FIELD DATA ――――――
      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)
C―――――CHECK FOR ADDITIONAL LINE ――――――
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
C―――――CHECK FOR COMMENT ――――――
      IF(LINE(1).NE.C) GOTO 900
      WRITE(NTM,2000) (LINE(I),I=1,II)
      GOTO 45
C―――――ERROR IN READ ――――――
100   WRITE(NTM,2001)
      WRITE(NOT,2001)
      CALL FREEPT
C
900   RETURN
C――――――――――――――――――――――――――――
1000  FORMAT(80A1)
1001  FORMAT(1X,80A1)
2000  FORMAT(1X,80A1)
2001  FORMAT(/,' * END OF FILE OR ERROR IN READING INPUT LINE *',/)
      END

帮忙看看吧，谢谢

你结合吴鸿庆老师的其他程序再仔细检查一下吧，这个子程序用来读数据，也没有什么参数传递阿.

没有这个程序，我看到的是他的《结构有限元分析》上的程序

好像就是他的《结构有限元分析》书中的程序，

又有个问题了，在link时，出现错误提示：error LNK2001: unresolved external symbol _LINE@4，就是在主程序中调用free时，我改成了call free（line（160））出现的 提示，可是不加的话，在编译时会出现提示说：error FOR2334: too few arguments in reference to intrinsic  procedure FREE,现在我想不到怎么改这个语句了