amber-developers: lingering elif's

From: Scott Brozell <sbrozell.scripps.edu>
Date: Fri, 31 Mar 2006 14:05:14 -0700

Hi,

src/divcon/mosub.f

has an #elif. DMKL also looks incorrect.

   195 #ifdef CRAY
   196 C JV Use DSYEV for normal machines, SSYEV for T3E
   197 call SSYEVX('V','A','L', NK,FF,NK,0,0,0,0,1.0D-7,
   198 + M,EVAL(K1),EVEC,NK,WW,MSORB2,IWORK,IFAIL,IERROR
)
   199 #elif DMKL
   200 call DSYEVX('V','A','L', NK,FF,NK,0,0,0,0,1.0D-7,
   201 + M,EVAL(K1),EVEC,NK,WW,MSORB2,IWORK,IFAIL,IERROR
)
   202 #else
   203 CALL DIAG(NK,FF,NK,TOLERA,WW,EVAL(K1),
   204 & IDEGEN,EVEC,IERROR)
   205 #endif

Scott
Received on Wed Apr 05 2006 - 23:49:32 PDT