X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fread_coords.F;h=61fbbc97a792aff55bb855d9dba57a26fbae9150;hb=7b2b37b627d4824a841d3b5a018aa59d494b3d2f;hp=36e80e60ada56de470286291dc4dea1e2c5bb2c4;hpb=9eac8e3582cd09922d0d2c4142adcb85232e9c77;p=unres.git

diff --git a/source/cluster/wham/src/read_coords.F b/source/cluster/wham/src/read_coords.F
index 36e80e6..61fbbc9 100644
--- a/source/cluster/wham/src/read_coords.F
+++ b/source/cluster/wham/src/read_coords.F
@@ -222,6 +222,7 @@ c          call flush(iout)
                enddo
              enddo
           else
+            itmp=0
 #if (defined(AIX) && !defined(JUBL))
             call xdrf3dfcoord_(ixdrf, csingle, itmp, prec, iret)
             if (iret.eq.0) goto 101