ciinterpol()

subroutine, public iccninterp::ciinterpol	(	integer	me,
		integer	npts,
		integer, dimension(4)	idate,
		real(kind=kind_phys)	fhour,
		integer, dimension(npts)	jindx1,
		integer, dimension(npts)	jindx2,
		real(kind=kind_phys), dimension(npts)	ddy,
		integer, dimension(npts)	iindx1,
		integer, dimension(npts)	iindx2,
		real(kind=kind_phys), dimension(npts)	ddx,
		integer	lev,
		real(kind=kind_phys), dimension(npts,lev)	prsl,
		real(kind=kind_phys), dimension(npts,lev)	ciplout,
		real(kind=kind_phys), dimension(npts,lev)	ccnout )