CALL SHC2ZONE( LMAX, SHC, XLAT1, XLAT2, HS, HN, P )
SUBROUTINE SHC2ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P)