C+
C NAME:
C	iSTRGTODEN
C PURPOSE:
C	Used by EGIPSY to create density maps
C CALLING SEQUENCE:
	function iSTRGTODEN(IDFNC,cStr)
C INPUTS:
C	IDFNC		integer		ID for indentifying conversion formulae
C					if < 0 in GTODEN the inverse is applied
C	G		real		G-value to be converted
C OUTPUTS:
C	iSTRGTODEN	integer		length of cStr
C	cStr		character*(*)	String descriptor for formula
C					corresponding to IDFNC
C CALLS:
C	BadR4
C ALSO:
C	GTODEN, NRGTODEN
C PROCEDURE:
C	See GTODEN
C MODIFICATION HISTORY:
C	MAY-1994, Paul Hick (UCSD)
C-
	    integer		IDFNC
	    character*(*)	cStr

	if (IDFNC .eq. 0) then		! Function 0 : n=G (testing only)
	    cStr = 'IPS G factor'

	else if (IDFNC .eq. 1) then	! Function 1: Tappin's result
	    cStr = 'n = 9.0 G^2_ cm^-3_'

	else if (IDFNC .eq. 2) then	! Function 2: Synoptic map result
	    cStr = 'n = 10.4 G^3.4_ cm^-3_'

	else if (IDFNC .eq. 3) then
	    cStr = 'n = 9.5 G^5.1_ cm^-3_'

	else				! 2. Insert descriptor string here !!!
	    cStr = 'Anon'

	end if

	iSTRGTODEN = itrim(cStr)

	return
	end