igsm/src/fltr4tem.F

        subroutine fltr4tem(z,iy)
        dimension z(iy),zt(iy)
          do j=2,iy-2
             zt(j)=0.25*(z(j-1)+2.*z(j)+z(j+1))
          enddo
          do j=2,iy-1
           z(j)=zt(j)
          enddo
        return
        end
1	jscott	1.1	subroutine fltr4tem(z,iy)
2			dimension z(iy),zt(iy)
3			do j=2,iy-2
4			zt(j)=0.25(z(j-1)+2.z(j)+z(j+1))
5			enddo
6			do j=2,iy-1
7			z(j)=zt(j)
8			enddo
9			return
10			end