<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_MAP_INIT'><A href='../../html_code/tools/da_map_init.inc.html#DA_MAP_INIT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_map_init(proj) 2,2
!-----------------------------------------------------------------------
! Purpose: Initializes the map projection structure to missing values
!-----------------------------------------------------------------------
implicit none
type(proj_info), intent(inout) :: proj
if (trace_use_dull) call da_trace_entry
("da_map_init")
proj%lat1 = -999.9
proj%lon1 = -999.9
proj%dx = -999.9
proj%stdlon = -999.9
proj%truelat1 = -999.9
proj%truelat2 = -999.9
proj%hemi = 0.0
proj%cone = -999.9
proj%polei = -999.9
proj%polej = -999.9
proj%rsw = -999.9
proj%knowni = -999.9
proj%knownj = -999.9
proj%latinc = -999.9
proj%loninc = -999.9
proj%init = .false.
if (trace_use_dull) call da_trace_exit("da_map_init")
end subroutine da_map_init