! ***** This is level 1 program *****

! Actual load = 800008

! This program should require no communication 

      PROGRAM MAIN 
      REAL X(-14:800042), Y(-97:800053) 
!HPF$ PROCESSORS P(8) 
!HPF$ TEMPLATE TX(-18:800048),TY(-106:800060) 
!HPF$ DISTRIBUTE TX(CYCLIC) ONTO P 
!HPF$ DISTRIBUTE TY(CYCLIC) ONTO P 
!HPF$ ALIGN X(i) WITH TX(1*i-1) 
!HPF$ ALIGN Y(i) WITH TY(1*i-1) 

      FORALL (i=-14:800042:1) X(i) = 0 
      FORALL (i=-97:800053:1) Y(i) = i 

      call pcrc_clock(0)

      do iloop = 1, 100
      FORALL (i=-1:800006:1) X(i) = Y(1*i-8) + Y(1*i-8) 
      enddo

      call pcrc_clock(1)

      PRINT 111, (X(i),i=-1,38)
111   FORMAT(1x,10f7.2) 
      END 
!  The parameters in order: 
!  p,lx,ly,ux,uy,l,u,s,d1,d2,ax,ay,a1,a2,ltx,utx,lty,uty,bx,by,b1,b2 
!  8 -14 -97 800042 800053 -1 800006 1 2 2 1 1 1 1 -18 800048 -106 800060 -1 -1 -8 -8 


!  Some selected output values for X(i)=-1,38:
!     -18   -16   -14   -12   -10    -8    -6    -4    -2     0
!       2     4     6     8    10    12    14    16    18    20
!      22    24    26    28    30    32    34    36    38    40
!      42    44    46    48    50    52    54    56    58    60
!