From e55eb9cb03d6e940138d56083dc8e2dfbeefab9a Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Sun, 7 Apr 2013 09:54:17 -0400
Subject: [PATCH] Made Tab1_clear lower case.

---
 src/endf_header.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/endf_header.F90 b/src/endf_header.F90
index 337045c2b4..a2e8b10de4 100644
--- a/src/endf_header.F90
+++ b/src/endf_header.F90
@@ -16,7 +16,7 @@ module endf_header
     
     ! Type-Bound procedures
     contains
-      procedure :: clear => Tab1_clear ! deallocates a Tab1 Object.
+      procedure :: clear => tab1_clear ! deallocates a Tab1 Object.
   end type Tab1
   
   contains