H A D | bspline.f90 | 1286 subroutine dbs3in(nx,xvec,ny,yvec,nz,zvec,xyzdata,ldf,mdf,kx,ky,kz, & argument 1344 real(dp), dimension(ldf,mdf,nz), intent(in) :: xyzdata local 1354 call spli3d(zvec,ldf,mdf,xyzdata,zknot,nz,kz,nx,ny,work2,work3,work1, & 1368 subroutine spli3d(xyzvec,ldf,mdf,xyzdata,xyzknot,n,k,m,l,work2,work3, & argument 1377 real(dp), dimension(ldf,mdf,*), intent(in) :: xyzdata local 1428 work2(in) = xyzdata(i,j,in)
|