1 subroutine pc2ev(xget,yget,x,nx,y,ny,ilinx,iliny,
81 call herm2xy(xget,yget,x,nx,y,ny,ilinx,iliny,
82 > i,j,xparam,yparam,hx,hxi,hy,hyi,ier)
86 > fval,i,j,xparam,yparam,hx,hxi,hy,hyi,f,inf2,ny)
94 subroutine pc2fcn(ict,ivec,ivecd,
95 > fval,ii,jj,xparam,yparam,hx,hxi,hy,hyi,
102 integer ii(ivec),jj(ivec)
103 real xparam(ivec),yparam(ivec)
106 real hx(ivec),hy(ivec)
107 real hxi(ivec),hyi(ivec)
153 sum=ypi*(xpi*fin(i,j)+xp*fin(i+1,j))
154 > + yp*(xpi*fin(i,j+1)+xp*fin(i+1,j+1))
165 sum=ypi*(fin(i+1,j)-fin(i,j))
166 > + yp*(fin(i+1,j+1)-fin(i,j+1))
167 fval(v,iadr)=sum*hxi(v)
177 sum=xpi*(fin(i,j+1)-fin(i,j))
178 > + xp*(fin(i+1,j+1)-fin(i+1,j))
179 fval(v,iadr)=sum*hyi(v)
188 sum=fin(i+1,j+1)-fin(i,j+1)-fin(i+1,j)+fin(i,j)
189 fval(v,iadr)=sum*hxi(v)*hyi(v)
201 subroutine pc2fcnx(ict,ivec,ivecd,
202 > fval,ii,jj,xparam,yparam,hx,hxi,hy,hyi,
210 real xparam(ivec),yparam
261 sum=ypi*(xpi*fin(i,j)+xp*fin(i+1,j))
262 > + yp*(xpi*fin(i,j+1)+xp*fin(i+1,j+1))
273 sum=ypi*(fin(i+1,j)-fin(i,j))
274 > + yp*(fin(i+1,j+1)-fin(i,j+1))
275 fval(v,iadr)=sum*hxi(v)
285 sum=xpi*(fin(i,j+1)-fin(i,j))
286 > + xp*(fin(i+1,j+1)-fin(i+1,j))
296 sum=fin(i+1,j+1)-fin(i,j+1)-fin(i+1,j)+fin(i,j)
297 fval(v,iadr)=sum*hxi(v)*hyi