*vwrite
(/,5x,' UY displacement at node located at (0,0,10)') *vwrite
(/,5x,' Expected results ', ' ANSYS results') *vwrite,0.0499349,uytip (7x,f12.7,10x,f12.7) *endif ! if complete=1 !/exit,nosa
*vwrite
(/,5x,' UY displacement at node located at (0,0,10)') *vwrite
(/,5x,' Expected results ', ' ANSYS results') *vwrite,0.0499349,uytip (7x,f12.7,10x,f12.7) *endif ! if complete=1 !/exit,nosa