106 lines
2.8 KiB
Fortran
106 lines
2.8 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************************************************************************
|
|
CHARACTER*(*) map, garea, proj, latlon, panel, text,
|
|
+ title, shrttl
|
|
CHARACTER garut*132, prjut*132
|
|
LOGICAL clear
|
|
C*
|
|
CHARACTER satfil*132
|
|
LOGICAL drpflg
|
|
C------------------------------------------------------------------------
|
|
iret = 0
|
|
C
|
|
C* Set the map file.
|
|
C
|
|
C-- CALL GSMFIL ( 'mepowo.gsf', ier )
|
|
CALL GSMFIL ( 'hipowo.cia', ier )
|
|
IF ( ier .ne. 0 ) CALL ER_WMSG ( 'GEMPLT', ier, ' ', ierr )
|
|
C
|
|
C* Set the projection.
|
|
C
|
|
CALL DG_FIXA ( garea, proj, garut, prjut, ier)
|
|
CALL GG_MAPS ( proj, garea, satfil, drpflg, 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 ( drpflg ) CALL GSATIM ( satfil, ier )
|
|
C
|
|
C* Draw map and lat/lon lines.
|
|
C
|
|
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*
|
|
C ADD INTNL BNDRYS MAP (LJH)
|
|
C CALL GSMFIL ( 'hifir.awc', ier)
|
|
CALL GSMFIL ( 'intlbnd.gsf', ier)
|
|
IF ( ier .ne. 0 ) CALL ER_WMSG ( 'GEMPLT', ier, ' ', ierr )
|
|
C
|
|
C* Set the projection.
|
|
C
|
|
CALL GG_MAPS ( proj, garea, satfil, drpflg, iret )
|
|
IF ( iret .ne. 0 ) RETURN
|
|
C
|
|
C* Set the text attributes.
|
|
C
|
|
CALL IN_TEXT ( text, ier )
|
|
C
|
|
C* Draw map and lat/lon lines.
|
|
C
|
|
map="21"
|
|
CALL GG_MAP ( map, ier )
|
|
C
|
|
C* Flush the buffers.
|
|
C
|
|
CALL GEPLOT ( ier )
|
|
|
|
RETURN
|
|
END
|