Miscellany

Recursive function facto(n) result(res)
integer, intent(in)::n
integer::res

if(n==0) then
   res = 1
else
   res = n*facto(n-1)
end if


end function facto