17 lines
343 B
Fortran
17 lines
343 B
Fortran
! { dg-options "-O3 " }
|
|
|
|
SUBROUTINE IVSORT (IL,IH,NSEGS,IOUNIT)
|
|
INTEGER IOUNIT
|
|
|
|
INTEGER, PARAMETER :: MAXGS = 32
|
|
|
|
10 IF (IL .GE. IH) GO TO 80
|
|
20 NSEGS = (IH + IL) / 2
|
|
IF (NSEGS .GT. MAXSGS) THEN
|
|
WRITE (IOUNIT),MAXSGS
|
|
ENDIF
|
|
80 NSEGS = NSEGS - 1
|
|
90 IF (IH - IL .GE. 11) GO TO 20
|
|
110 IF (IL .EQ. IH) GO TO 80
|
|
END SUBROUTINE IVSORT
|