1 subroutine r8gridherm2(
2 > x_newgrid,nx_new,y_newgrid,ny_new,f_new,if1,
3 > nx,xpkg,ny,ypkg,fspl,inf2,iwarn,ier)
18 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
19 INTEGER ny_new,nx_new,iy
21 real*8 x_newgrid(nx_new)
22 real*8 y_newgrid(ny_new)
27 REAL*8 f_new(if1,ny_new)
37 REAL*8 fspl(0:3,inf2,ny)
57 call r8vecherm2(ict,nx_new,x_newgrid,ytmp,nx_new,f_new(1,iy),
58 > nx,xpkg,ny,ypkg,fspl,inf2,iwarn,ier)