USDFLD subroutine

Does anyone guide me how to write the USDFLD subroutine in Fortran? Thank you very much for the help....