Remove the last compiler directive
authorjulie <julielangou@users.noreply.github.com>
Thu, 13 Jan 2011 12:05:18 +0000 (12:05 +0000)
committerjulie <julielangou@users.noreply.github.com>
Thu, 13 Jan 2011 12:05:18 +0000 (12:05 +0000)
SRC/dlaebz.f

index 3edea854c777e4421d9f4e8b682a570876eb6002..ef2cb9f038c36275d786879cc397319540932130 100644 (file)
 *        Compute the number of eigenvalues in the initial intervals.
 *
          MOUT = 0
-*DIR$ NOVECTOR
          DO 30 JI = 1, MINP
             DO 20 JP = 1, 2
                TMP1 = D( 1 ) - AB( JI, JP )