X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD%2Fread_constr_homology.F;h=b188deb6ebc67ea42a53c451f3d69e1a374ad93e;hb=df61eb1a0ad598d7c6c5b4037dee4bec200d5bc2;hp=cac0d062c2c0132210fa024c150b24ba8fc8e322;hpb=5aac27f7c6317fa0975184363614b42716034716;p=unres.git

diff --git a/source/cluster/wham/src-HCD/read_constr_homology.F b/source/cluster/wham/src-HCD/read_constr_homology.F
index cac0d06..b188deb 100644
--- a/source/cluster/wham/src-HCD/read_constr_homology.F
+++ b/source/cluster/wham/src-HCD/read_constr_homology.F
@@ -144,8 +144,10 @@ c
         unres_pdb=.false.
         if (read2sigma) then
           call readpdb_template(k)
+          close(ipdbin)
         else
           call readpdb(out_template_coord)
+          close(ipdbin)
         endif
 
 c        call readpdb