Ok, great.
Also, angle format could be changed for consistency e.g.
from
2003 format(/i5,0p,1f8.3,1p,5e11.3,0p,1f8.2/i5,0p,1f8.3,1p,5e11.3,
& 0p,1f8.2/5x,0p,1f8.3,1p,6e11.3/(13x,1p,6e11.3))
to
2003 format(/i5,0p,1f8.3,1p,5e11.3,0p,1f8.2/i5,0p,1f8.3,1p,5e11.3,
& 0p,1f8.2/5x,0p,1f8.3,1p,6e11.3/(13x,1p,5e11.3,0p,1f8.2))
Additionally, 3-node 2D solid routine should also be modified for correct stress output (as shown on the right hand side of the previously attached image)