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