From b20c612e25028f62a392e10f22af2997d50776c5 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Fri, 12 Oct 2012 17:55:23 +0000
Subject: [PATCH] added error "0" for internal (run time) checks failing

---
 code/IO.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/code/IO.f90 b/code/IO.f90
index 9eba2f98f..09192f6c4 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -1293,6 +1293,11 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)
 
  select case (error_ID)
 
+ !* internal errors
+ 
+ case (0_pInt)
+   msg = 'internal check failed:'
+
  !* file handling errors
  
  case (100_pInt)