用Fortran写abaqus的umat子程序,在编译时出现如下错误:

Error: A specification statement cannot appear in the executable section.

原语句:

    SUBROUTINE GETDDSDDE1(DDSDDE,NTENS,NDI,Em,V,ALPHA)
    INCLUDE 'ABA_PARAM.INC'
    DIMENSION DDSDDE(NTENS,NTENS)[color=FFFFFF]红色[/color]

请问这是什么问题,另外我看别人写的子程序跟我的语句差不多,就是变量名不同,但是编译没错,求解!!