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	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