CLooG 0.18.4
[cloog.git] / test / levenshtein-1-2-3f.f
blobe24f77dfe7da5e2fecbd021dd39450b6c6271f5b
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