real function f2(xarg)
  implicit none
  real ::xarg
  
  f2=tan(xarg)
end function f2