C23456
      Function Fasym(x)

      REAL a
      PARAMETER(a=0.03)
      Fasym= 3./8.*(1+x*x+a*x)
      END