ABAQUS调用子程序

高手！！！！！！！！ ABAQUS调用子程序时出现以下错误，高手指点呐！！！！！！！！！！！
:t(:t(:t(:t(
use1.for(11): error #5149: Illegal character in statement label field
IF (NDI.NE.3) THEN
^
use1.for(11): error #5149: Illegal character in statement label field [F]
IF (NDI.NE.3) THEN
-^
use1.for(11): error #5149: Illegal character in statement label field [(]
IF (NDI.NE.3) THEN
---^
use1.for(11): error #5149: Illegal character in statement label field [N]
IF (NDI.NE.3) THEN
----^
use1.for(11): error #5144: Invalid character_kind_parameter. No underscore
IF (NDI.NE.3) THEN
------^
use1.for(12): error #5149: Illegal character in statement label field [W]
WRITE (6,*) 'THIS UMAT MAY ONLY BE USED FOR ELEMENTS WITH THREE DIRECT STRESS COMPONENTS'
^
use1.for(12): error #5149: Illegal character in statement label field [R]
WRITE (6,*) 'THIS UMAT MAY ONLY BE USED FOR ELEMENTS WITH THREE DIRECT STRESS COMPONENTS'
-^
use1.for(12): error #5149: Illegal character in statement label field
WRITE (6,*) 'THIS UMAT MAY ONLY BE USED FOR ELEMENTS WITH THREE DIRECT STRESS COMPONENTS'
--^
use1.for(12): error #5149: Illegal character in statement label field [T]
WRITE (6,*) 'THIS UMAT MAY ONLY BE USED FOR ELEMENTS WITH THREE DIRECT STRESS COMPONENTS'
---^
use1.for(12): error #5149: Illegal character in statement label field [E]
WRITE (6,*) 'THIS UMAT MAY ONLY BE USED FOR ELEMENTS WITH THREE DIRECT STRESS COMPONENTS'
----^
use1.for(2): error #5082: Syntax error, found CHARACTER_CONSTANT 'aba_param.inc' when expecting one of: ( ) , <END-OF-STATEMENT> ; <IDENTIFIER> [ /
*e 'aba_param.inc'
--------^
use1.for(11): error #5082: Syntax error, found ')' when expecting one of: , : ]
IF (NDI.NE.3) THEN
------------^
use1.for(14): error #5149: Illegal character in statement label field [E]
ENDIF
^
use1.for(14): error #5149: Illegal character in statement label field [N]
ENDIF
-^
use1.for(14): error #5149: Illegal character in statement label field [D]
ENDIF