两个方法可能可以解决你的问题：1.去掉语句中的IMPLICIT NONE。 2.在程序中你的确没有定义delta，你可以定义一下。
楼主，请问REAL(q),PARAMETER :: DELTA=1E-3_q,这是什么语法？后面的_q是什么意思？
