DFLUX problem during compilation

Hi. I am trying to run DFLUX subroutine in abaqus to simulate laser heat source. The error file generated is

dflux.for(1): error #5149: Illegal character in statement label field  [S]SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,^dflux.for(1): error #5149: Illegal character in statement label field  [U]SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,-^dflux.for(1): error #5149: Illegal character in statement label field  [B]SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,--^dflux.for(1): error #5149: Illegal character in statement label field  [R]SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,---^dflux.for(1): error #5149: Illegal character in statement label field  [O]SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,----^dflux.for(1): error #5118: First statement in file must not be continuedSUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,-----^dflux.for(2): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: => = . [ % (     1 JLTYP,TEMP,PRESS,SNAME)------------------------------^dflux.for(21): error #6353: A RETURN statement is invalid in the main program.      RETURN------^compilation aborted for dflux.for (code 1)Abaqus Error: Problem during compilation - C:\Temp\dflux.forAbaqus/Analysis exited with errors

 

It seems that it is not at all recognizing the subroutine. What can be the possible problem? Please help.