View difference between Paste ID: RwShutYv and CBAX7JKt
SHOW: | | - or go back to the newest paste.
1-
IF (a < b) THEN                 ! a < b here
1+
IF (a < b) THEN                 //a < b here
2-
      IF (a < c) THEN              !   a < c     : a the smallest
2+
      IF (a < c) THEN             //   a < c     : a the smallest
3-
         IF (b < c) THEN           !      b < c  : a < b < c
3+
         IF (b < c) THEN           //      b < c  : a < b < c
4
            WRITE(*,*)  a, b, c
5-
         ELSE                      !      c <= b : a < c <= b
5+
         ELSE                      //     c <= b : a < c <= b
6
            WRITE(*,*)  a, c, b
7
         END IF
8-
      ELSE                         !   a >= c    : c <= a < b
8+
      ELSE                         //  a >= c    : c <= a < b
9
         WRITE(*,*) c, a, b
10
      END IF
11-
   ELSE                            ! b <= a here
11+
   ELSE                            // b <= a here
12-
      IF (b < c) THEN              !   b < c     : b the smallest
12+
      IF (b < c) THEN              //   b < c     : b the smallest
13-
         IF (a < c) THEN           !     a < c   : b <= a < c 
13+
         IF (a < c) THEN           //     a < c   : b <= a < c 
14
            WRITE(*,*)  b, a, c
15-
         ELSE                      !     a >= c  : b < c <= a
15+
         ELSE                      //    a >= c  : b < c <= a
16
            WRITE(*,*)  b, c, a
17
         END IF
18-
      ELSE                         !   c <= b    : c <= b <= a
18+
      ELSE                         //  c <= b    : c <= b <= a
19
         WRITE(*,*)  c, b, a
20
      END IF
21
   END IF