[Wien] Error in lapw1para_lapw script causing errors when running parallel lapw2

["Paweł Leśniak, IFMPAN"]

W dniu 2009-06-18 07:09, Peter Blaha pisze:
> This is a good suggestion and I'll do that.
If my grep works fine, here's the patch:

--- wien2k_09.1.test/lapw1para_lapw     2009-06-18 09:18:07.000000000 +0200
+++ wien2k_09.1/lapw1para_lapw  2009-06-18 09:18:18.000000000 +0200
@@ -441,7 +441,7 @@

         if ($head >= $klist) then
             set head    = $klist
-           @ tail = $klist - $kold - 1
+           @ tail = $klist - ($kold - 1)
         endif
         set kpl = ($kpl $tail)
         if ($debug > 1) echo  "$loop : ${kpl[$loop]}k ($machine[$p], 
$weigh[$p])"

--- wien2k_09.1.test/testpara_lapw      2009-06-16 13:32:49.000000000 +0200
+++ wien2k_09.1/testpara_lapw   2009-06-18 09:19:21.000000000 +0200
@@ -280,7 +280,7 @@

         if ($head >= $klist) then
             set head    = $klist
-           @ tail = $klist - $kold - 1
+           @ tail = $klist - ($kold - 1)
         endif
         set kpl = ($kpl $tail)
         if ($?residue && $loop == 1) then

Couldn't find (using grep) any other usage in scripts of:
a = b - c op d
where op is any of + - * /
(only these types of formulas are affected I think).

> Thank's for your analysis.
Thank you for helping tracking down my problem.



Best regards

Pawel Lesniak