SUBROUTINE LS_INIT( iret ) C************************************************************************ C* LS_INIT * C* * C* This subroutine initializes certain report parameters to missing for * C* a new report. All initialized values are in common. * C* * C* LS_INIT ( IRET ) * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* R. Hollern/NCEP 4/96 * C* R. Hollern/NCEP 1/98 Changed interface, cleaned up code * C* D. Kidwell/NCEP 1/98 Added initialization of KWMO and KCOUN * C* R. Hollern/NCEP 1/00 Added initialization of ispwds, jnprcv * C* R. Hollern/NCEP 4/00 Removed initialization of interface vals* C* J. Ator/NCEP 01/02 Removed init. of iuwind, hgtlcl, hgtlcx * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'lscmn.cmn' C------------------------------------------------------------------------ iret = 0 C iprec = IMISSD ixind = IMISSD ipdprc = 0 jnprcv = 0 xtmpk = RMISSD xm907g = RMISSD xm907s = RMISSD ctyflg = .false. kwmo = IMISSD kcoun = ' ' ispwds = 0 C DO i = 1,6 xswell ( i ) = RMISSD END DO C* RETURN END