FUNCTION LFTZRO(N,IW) C USED FOR MAKING ALPHA WORD TO PRINT AFTER C DECIMAL POINT. E.G. NCENTS=LFTZRO(3,IW), DELETS C 3 DIGITS ON THE LEFT OF ALPHA CONVERSION OF IW C AND LEFT JUSJTIFIESJS REMAINING WITH 0 FILL. LFTZRO=LUNPAK(5-N,0,INCODE(IW)) RETURN END