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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,dc1b7d7417552349,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-29 14:39:07 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!news.dfrc.nasa.gov!not-for-mail
From: Jay Fantini <jay.fantini@dfrc.nasa.gov>
Newsgroups: comp.lang.ada
Subject: Parallel execution on SGI with GNAT
Date: Mon, 29 Oct 2001 14:27:56 -0800
Organization: NASA Dryden Flight Research Center
Message-ID: <3BDDD7EC.EC896675@dfrc.nasa.gov>
NNTP-Posting-Host: leibnitz.dfrc.nasa.gov
Mime-Version: 1.0
Content-Type: multipart/mixed;
 boundary="------------335F28236E630D2A099FF82F"
X-Trace: ftp2.dfrc.nasa.gov 1004394705 19063 130.134.253.4 (29 Oct 2001
 22:31:45 GMT)
X-Complaints-To: usenet@ftp2.dfrc.nasa.gov
NNTP-Posting-Date: 29 Oct 2001 22:31:45 GMT
X-Mailer: Mozilla 4.7 [en] (X11; U; IRIX 6.2 IP22)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:15378
Date: 2001-10-29T22:31:45+00:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------335F28236E630D2A099FF82F
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

 
--------------335F28236E630D2A099FF82F
Content-Type: text/plain; charset=us-ascii;
 name="hog.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="hog.txt"

Ada experts,

Maybe you can help me: I am trying to get the following program to execute
on a 6-CPU SGI ONYX-2 R12000 based system. The system is running IRIX 6.5
and I am using GNAT Ada-95 version 3.11p for SGI. The program does compile
and run but it only uses 1 CPU and I would like for it to execute on 3 CPUs.
This program is a prototype for a much larger program.

Do I need to set an environment variable or am I using the wrong Ada-95
construct? Is there a PRAGMA I should use? Please post all answers to this NG.

TIA,

-Jay

-- ******************************************************************

	with text_io;
	with integer_text_io;
	with tems_floating_point_std;
	with floating_point_math_lib;
	with fp_display;
	with higher_functions;
        with wexzal;

	use  tems_floating_point_std;
	use  floating_point_math_lib;
	use  higher_functions;
        use  wexzal;

	procedure hog is

        task type wzlsum(upper_limit: integer);
        task body wzlsum is
        x   :floating_point;
        s   :floating_point;
        begin
        for i in 1..upper_limit loop
          x:=floating_point(i);
          s:=s+1.0/(x*wzl(x));
          end loop;
        text_io.put("Sum for n=");
        integer_text_io.put(upper_limit);
        text_io.put(" is S=");
        fp_display.prt(s);
        text_io.new_line;
        end wzlsum;

        cpu_hog_5    :wzlsum(5000000);  -- Do big calculation in parallel
        cpu_hog_4    :wzlsum(4000000);
        cpu_hog_3    :wzlsum(3000000);

	begin
        text_io.put_line("Program HOG is done!");
	end hog;

--------------335F28236E630D2A099FF82F--