subroutine filterlimits( vs1,  vs2,  idf, nf, filt)  
      
           
      real*8  vs1, vs2, kp_getprmd
      integer*4 kp_getprmi
      dimension filt(*)
      
      COMMON/LP_LOCF/ LNFP,LIDF,LFWNS,LFDELNU,LFILTD
      external lp_filter, kp_getprmi, kp_getprmd
      
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

	  do i = 1, nf
	  	if(kp_getprmi( filt( LIDF+i-1) ) .eq. idf ) then
	  	     vs1 = kp_getprmd(filt( LFWNS+ (2*i) - 2 ) )
	  	     vs2 = vs1 + kp_getprmd(filt( LFDELNU+ (2*i)-2) ) *
     &                (kp_getprmi(filt(LNFP+i-1)) - 1 )
	  	     return
	  	endif
	  enddo
	
      WRITE(*,'(I5)')' FILTER ID# ',IDF,' NOT FOUND IN FILTER ARRAY'
      STOP ' ERROR IN FILTERLIMITS'
	  END