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