git

1
function RIGHT(a, b) result(c)
2

3
integer, intent(in) :: ChangeMe
4
integer, intent(in) :: b
5
integer, intent(out) :: c
6

7
c = a+b
8

9
end function RIGHT
10