C	DEBUGGING SUBROUTINE TO DUMP VARIABLES.
C
C  Submitted by:
C  
C  	R. N. Stillwell
C  	Institute for Lipid Research
C  	Baylor College of Medicine
C  	Houston, Texas 77030
C  	
C  (who would be glad to receive comments, suggestions, bug fixes, etc., but
C  who promises no support whatever).
C  
C  Literature reference:
C  
C  	R. N. Stillwell.  A low-overhead laboratory data management system
C  	for the PDP11.  Comput. Biomed. Res., 15, 29-38(1982).
C  
C  Acknowledgement:
C
C  	This software was developed under National Institutes of Health grants
C  	GM-13901 and GM-26611.
C 
C  General permission is hereby granted to copy, modify, or distribute this
C  program, but not for profit.  Copyright to this software is and shall
C  remain in the public domain.
C
C	MODIFIED JAN 1982 FOR HASHED VARIABLE LIST
C
	SUBROUTINE DMPVAR(LFMT,FMTBUF)
	BYTE FMTBUF(LFMT)
	COMMON /VARBLK/ MINVAR,NVAR,VARNAM,VARPTR,VARLEN,ENDHP,HEAP
	INTEGER MINVAR      !INDEX OF FIRST REPLACEABLE VARIABLE
	INTEGER NVAR        !CURRENT NUMBER OF VARIABLES
	REAL*8  VARNAM(200) !NAMES OF VARIABLES
	INTEGER VARPTR(200) !POINTERS INTO HEAP
	INTEGER VARLEN(200) !LENGTHS
	INTEGER ENDHP       !CURRENT END OF HEAP
	BYTE HEAP(1000)     !STORAGE FOR VARIABLES
	DATA MAXVAR/200/    !DIMENSION OF VARNAM,VARPTR,VARLEN
	DATA MAXHP /1000/   !DIMENSION OF HEAP
C
	COMMON /LUN/ INLUN,OUTLUN,TILUN
	INTEGER INLUN,OUTLUN,TILUN
C
	WRITE (TILUN,1) NVAR,ENDHP
1	FORMAT (//' # OF VARIABLES =',T30,I5/' SIZE OF HEAP =',T30,I5)
	WRITE (TILUN,6) FMTBUF
6	FORMAT (' CURRENT FORMAT: ',40A1)
	IF (NVAR.EQ.0) RETURN
	WRITE (TILUN,2)
2	FORMAT (/'  NO.  NAME     LENGTH  PTR  VALUE')
	DO (IVAR = 1,MAXVAR)
	IF (VARNAM(IVAR).NE.0.0)
	IOFS = VARPTR(IVAR)-1
	LEN = VARLEN(IVAR)
	WRITE (TILUN,4) IVAR,VARNAM(IVAR),LEN,IOFS+1,
	1 (HEAP(I+IOFS),I=1,LEN)
4	FORMAT (1X,I4,1X,A8,I5,I8,(T31,40A1))
	FIN
	FIN
	WRITE (TILUN,5)
5	FORMAT (/)
	RETURN
	END