X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fread_coords.F;h=61fbbc97a792aff55bb855d9dba57a26fbae9150;hb=22b8ccedb97b44c5e2f5a027fc5da9e57669d9fd;hp=36e80e60ada56de470286291dc4dea1e2c5bb2c4;hpb=e8aa82ee9b741d0ccebec2934f21bd1f204cdee7;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