For Programmers: Free Programming Magazines  


Home > Archive > Fortran > August 2005 > Re: Reduce Blanks









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Re: Reduce Blanks
David Frank

2005-08-23, 7:57 am


"robin" <robin_v@bigpond.com> wrote in message
news:OAyOe.7795$FA3.2986@news-server.bigpond.net.au...
> David Frank wrote in message ...
>
>
> ', pad) )
>
>
> But it IS happening.
> What happens when the two intermediate arrays are ORed?
> With what is the last element of the intermediate array a(1:) /= ' '
> to be ORed?
>
>
> And with what is the last result of the intermediate array
> a(1:) /= ' ',
> to be used?
>
> You also have a strange idea of the order in which the
> intermediate results are performed.
>
> In all probabability the PACK operation does not commence
> until AFTER the intermediate arrays have been computed
> and those results ORed.
>
>


Giles and yourself are in agreement that my 3-line solution CANT be faster
than his..
Review below and then tell us you LIKE his version because its:
fast/legible/brief

In fact its:

1. 3% slower than Frank version
2. uses flag setting thats opaque to reader
3. twice the #executable statements (6 vs 3)

Btw, I am making future controversial code of mine available via the SAME
TEST.F90 file
which will be dynamic.. While current reduce blanks controversy continues
below is my solution file

Otoh, you show a few PL/I declarations in response to my request for actual
input/output results

http://home.earthlink.net/~dave_gemini/test.f90






Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com