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

! Actual load = 799995

! This program should require no communication 

      PROGRAM MAIN 
      REAL X(-18:800002), Y(-9:800038) 
!HPF$ PROCESSORS P(6) 
!HPF$ TEMPLATE TX(-27:800006),TY(-17:800038) 
!HPF$ DISTRIBUTE TX(CYCLIC) ONTO P 
!HPF$ DISTRIBUTE TY(CYCLIC) ONTO P 
!HPF$ ALIGN X(i) WITH TX(1*i-4) 
!HPF$ ALIGN Y(i) WITH TY(1*i-3) 

      FORALL (i=-18:800002:1) X(i) = 0 
      FORALL (i=-9:800038:1) Y(i) = i 

      call pcrc_clock(0)

      do iloop = 1, 100
      FORALL (i=-5:799989:1) X(i) = Y(1*i+9) + Y(1*i+9) 
      enddo

      call pcrc_clock(1)

      PRINT 111, (X(i),i=-5,34)
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 
!  6 -18 -9 800002 800038 -5 799989 1 2 2 1 1 1 1 -27 800006 -17 800038 -4 -3 9 9 


!  Some selected output values for X(i)=-5,34:
!       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    62    64    66
!      68    70    72    74    76    78    80    82    84    86
!