X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fread_coords.F;h=6f8920a0c6d7b8f3ecc378e0a340a6d3efb5f9b6;hb=3e42b5f53e0ec03cd03009f3b857931ce7ee25c2;hp=55f52e37d27f0ffb2d31953f2b9b66e9fb57d96c;hpb=ba8f40a2336651a42eb42e9d3379d62aa11bb5d7;p=unres.git

diff --git a/source/cluster/wham/src-M/read_coords.F b/source/cluster/wham/src-M/read_coords.F
index 55f52e3..6f8920a 100644
--- a/source/cluster/wham/src-M/read_coords.F
+++ b/source/cluster/wham/src-M/read_coords.F
@@ -212,6 +212,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
@@ -686,7 +687,7 @@ c     &    nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss),
 #endif
 C#undef DEBUG
       enddo
-      write (iout,*) "just before leave"
+c      write (iout,*) "just before leave"
       call flush(iout)
       return
       end