错误如下:
IMPLICIT*8(A-H,O-Z) 应为:IMPLICIT REAL*8 (A-H,O-Z)
DIMENSION A(21,6),YO(5),Y1(5) 应为:REAL*8 A(21,6),YO(5),Y1(5)
另外,下面的格式语句有错误,写得也很乱:
200 FORMAT(//4X,'T/min',9X,'[A]/molL-1', 6X, &
'[B]/molL-1',6X,'[C]/molL-1',6X,'[D]/molL-1',6X,[E]/molL-1')