C TITLE D M P P T F
C TYPES POINTER FILE CONTENTS
DIMENSION IPAR(10),IFRMT(3,20)
COMMON IPAR,IFRMT
CALL DIO(1,1,IPAR,1)
LR=IPAR(3)-1
DO 52 L=1,LR
CALL DIO(L,1,IPAR,1)
IF(IPAR(1))50,51,50
51 TYPE 401,IPAR
401 FORMAT(1X,I5,3I6,I3,2I6,2I3,I11)
GO TO 52
50 TYPE 400,(IPAR(I),I=1,10)
400 FORMAT(1X,A5,3I6,I3,2I6,2I3,I11)
52 CONTINUE
CALL EXIT
END