real function f2(xarg) 
implicit none
real ::xarg

f2=xarg
end function f2