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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,dc1b7d7417552349 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-10-30 04:30:43 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!fr.usenet-edu.net!usenet-edu.net!enst!enst.fr!not-for-mail From: "David C. Hoos" Newsgroups: comp.lang.ada Subject: Re: Parallel execution on SGI with GNAT Date: Tue, 30 Oct 2001 06:31:21 -0600 Organization: ENST, France Sender: comp.lang.ada-admin@ada.eu.org Message-ID: References: <3BDDD7EC.EC896675@dfrc.nasa.gov> Reply-To: comp.lang.ada@ada.eu.org NNTP-Posting-Host: marvin.enst.fr Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Trace: avanie.enst.fr 1004445033 88949 137.194.161.2 (30 Oct 2001 12:30:33 GMT) X-Complaints-To: usenet@enst.fr NNTP-Posting-Date: Tue, 30 Oct 2001 12:30:33 +0000 (UTC) Cc: , To: Return-Path: X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 5.50.4522.1200 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200 Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org X-Mailman-Version: 2.0.6 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: comp.lang.ada mail<->news gateway List-Unsubscribe: , List-Archive: Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org Xref: archiver1.google.com comp.lang.ada:15403 Date: 2001-10-30T06:31:21-06:00 The way this is done on SGI gnat-3.11p is described in the package spec for System.Task_Info (file s-tasinf.ads). The SGI information on sproc will also be helpful in providing the background assumed by the writer of the comments in the aforementioned source file. It's been almost three years since I worked on SGI systems, so the details are hazy in my mind, but I do remember that the GNAT interface to the SGI sprocs was very nice and worked well. David C. Hoos (256) 704-9623 ----- Original Message ----- From: "Jay Fantini" Newsgroups: comp.lang.ada To: Sent: Monday, October 29, 2001 4:27 PM Subject: Parallel execution on SGI with GNAT > ---------------------------------------------------------------------------- ---- > 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; >