I put the entire code:
SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
1 TEMP,PRESS,SNAME)
C Abaqus Fortran Subroutine to model the moving cylindrical heat source
C Last edited: 2015-06-08
C - Fixed error in coordinates (Now y is top...