Line data    Source code

       1  15566019463 :   begin = 1
       2  15566019463 :   L_tail  = list_1%tail
       3            0 :   IF ( L_tail .EQ. 0 ) THEN
       4              :     firstHigher = -1 
       5  15566019463 :   ELSE  IF ( list_1%list(L_tail,Cdag_) .LT. time ) THEN
       6              :     firstHigher = -1
       7              :   ELSE 
       8  21810284980 :     DO WHILE ( L_tail .GT. begin )
       9  11840642534 :       old_tail  = L_tail
      10  11840642534 :       L_tail = (L_tail-begin) / 2 + begin
      11  21810284980 :       IF ( list_1%list(L_tail,Cdag_) .LT. time ) THEN
      12   5317978807 :         begin = L_tail + 1
      13   5317978807 :         L_tail  = old_tail
      14              :       END IF
      15              :     END DO
      16   9969642446 :     IF ( list_1%list(begin,Cdag_) .GT. time ) THEN
      17              :       firstHigher = begin
      18              :     ELSE
      19            0 :       firstHigher = L_tail
      20              :     END IF
      21              :   END IF