Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/dmppar.f4
There are no other files named dmppar.f4 in the archive.
      SUBROUTINE DMPPAR
C		DEBUGGING ROUTINE. TYPES FILE PARAMETERS IN COMMON
      DIMENSION IPAR(10),IFRMT(1)
      COMMON IPAR,IFRMT
      TYPE  200
 200  FORMAT(1X,3HIDF,6X,3HLFR,3X,4HNAVR,3X,4HMAXF,3X,4HNSPR,4X,3HLSR,2X
     1,5HLFMTR,3X,4HNCPR,3X'LPFR')
      TYPE  300,(IPAR(I),I=1,10)
 300  FORMAT(1X,A5,9I7)
      RETURN
	END