84 lines
2.3 KiB
Fortran
84 lines
2.3 KiB
Fortran
SUBROUTINE MAP_DRAW ( map, garea, proj, latlon, panel, text,
|
|
+ title, ititl, linttl, shrttl,
|
|
+ clear, iret )
|
|
C************************************************************************
|
|
C* MAP_DRAW *
|
|
C* *
|
|
C* This subroutine draws a map, lat/lon lines, and a title. *
|
|
C* *
|
|
C* MAP_DRAW ( MAP, GAREA, PROJ, LATLON, PANEL, TEXT, TITLE, *
|
|
C* ITITL, LINTTL, SHRTTL, CLEAR, IRET ) *
|
|
C* *
|
|
C* Input parameters: *
|
|
C* MAP CHAR* Map Color *
|
|
C* GAREA CHAR* Graphics area *
|
|
C* PROJ CHAR* Map projection name *
|
|
C* LATLON CHAR* Line color *
|
|
C* PANEL CHAR* Panel location *
|
|
C* TEXT CHAR* Text input *
|
|
C* TITLE CHAR* Title string *
|
|
C* ITITL INTEGER Title color *
|
|
C* LINTTL INTEGER Title line *
|
|
C* SHRTTL CHAR* Short title string *
|
|
C* CLEAR LOGICAL Clear screen flag *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* IRET INTEGER Return code *
|
|
C** *
|
|
C* Log: *
|
|
C* L. Williams/EAI 4/94 Converted to a subroutine from GPMAP *
|
|
C* S. Jacobs/NMC 7/94 Copied for use with the NWX program *
|
|
C* T. Piper/SAIC 1/02 Initialized satfil *
|
|
C* S. Chiswell/Unidata 11/02 Fixed GG_MAPS call sequence *
|
|
C************************************************************************
|
|
CHARACTER*(*) map, garea, proj, latlon, panel, text,
|
|
+ title, shrttl
|
|
LOGICAL clear
|
|
C*
|
|
CHARACTER satfil*132
|
|
C------------------------------------------------------------------------
|
|
iret = 0
|
|
satfil = ' '
|
|
C
|
|
C* Set the map file.
|
|
C
|
|
C-- CALL GSMFIL ( 'mepowo.gsf', ier )
|
|
c CALL GSMFIL ( 'hipowo.cia', ier )
|
|
c IF ( ier .ne. 0 ) CALL ER_WMSG ( 'GEMPLT', ier, ' ', ierr )
|
|
C
|
|
C* Set the projection.
|
|
C
|
|
CALL GG_MAPS ( proj, garea, satfil, idrpflg, iret )
|
|
IF ( iret .ne. 0 ) RETURN
|
|
C
|
|
C* Set the text attributes.
|
|
C
|
|
CALL IN_TEXT ( text, ier )
|
|
C
|
|
C* Clear the screen and write the short title.
|
|
C
|
|
IF ( clear ) CALL GCLEAR ( ier )
|
|
IF ( clear ) CALL GMESG ( shrttl, ier )
|
|
CALL GG_PANL ( panel, ier )
|
|
C
|
|
C* Display satellite image, if desired.
|
|
C
|
|
IF ( idrpflg .eq. 1 ) CALL IM_DROP ( ier )
|
|
C
|
|
C* Draw map and lat/lon lines.
|
|
C
|
|
CALL IP_PUTV ( '$MAPFIL', 'base', ier )
|
|
CALL GG_MAP ( map, ier )
|
|
CALL GG_LTLN ( latlon, ier )
|
|
C
|
|
C* Draw the title.
|
|
C
|
|
CALL GSCOLR ( ititl, ier )
|
|
CALL GG_WSTR ( title, linttl, ier )
|
|
C
|
|
C* Flush the buffers.
|
|
C
|
|
CALL GEPLOT ( ier )
|
|
C*
|
|
RETURN
|
|
END
|