1 subroutine pc1ev(xget,x,nx,ilinx,f,ict,fval,ier)
68 call herm1x(xget,x,nx,ilinx,i,xparam,hx,hxi,ier)
71 call pc1fcn(ict,1,1,fval,i,xparam,hx,hxi,f,nx)
79 subroutine pc1fcn(ict,ivec,ivecd,
80 > fval,ii,xparam,hx,hxi,fin,nx)
132 fval(v,iadr)=xpi*fin(i)+xp*fin(i+1)
142 fval(v,iadr)=(fin(i+1)-fin(i))*hxi(v)