FUNCTION IUNPAK (NL,NR,IW) C RETURNS WITH THE PORTION OF IW AFTER DELETEIG C NL DIGITS ON LEFT AND NR DIGITS ON THE RIGHT. C IW IS ASSUMED TO BE 10 DECIMAL DIGITS LONG. C RESULT IS RIGHT JUSTIFIED WITH LEADING ZEROS. N=10**(10-NL) IUNPAK=(IW-(IW/N)*N)/10**NR RETURN END