676ea3192f
Former-commit-id:b13cbb7e00[formerly 4909e0dd166e43c22a34d96aa744f51db8a7d6c0] Former-commit-id:3904c4ccf5
39 lines
987 B
Fortran
39 lines
987 B
Fortran
SUBROUTINE MAP_INIT ( iret, wname )
|
|
C************************************************************************
|
|
C* MAP_INIT *
|
|
C* *
|
|
C* This routine initializes GEMPAK. *
|
|
C* *
|
|
C* MAP_INIT ( IRET ) *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* IRET INTEGER Return code *
|
|
C** *
|
|
C* Log: *
|
|
C* S. Jacobs/EAI 7/94 *
|
|
C* C. Lin/EAI 4/96 GSDEV->GG_MOTF, take out GSFLNM *
|
|
C************************************************************************
|
|
CHARACTER wname*(*)
|
|
C------------------------------------------------------------------------
|
|
C* Initialize GEMPAK data blocks.
|
|
C
|
|
CALL IN_BDTA ( ier )
|
|
C
|
|
C* Initialize graphics.
|
|
C
|
|
CALL GG_INIT ( 1, iret )
|
|
IF ( iret .eq. 0 ) THEN
|
|
C
|
|
C* Set device in GEMPLT.
|
|
C* If an error is encountered, write GEMPLT error message.
|
|
C
|
|
CALL GG_MOTF ( wname, ier )
|
|
IF ( ier .ne. 0 ) THEN
|
|
CALL ER_WMSG ( 'GEMPLT', ier, ' ', ier2 )
|
|
iret = -6
|
|
END IF
|
|
C
|
|
END IF
|
|
C*
|
|
RETURN
|
|
END
|