robin

From: "David Frank" <dave_frank@hotmail.com>, RoadRunner - Central Florida
Date: Wed, 03 Dec 2003 09:06:18 GMT


..
You lie again. You did not ask for record processing.
Here is what you posted. As you see, you said nothing about
how any equivalent should be written, apart from loops.
And my PL/I program used fewer loops than your Fortran code did.
~From: "David Frank" <dave_frank@hotmail.com>, RoadRunner - Central Florida
Date: Tue, 25 Nov 2003 15:55:16 GMT
..
~prove it by posting a PL/I version of below simple fortran
~WITHOUT use of loops,
~(invoke those VASTLY SUPERIOR parsing functions you claim exist)
~
~! ---------------------------------
~program parse4 ! strip blanks, reverse text from text file
~integer :: n
~character(50) :: s
~character :: a(50) ; equivalence (a,s)
~
~open (1,file='parse4.txt')
~do
~ read (1,'(a)',end=101) s
~ n = len_trim(s)
~ a(n:1:-1) = pack( a, a /= ' ', spread(' ',1,n) )
~ write (*,*) s(1:n) ! blanks stripped, text reversed
~end do
~101 stop
~end program

tim challenger

Do I detect the sound of heavy wooden poles on grass ?
--
Tim.

If the human brain were simple enough that we could understand it, we would
be so simple that we couldn't.

david frank

Whats posted in my PL/I CANT FAQ is whats at issue, and I clearly
state above that file record text is whats at issue
(along with one of the VASTLY SUPERIOR PL/I array-valued functions)

You chose to post your char-by-char solution as your proof
in response to my CANT and it doesnt cut the mustard..

robin

From: "David Frank" <dave_frank@hotmail.com>, RoadRunner - Central Florida
Date: Wed, 03 Dec 2003 09:06:18 GMT


..
You lie again. You did not ask for record processing.
Here is what you posted. As you see, you said nothing about
how any equivalent should be written, apart from loops.
And my PL/I program used fewer loops than your Fortran code did.
~From: "David Frank" <dave_frank@hotmail.com>, RoadRunner - Central Florida
Date: Tue, 25 Nov 2003 15:55:16 GMT
..
~prove it by posting a PL/I version of below simple fortran
~WITHOUT use of loops,
~(invoke those VASTLY SUPERIOR parsing functions you claim exist)
~
~! ---------------------------------
~program parse4 ! strip blanks, reverse text from text file
~integer :: n
~character(50) :: s
~character :: a(50) ; equivalence (a,s)
~
~open (1,file='parse4.txt')
~do
~ read (1,'(a)',end=101) s
~ n = len_trim(s)
~ a(n:1:-1) = pack( a, a /= ' ', spread(' ',1,n) )
~ write (*,*) s(1:n) ! blanks stripped, text reversed
~end do
~101 stop
~end program

tim challenger

Do I detect the sound of heavy wooden poles on grass ?
--
Tim.

If the human brain were simple enough that we could understand it, we would
be so simple that we couldn't.

david frank

Whats posted in my PL/I CANT FAQ is whats at issue, and I clearly
state above that file record text is whats at issue
(along with one of the VASTLY SUPERIOR PL/I array-valued functions)

You chose to post your char-by-char solution as your proof
in response to my CANT and it doesnt cut the mustard..