1 subroutine dnherm2(x,nx,y,ny,fherm,nf2,ilinx,iliny,ier)
16 real fherm(0:3,nf2,ny)
35 call splinck(x,nx,ilinx,1.0e-3,ierx)
39 write(6,
'('' ?dnherm2: x axis not strict ascending'')')
42 call splinck(y,ny,iliny,1.0e-3,iery)
46 write(6,
'('' ?dnherm2: y axis not strict ascending'')')
51 write(6,*)
'?dnherm2: fherm array dimension too small.'
68 zd=(fherm(0,ixp,iy)-fherm(0,ixm,iy))/(x(ixp)-x(ixm))
74 zd=(fherm(0,ix,iyp)-fherm(0,ix,iym))/(y(iyp)-y(iym))
80 fherm(3,ix,iy)=(fherm(0,ixp,iyp)-fherm(0,ixm,iyp)
81 > -fherm(0,ixp,iym)+fherm(0,ixm,iym))/
82 > ((x(ixp)-x(ixm))*(y(iyp)-y(iym)))