SUBROUTINE UA_IFIV ( iret ) C************************************************************************ C* UA_IFIV * C* * C* This subroutine initializes the interface values arrays for a new * C* report. * C* * C* UA_IFIV ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* J. Ator/NCEP 12/97 * C* J. Ator/NCEP 10/99 Clean up function declarations, * C* initialize nclt = 0 * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'uacmn.cmn' C----------------------------------------------------------------------- iret = 0 C DO ii = 1, NRSIMN rivals ( ii ) = RMISSD END DO rivals ( irnclt ) = 0 rivals ( irnrdc ) = 0 rivals ( irnlev ) = 0 C DO ii = 1, NCIMN civals ( ii ) = ' ' END DO C* RETURN END