ADAS Subroutine h4form
C function h4form(i,x) c----------------------------------------------------------------------- c c **************** fortran77 function: h4form.for ******************* c c purpose: specifies an independent variable transforma for splining c c calling program: various c c input : (i*4) i = selection parameter for transform c input : (r*8) x = independent variable c c output: (r*8) h4form = transformed independent variable c c routines: c c author: Hugh P. Summers, University of Strathclyde c JA7.08 c Tel.: +44 (0)141-548-4196 c c date: 24 July 2002 c c c version: 1.1 Hugh Summers 24/07/02 c modified: first release c c----------------------------------------------------------------------- INTEGER I REAL*8 X