X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=pc-tools%2Fldc2%2Fsrc%2Fdata_block_6.cpp;fp=pc-tools%2Fldc2%2Fsrc%2Fdata_block_6.cpp;h=f4124af56f7cf6b280b67607850561d6e2a270f7;hb=798b0c1d967a7d8ac3c7a867d41bfa7b8e824048;hp=0000000000000000000000000000000000000000;hpb=f9d603d2bcbb512a77339091029f2eb1e0fd261f;p=h316.git

diff --git a/pc-tools/ldc2/src/data_block_6.cpp b/pc-tools/ldc2/src/data_block_6.cpp
new file mode 100644
index 0000000..f4124af
--- /dev/null
+++ b/pc-tools/ldc2/src/data_block_6.cpp
@@ -0,0 +1,22 @@
+#include "data_block_6.hh"
+
+/*!
+ *\brief Specialisation constructor.
+ */
+data_block_6::data_block_6(data_block & org)
+  :data_block(org)
+{}
+
+/*!
+ *\brief Describe the block.
+ *\return A vector of text lines describing this block.
+ */
+vector<string> data_block_6::get_description(){
+  vector<string> result;
+  result.insert(result.end(),extract_label(3)+"     "+get_typestring()+"Subroutine or Common Block Definition");
+  return result;
+}
+
+
+
+