include 'COMMON.MINIM'
include 'COMMON.DERIV'
include 'COMMON.SPLITELE'
+ include 'COMMON.MD'
c Common blocks from the diagonalization routines
- COMMON /IOFILE/ IR,IW,IP,IJK,IPK,IDAF,NAV,IODA(400)
+ COMMON /IOFILE/ IR,IW,IPP,IJK,IPK,IDAF,NAV,IODA(400)
COMMON /MACHSW/ KDIAG,ICORFL,IXDR
logical mask_r
c real*8 text1 /'initial_i'/
#ifndef SPLITELE
nprint_ene=nprint_ene-1
#endif
+ usampl=.true.
return
end
c-------------------------------------------------------------------------