Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!ogicse!emory!mephisto!prism!prism.gatech.EDU!ccsupeh
From: ccsupeh@prism.gatech.EDU (Eric Hoffman)
Newsgroups: comp.sys.sgi
Subject: POWER FORTRAN Accelerator
Message-ID: <9019@hydra.gatech.EDU>
Date: 7 May 90 14:54:54 GMT
Sender: ccsupeh@prism.gatech.EDU
Organization: Georgia Institute of Technology
Lines: 38


Does anyone have any experience with the Power Fortran Accelerator?
I have been trying to run PFA on a POWER SERIES 4D/220S with 2 CPU 
without any success: it slows down my codes.
I am using a fairly simple code to do tests. Whatever (-On) option I use,
(-pfa) increases both clock and cpu time.
Any clue?

The test code follows:


      PROGRAM test_mat
c size: nmaxs
      parameter(nmaxs=1024,mmaxs=1024)
      real alpha(nmaxs),beta(mmaxs),o(nmaxs,mmaxs)
      data m,n/1024,1024/
      time0=second()
      do 20 j=1,n
      do 10 i=1,m
      o(i,j)=float(i)+float(j)
 10   continue
      alpha(i)=float(i)
 20   continue
      do 30 i=1,120
      call HSMVPS(M,N,o,nmaxs,alpha,beta,IER)
 30   continue
      time1=second()
      write(6,*)' Total : ',time1-time0
      stop
      end
      subroutine HSMVPS(M,N,A,NROWA,X,Y,IER)
      REAL A(NROWA,N),x(n),y(m)
      do 29 j=1,n
      do 27 i=1,m
      y(i)=y(i)+a(i,j)*x(j)
 27   continue
 29   continue
      end