C+
C NAME:
C	cBit32
C PURPOSE:
C	Put the binary representation for a integer*4 into a 32 character string array.
C CALLING SEQUENCE:
	character*32 function cBit32(IN)
C INPUTS:
C	IN		integer*4	integer to be converted to/from binary
C CALLS:
C	Bit32
C RESTRICTIONS:
C	If IN is negative, twos complement convention is assumed, i.e. bit 16 is set
C	to one; the other 15 bits are those of the positive number IN+32768.
C PROCEDURE:
C	The least significant bit of IN is put into cBit32(32:32), the most 
C	significant in cBit32{1:1).
C MODIFICATION HISTORY:
C	MAR-1992, Paul Hick (UCSD/CASS; pphick@ucsd.edu) : Rewrite of JBIT16
C-
	    integer	IN

	integer*1	OBIT(32)

	call Bit32(0,IN,OBIT)
	do I=1,32
	    cBit32(I:I) = char(48+OBIT(I))
	end do

	!write (cBit32,'(32I1)') OBIT

	return
	end