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

   1 ! Generated from ./levenshtein-1-2-3f.cloog by CLooG 0.18.1-2-g43fc508 gmp bits in 0.00s.
   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