
C	set "dis1,..,dis4" to zero

C	Sven Ivansson  1993





	SUBROUTINE ZERODIS

	USE INMODELa
	USE FWDISa

	IMPLICIT NONE

	INCLUDE '../RPPARAMETER.INC'
C       nol <= noldim

	INCLUDE '../INPARAM.INC'

	INTEGER ID, ID2

	IF ( NSS.GT.0 .OR. ISOLID(0).NE.0 ) THEN
	  DISF1FW = (0.0D0,0.0D0)
	  DISF2FW = (0.0D0,0.0D0)
	  DO ID = 1, NSS
	    DIS1FW(ID) = (0.0D0,0.0D0)
	    DIS2FW(ID) = (0.0D0,0.0D0)
	    DIS3FW(ID) = (0.0D0,0.0D0)
	    DIS4FW(ID) = (0.0D0,0.0D0)
	  END DO
	  DIS3NSS = (0.0D0,0.0D0)
	ELSE
	  DISF1FW = (0.0D0,0.0D0)
	END IF
	IF ( (NSW+1).LT.NOL .OR. ISOLID(NOL).NE.0 ) THEN
	  ID2 = NSW-1
	ELSE
	  ID2 = NSW
	END IF
	DO ID = NSS+1, ID2
	  DIS2FW(ID) = (0.0D0,0.0D0)
	  DIS4FW(ID) = (0.0D0,0.0D0)
	END DO
	IF ( (NSW+1).LT.NOL .OR. ISOLID(NOL).NE.0 ) THEN
	  IF (NSW.GT.0) THEN
	    DIS2FW(NSW) = (0.0D0,0.0D0)
	    DIS4FW(NSW) = (0.0D0,0.0D0)
	  END IF
	  DIS3NSW = (0.0D0,0.0D0)
	  DO ID = NSW+1, NOL-1
	    DIS1FW(ID) = (0.0D0,0.0D0)
	    DIS2FW(ID) = (0.0D0,0.0D0)
	    DIS3FW(ID) = (0.0D0,0.0D0)
	    DIS4FW(ID) = (0.0D0,0.0D0)
	  END DO
	  DISG1FW = (0.0D0,0.0D0)
	  DISG2FW = (0.0D0,0.0D0)
	ELSE
	  DISG1FW = (0.0D0,0.0D0)
	END IF

	RETURN
	END
