test/polylib/levenshtein-1-2-3f.f

   1 ! Generated from ../../../git/cloog/test/levenshtein-1-2-3f.cloog by CLooG 0.14.0-136-gb91ef26 gmp bits in 0.02s.
   2 S1(0,0)
   3 S2(1,0)
   4 S3(1,1)
   5 DO i=2, N
   6   S2(i,0)
   7   DO j=1, i-1
   8     S6(i,j)
   9   END DO
  10   S3(i,i)
  11 END DO
  12 S7(N+1,0)
  13 DO j=1, N
  14   S6(N+1,j)
  15   S8(N+1,j)
  16 END DO
  17 DO i=N+2, 2*M-N-2
  18   j = FLOOR(REAL(i-N-1)/REAL(2))
  19   S7(i,j)
  20   IF (MOD(i+N, 2) == 0) THEN
  21     S5(i,(i-N)/2)
  22     S8(i,(i-N)/2)
  23   END IF
  24   DO j=CEILING(REAL(i-N+1)/REAL(2)), FLOOR(REAL(i+N-1)/REAL(2))
  25     S6(i,j)
  26     S8(i,j)
  27   END DO
  28   IF (MOD(i+N, 2) == 0) THEN
  29     S4(i,(i+N)/2)
  30     S8(i,(i+N)/2)
  31   END IF
  32 END DO
  33 DO i=2*M-N-1, 2*M-2
  34   DO j=i-M+1, M-1
  35     S6(i,j)
  36   END DO
  37 END DO