Re: F9X twister & ADA (was: n-dim'l vectors)

[Richard Maine <maine@qnet.com>]

Dick Hendrickson <dick.hendrickson@att.net> writes:

> Here's what I'd try to do to modify the original F90 sample

[elided]

Not too different from what I'd have done.  Dick did the most
important thing, which was to put it in a module.

There are a few other things I'd probably do differently, but they are
smaller and are also definitely matters of personal style preferences.
I wouldn't say my style choice is better or worse - just different.
In particular...

I avoid the DIMENSION keyword, choosing a slightly more compact style.

I'd also have the "implicit none" at the module scope instead of in
the function (it gets inherited into the function).

And I don't usually use a result clause for a function, so take it off and
replace all instances of z by my_func.

Add appropriate comments and you'd then have pretty much the way I'd
have probably written this myself.  That ends up with (except for
the comments, which I won't bother with here)

    module  some_functions
      implicit none
    contains
      function my_func (x,y)
        integer, intent(in) :: x(:), y(:)
        integer :: my_func(size(x))
        z = x + y
        return
      end function my_func
    end module some_functions

The calling stuff is the same.

-- 
Richard Maine
maine@qnet.com