character*20 function YesNoString ( var, 
     &		   TrueString, FalseString )
C
C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
C
C	input var = T		output  = TrueSTring
C	      var = .false.    		= FalseString
C
C	Used to "pretty-print" interpretive output of logical parameters.

	character*20 TrueString, FalseString, result
	logical var
	if (var) then
	   Result = TrueString
	else
	   Result = FalseString
	end if 
	YesNoString = Result
	return
	end