From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,3a6a9f1d654285ba
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!postnews.google.com!h21g2000yqa.googlegroups.com!not-for-mail
From: jonathan <johnscpg@googlemail.com>
Newsgroups: comp.lang.ada
Subject: Re: Ada Shootout program for K-Nucleotide (patches)
Date: Sun, 2 Aug 2009 09:00:09 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <e8d91d88-e250-4650-ac34-baec70183b83@h21g2000yqa.googlegroups.com>
References: <4a743343$0$32674$9b4e6d93@newsspool2.arcor-online.net>
	<3f9f9e21-e088-4fbe-baac-dd43fdf6b911@r38g2000yqn.googlegroups.com>
	<4a757b0d$0$31328$9b4e6d93@newsspool4.arcor-online.net>
NNTP-Posting-Host: 143.117.23.236
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1249228809 1916 127.0.0.1 (2 Aug 2009 16:00:09
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 2 Aug 2009 16:00:09 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: h21g2000yqa.googlegroups.com; posting-host=143.117.23.236;
	posting-account=Jzt5lQoAAAB4PhTgRLOPGuTLd_K1LY-C
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.12)
	Gecko/2009072220 Iceweasel/3.0.6 (Debian-3.0.6-1),gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:7528
Date: 2009-08-02T09:00:09-07:00
List-Id: <comp.lang.ada>

On Aug 2, 12:39=A0pm, Georg Bauhaus <rm.tsoh.plus-
bug.bauh...@maps.futureapps.de> wrote:
> jonathan wrote:
>
> > I forgot to add I used:
>
> > =A0 gnatmake -gnatnp -O3 -funroll-all-loops -march=3Dnative knucleotide
>
> > with a running time of (usually) =A07.25 sec on the 25Meg data file:
>
> > =A0 =A0 time ./knucleotide < fasta25.dat
>
> Thanks for running the program, glad to hear how they work.
>
> Meanwhile I have a tasking version which runs a little (25%)
> faster. =A0The two new changes are
>
> 1 - make 3 additional tasks call Write; round robin
>
> 2 - order the results using a protected Printer object
> =A0with entry families. =A0Heck, these entry families have clever
> =A0features! :-)
>
> http://home.arcor.de/bauhaus/Ada/knucleotide.tasking.gnat

The new version worked like a charm.  I checked the web page, and
the output is correct.  Your latest version gave an additional
70% speedup on my machine, so:

     time ./knucleotide < fasta25.dat    # 25  Meg data file

ran in 4.2 seconds (fastest result), and

     time ./knucleotide < fasta250.dat   # 250 Meg data file

ran in  43 seconds.  I used

   gnatmake -gnatnp -O3 -march=3Dnative knucleotide

The -march=3Dnative was unnecesssary, as was the -funroll-all-loops.
My machine is a quadcore like the test machine, but more
recent and faster in GHz.  Still, the results look very respectable.

Jonathan