[Wien] minor bug: mixer

[Kim Kyoo]

Dear Wien2k users,

I found a small bug for mixer, Wien2k012.
in the SRC_mixer/nn.f,
subroutine ORD2(DISTS,NR,NC) might cause crash in the special case where
NC=1,
        when the condition, [ NR(2) in the previous memory < NR(1) ] holds

at the very end of nn.f,
50 NR(I)=I
!!------------------------
if (imax.eq.1) return   !! this line should be inserted as original nn.f in
SRC_mixer/nn.f
!!------------------------
100 I=1

Best, Kyoo

dept of Physics,
POSTECH
Kyoo Kim
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://zeus.theochem.tuwien.ac.at/pipermail/wien/attachments/20121114/14a1a338/attachment.htm>