[Wien] Some interesting observation with "runsp_lapw -so -orb"on Mac OSX

[Zhu, Jianxin]

Because of "GOTO 8003" statement, the block put below section DO 10 will
not be skipped. 



-----Original Message-----
From: Gavin Abo <gsabo at crimson.ua.edu>
Reply-To: A Mailing list for WIEN2k users <wien at zeus.theochem.tuwien.ac.at>
Date: Mon, 24 Dec 2012 12:37:26 -0700
To: A Mailing list for WIEN2k users <wien at zeus.theochem.tuwien.ac.at>
Subject: Re: [Wien] Some interesting observation with "runsp_lapw -so
-orb"on Mac OSX

>Your statement in lapwso.f never runs:
>
>! find out whether orb potential should be added (iorbpot=1)
>       if(iunit.eq.12)then
>          iorbpot=1
>       endif
>
>It gets skipped over by the goto 11 in:
>
>       DO 10 I = LEN(fname), 1, -1
>          IF (fname(I:I) .EQ. '.') THEN
>             IF (fname(i+1:i+4) .eq. 'in1c') flcom=.true.
>             goto 11
>          ENDIF
>    10 CONTINUE
>
>You could put the statement before, but not after the DO 10 section.
>
>On 12/23/2012 7:38 PM, Zhu, Jianxin wrote:
>> Dear Peter,
>>
>>
>> In my previous message, I sent you the two files with the changes based
>>on
>> what you suggested.
>> For a given case with given values of U and J, "runsp_lapw -so -orb"
>> converges nicely.
>> Just now,  when I changed to use other values of U and J, the above run
>> seems to not see the use of new U and J values and just stops at the
>>first
>> iteration.
>>
>>
>>
>> Cheers,
>>
>> Jianxin
>
>_______________________________________________
>Wien mailing list
>Wien at zeus.theochem.tuwien.ac.at
>http://zeus.theochem.tuwien.ac.at/mailman/listinfo/wien