module calculator
          implicit none
        contains
          subroutine add (a, b, output)
            integer, intent (in) :: a, b
            integer, intent (out) :: output
            output = a + b
          end subroutine add
        end module calculator