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

! Actual load = 799999

! This program should require no communication 

      PROGRAM MAIN 
      REAL X(-93:800027), Y(-86:800094) 
!HPF$ PROCESSORS P(2) 
!HPF$ TEMPLATE TX(-93:800034),TY(-94:800089) 
!HPF$ DISTRIBUTE TX(CYCLIC) ONTO P 
!HPF$ DISTRIBUTE TY(CYCLIC) ONTO P 
!HPF$ ALIGN X(i) WITH TX(1*i+2) 
!HPF$ ALIGN Y(i) WITH TY(1*i-6) 

      FORALL (i=-93:800027:1) X(i) = 0 
      FORALL (i=-86:800094:1) Y(i) = i 

      call pcrc_clock(0)

      do iloop = 1, 100
      FORALL (i=5:800003:1) X(i) = Y(1*i+7) + Y(1*i+7) 
      enddo

      call pcrc_clock(1)

      PRINT 111, (X(i),i=5,44)
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 
!  2 -93 -86 800027 800094 5 800003 1 2 2 1 1 1 1 -93 800034 -94 800089 2 -6 7 7 


!  Some selected output values for X(i)=5,44:
!      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    88    90    92    94    96    98   100   102
!