From 7bfbd225912d112de4602b01fe4c256c5073ddeb Mon Sep 17 00:00:00 2001
From: hachti <hachti>
Date: Wed, 30 May 2007 01:33:08 +0000
Subject: [PATCH] Corrected handling for FORTRAN data blocks 3 and 4: added
 endblock capability.

---
 pc-tools/ldc2/src/data_block_3.cpp | 15 +++++++++++++--
 pc-tools/ldc2/src/data_block_3.hh  |  8 ++++++--
 pc-tools/ldc2/src/data_block_4.cpp | 16 ++++++++++++++--
 pc-tools/ldc2/src/data_block_4.hh  |  8 ++++++--
 4 files changed, 39 insertions(+), 8 deletions(-)

diff --git a/pc-tools/ldc2/src/data_block_3.cpp b/pc-tools/ldc2/src/data_block_3.cpp
index 612fdbd..4fe735a 100644
--- a/pc-tools/ldc2/src/data_block_3.cpp
+++ b/pc-tools/ldc2/src/data_block_3.cpp
@@ -2,11 +2,14 @@
  * 
  * LDC2 source code
  *
- * $Date: 2007/03/26 01:00:39 $
+ * $Date: 2007/05/30 01:33:08 $
  * $Author: hachti $
  *
  * $Log: data_block_3.cpp,v $
- * Revision 2.0  2007/03/26 01:00:39  hachti
+ * Revision 2.1  2007/05/30 01:33:08  hachti
+ * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
+ *
+ * Revision 2.0  2007-03-26 01:00:39  hachti
  * *** empty log message ***
  *
  *
@@ -34,6 +37,14 @@ vector<string> data_block_3::get_description(){
   return result;
 }
 
+/***************************************************************/
+/*!
+ *\brief Determine if the block marks the end of an object
+ *\return true because this block is an end block.
+ */
+bool data_block_3::is_endblock(){
+  return true;
+}
 
 
 
diff --git a/pc-tools/ldc2/src/data_block_3.hh b/pc-tools/ldc2/src/data_block_3.hh
index 3a5cf64..967022b 100644
--- a/pc-tools/ldc2/src/data_block_3.hh
+++ b/pc-tools/ldc2/src/data_block_3.hh
@@ -2,11 +2,14 @@
  * 
  * LDC2 source code
  *
- * $Date: 2007/03/26 01:00:39 $
+ * $Date: 2007/05/30 01:33:08 $
  * $Author: hachti $
  *
  * $Log: data_block_3.hh,v $
- * Revision 2.0  2007/03/26 01:00:39  hachti
+ * Revision 2.1  2007/05/30 01:33:08  hachti
+ * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
+ *
+ * Revision 2.0  2007-03-26 01:00:39  hachti
  * *** empty log message ***
  *
  *
@@ -33,6 +36,7 @@ protected:
 
 public:  
   vector<string> get_description();
+  virtual bool is_endblock();
 };
 
 #endif
diff --git a/pc-tools/ldc2/src/data_block_4.cpp b/pc-tools/ldc2/src/data_block_4.cpp
index 51b76cd..e884388 100644
--- a/pc-tools/ldc2/src/data_block_4.cpp
+++ b/pc-tools/ldc2/src/data_block_4.cpp
@@ -2,11 +2,14 @@
  * 
  * LDC2 source code
  *
- * $Date: 2007/03/26 01:00:39 $
+ * $Date: 2007/05/30 01:33:08 $
  * $Author: hachti $
  *
  * $Log: data_block_4.cpp,v $
- * Revision 2.0  2007/03/26 01:00:39  hachti
+ * Revision 2.1  2007/05/30 01:33:08  hachti
+ * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
+ *
+ * Revision 2.0  2007-03-26 01:00:39  hachti
  * *** empty log message ***
  *
  *
@@ -34,6 +37,15 @@ vector<string> data_block_4::get_description(){
   return result;
 }
 
+/***************************************************************/
+/*!
+ *\brief Determine if the block marks the end of an object
+ *\return true because this block is an end block.
+ */
+bool data_block_4::is_endblock(){
+  return true;
+}
+
 
 
 
diff --git a/pc-tools/ldc2/src/data_block_4.hh b/pc-tools/ldc2/src/data_block_4.hh
index 6ba7756..79fceda 100644
--- a/pc-tools/ldc2/src/data_block_4.hh
+++ b/pc-tools/ldc2/src/data_block_4.hh
@@ -2,11 +2,14 @@
  * 
  * LDC2 source code
  *
- * $Date: 2007/03/26 01:00:39 $
+ * $Date: 2007/05/30 01:33:08 $
  * $Author: hachti $
  *
  * $Log: data_block_4.hh,v $
- * Revision 2.0  2007/03/26 01:00:39  hachti
+ * Revision 2.1  2007/05/30 01:33:08  hachti
+ * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
+ *
+ * Revision 2.0  2007-03-26 01:00:39  hachti
  * *** empty log message ***
  *
  *
@@ -33,6 +36,7 @@ protected:
 
 public:  
   vector<string> get_description();
+  virtual bool is_endblock();
 };
 
 #endif
-- 
2.32.0