SUBROUTINE CG_IFIV ( iret ) C************************************************************************ C* CG_IFIV * C* * C* This subroutine initializes the interface values arrays to missing * C* for a new report. * C* * C* CG_IFIV ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* R. Hollern/NCEP 3/00 Created from MA_INIT * C* C. Caruso Magee/NCEP 4/00 Modifying MA_INIT for Coast Guard data * C* C. Caruso Magee/NCEP 6/00 Remove defn of irnclo and irnswv. * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'cgcmn.cmn' C----------------------------------------------------------------------- iret = 0 C DO i = 1, NRIMN rivals ( i ) = RMISSD END DO C DO i = 1, NCIMN civals ( i ) = ' ' END DO C* RETURN END