[Wien] minor bug: mixer

[Laurence Marks]

Can you please send a test case, perhaps direct to my email. Thanks.

On Wed, Nov 14, 2012 at 12:50 AM, Kim Kyoo <kyoo at postech.ac.kr> wrote:
> 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
>



-- 
Professor Laurence Marks
Department of Materials Science and Engineering
Northwestern University
www.numis.northwestern.edu 1-847-491-3996
"Research is to see what everybody else has seen, and to think what
nobody else has thought"
Albert Szent-Gyorgi