Fortran code

Where I can find the subroutine of a user material Fortran code for Viscoelastic constitutive model?

Does anyone has the subroutine for LS-DYNA ?

Can anyone help me?