; $Id: map_proj_init_commonblock.pro,v 1.1 2004/04/07 20:59:01 chris Exp $
; Copyright (c) 1995-2001, Research Projections, Inc.  All rights reserved.
;       Unauthorized reproduction prohibited.


;---------------------------------------------------------------------------
; Undocumented "include" routine to construct the common block needed
; for MAP_PROJ_INIT.
;
; Use this code at your own risk. RSI reserves the right to modify or
; remove this routine.
;
; CT, RSI, April 2004.
;

    ; This is initialized once with all read-only projections parameters.
    common IDLmapProjectionCommon, $
        c_ProjNames, c_ProjCompressNames, $
        c_ProjNumber, c_ProjNumToGCTP, $
        c_ProjParameters, c_keywordNames, $
        c_ParamIsAngle, c_ProjParam_p0, $
        c_DatumNames, c_DatumMajor, c_DatumMinor, $
        c_StatePlane_NAD27names, c_StatePlane_NAD27numbers, $
        c_StatePlane_NAD83names, c_StatePlane_NAD83numbers

    ; Call our initialization routine.
    if (~N_ELEMENTS(c_ProjNames) && ~KEYWORD_SET(inMapProjInitCommon)) then $
        MAP_PROJ_INIT_COMMON