SUBROUTINE MA_INIT ( iret )
C************************************************************************
C* MA_INIT                                                              *
C*                                                                      *
C* This subroutine initializes certain report parameters to missing for *
C* for a new report.  All initialized values are in common.             *
C*                                                                      *
C* MA_INIT ( IRET )	       	                                        *
C*                                                                      *
C* Output parameters:                                                   *
C*	IRET            INTEGER         Return code                     *
C*				   	  0 = normal return 	        *
C*                                                                      *
C**                                                                     *
C* Log:							                *
C* R. Hollern/NCEP       6/96                                           *
C* K. Tyle/GSC		 4/97	Cleaned up				*
C* D. Kidwell/NCEP	 4/97	Added argument rarray                   *
C* D. Kidwell/NCEP	 4/97	Added initialization for ixind          *
C* R. Hollern/NCEP      10/97   Added initialization for wsped          *
C* D. Kidwell/NCEP	10/97	Changed interface, cleaned up           *
C* R. Hollern/NCEP      11/99   Added initialization for ispwds, removed*
C*                              wdgflg, gums                            *
C* R. Hollern/NCEP      11/99   Added initialization for jnprcv         *
C* R. Hollern/NCEP       3/00   Removed initialization of interface vals*
C* J. Ator/NCEP		01/02   Removed init. of iuwind, hgtlcl, hgtlcx	*
C************************************************************************
        INCLUDE 	'GEMPRM.PRM'
        INCLUDE 	'macmn.cmn'
C-----------------------------------------------------------------------
        iret   = 0
C
        iprec  = IMISSD
	ixind  = IMISSD
        iflgco = 0
        xm907  = RMISSD
        ispwds = 0
        jnprcv = 0
C
        DO i = 1, 6
	    xswell ( i ) = RMISSD
        END DO
C*
        RETURN
        END