wham & cluster PBC

[unres.git] / source / cluster / wham / src-HCD / read_constr_homology.F

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 (file)
--- 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