function conv_h2hs, helio
;+
; NAME:
;	CONV_H2HS
; PURPOSE:
;	Convert from the decimal degress to the string representation of 
;	heliocentric coordinates ('N12W23')
; CALLING SEQUENCE:
; 	print, conv_hs2h(helio) 
; 	helio_str = conv_hs2h(helio) 
; INPUTS: 
;       helio   - is a vector of heliocentric coordinates.  It should be 2xN.
;                       (0,*) = angle in E/W direction with W positive
;                       (1,*) = angle in N/S direction with N positive
; OUTPUTS:
;	helio_str - is a string array of N elements of the form 'N12W23'
; HISTORY:
;	Written 16-Jun-93 by M.Morrison
;	21-Jul-93 (MDM) - Modified the header
;-

n = n_elements(helio)
nout = n/2
;
ew_arr = ['E', 'W']		;e is negative
ns_arr = ['S', 'N']
;
out = strarr(nout)
for i=0,nout-1 do begin
    ew = helio(0,i)
    ns = helio(1,i)
    out(i) = string( ns_arr( ns ge 0 ), abs(ns), ew_arr( ew ge 0 ), abs(ew), format='(2(a,i2.2))')
				;for negative values (east), ew gt 0 is false = 0
end
;
return, out
end