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

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