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

diff --git a/source/wham/src-HCD/read_constr_homology.F b/source/wham/src-HCD/read_constr_homology.F
index ab9901d..dece50f 100644
--- a/source/wham/src-HCD/read_constr_homology.F
+++ b/source/wham/src-HCD/read_constr_homology.F
@@ -145,8 +145,10 @@ c
         unres_pdb=.false.
         if (read2sigma) then
           call readpdb_template(k)
+          close(ipdbin)
         else
           call readpdb
+          close(ipdbin)
         endif
 
 c        call readpdb
@@ -163,7 +165,6 @@ c        call readpdb
         write (iout,*) "read_constr_homology: after reading pdb file"
         call flush(iout)
 #endif
-
 c
 c     Distance restraints
 c