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

diff --git a/source/cluster/wham/src-HCD-5D/read_constr_homology.F b/source/cluster/wham/src-HCD-5D/read_constr_homology.F
index cac0d06..b188deb 100644
--- a/source/cluster/wham/src-HCD-5D/read_constr_homology.F
+++ b/source/cluster/wham/src-HCD-5D/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