C INCLUDE FILE: M T P U T C VERSION: 21-DEC-84 LOGICAL*1 BUFPT(2), IOSPT(4) INTEGER*2 BLKPT, BUFPTL, IOSPT2(2), PARPT(6) EQUIVALENCE (IOSPT(1), IOSPT2(1))