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

[Gary Scott <scottg@flash.net>]

Richard Maine wrote:
> 
> 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)

Do we need the following mod?

> 
>     module  some_functions
>       implicit none
>     contains
>       function my_func (x,y)
>         integer, intent(in) :: x(:), y(:)
>         integer :: my_func(size(x))
>  ==>    z = x + y
   ==>    my_func = x + y
>         return
>       end function my_func
>     end module some_functions
> 
> The calling stuff is the same.
> 
> --
> Richard Maine
> maine@qnet.com


-- 

Gary Scott
mailto:scottg@flash.net

mailto:webmaster@fortranlib.com
http://www.fortranlib.com

Support the GNU Fortran G95 Project:  http://xena.eas.asu.edu/~andy/