c A program which calculates the sum of the sin of the first 100 integers 

      PROGRAM sinsqsum
        REAL:: sum,ri       ! real variables
        INTEGER:: i,j       ! integer variables
        sum=0               ! initialising the sum
        DO i=1,100          ! do loop to run over 100 integers
          ri=FLOAT(i)       ! FLOAT converts integer, i, to real, ri 
          sum=sum+SIN(ri)
          END DO            ! end the do loop
        sum=sum**2          ! square the sum
        PRINT *, 'The sum is',sum
        END PROGRAM sinsqsum