SUBROUTINE SF_IFIV ( iret ) C************************************************************************ C* SF_IFIV * C* * C* This subroutine initializes the interface arrays for a new report. * C* * C* SF_IFIV ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* J. Ator/NCEP 04/05 * C* J. Ator/NCEP 02/14 Added dattyp to /INTF/ arrays * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'BRIDGE.PRM' INCLUDE 'sfcmn.cmn' C----------------------------------------------------------------------- iret = 0 C nimn = 0 C dattyp = '?' C DO ii = 1, MXIMN cimnem ( ii ) = ' ' civals ( ii ) = ' ' rimnem ( ii ) = ' ' rivals ( ii ) = RMISSD END DO C* RETURN END