INTEGER nShapTrPhys, nShapUVPhys
& nShapUV, nShapUVPhys
nShapUVPhys = nShapUV
CALL WRITE_0D_I( nShapUVPhys, INDEX_NONE,
& nShapUV, nShapUVPhys, Shap_uvtau, Shap_uvLength,
nShapUVPhys = 0
IF ( n.LE.nShapUVPhys .OR.
& n.GT.nShapUV-nShapUVPhys )
IF (n.LE.nShapUVPhys) THEN
IF (n.GT.nShapUV-nShapUVPhys) THEN