SUBROUTINE AL_IFIV ( iret ) C************************************************************************ C* AL_IFIV * C* * C* This subroutine initializes the interface values arrays for a new * C* report. * C* * C* AL_IFIV ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* R. Hollern/NCEP 07/02 * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'alcmn.cmn' C----------------------------------------------------------------------- iret = 0 C DO ii = 1, NR8IMN r8vals ( ii ) = r8bfms END DO C DO ii = 1, NRIMN rivals ( ii ) = RMISSD END DO C* RETURN END