--- /dev/null
+#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;
+}
+
+
+
+