*******>leap.patch

Author: Jason Swails

Date: 30 April, 2014

Programs: tleap, xleap

Description: Solves potential inpcrd file truncation from tleap

--------------------------------------------------------------------------------

diff --git AmberTools/src/leap/src/leap/unitio.c AmberTools/src/leap/src/leap/unitio.c
index cbab939..4e78ee3 100644
--- AmberTools/src/leap/src/leap/unitio.c
+++ AmberTools/src/leap/src/leap/unitio.c
@@ -6897,6 +6897,7 @@ if (bPolar && GDefaults.iIPOL <= 0) // NOT allowed to save IPOL=0 for polarizabl
     VarArrayDestroy(&vaExcludedCount);
     VarArrayDestroy(&vaNBIndex);
     VarArrayDestroy(&vaNonBonds);
+    fclose( fCrd );
 
 }
 
@@ -8528,6 +8529,7 @@ IX_DESC         iResIx;
     VarArrayDestroy( &vaExcludedCount );
     VarArrayDestroy( &vaNBIndex );
     VarArrayDestroy( &vaNonBonds );
+    fclose( fCrd );
 
 }
 static char *prepfmt = "   %-3d %-4s  %-4s  %c      %f  %f  %f    %f\n";