d111be6fb69e8b67bf15ead8f3d15ee1babb70a3
1 /******************************************************************************
5 * $Date: 2007/03/26 01:00:39 $
8 * $Log: data_block_6.cpp,v $
9 * Revision 2.0 2007/03/26 01:00:39 hachti
10 * *** empty log message ***
13 ******************************************************************************/
15 #include "data_block_6.hh"
18 *\brief Specialisation constructor.
20 data_block_6::data_block_6(data_block
& org
)
23 m_has_known_type
=false;
28 *\brief Describe the block.
29 *\return A vector of text lines describing this block.
31 vector
<string
> data_block_6::get_description(){
32 vector
<string
> result
;
33 result
.insert(result
.end(),extract_label(3)+" "+get_typestring()+"Subroutine or Common Block Definition");
37 /***************************************************************/
39 *\brief Get exported symbols.
40 *\return A vector containing the symbol names exported by this
43 vector
<string
> data_block_6::get_exported_symbols(){
44 vector
<string
> result
;
45 string rs
=extract_label(3);
46 if (rs
!=" ") result
.insert(result
.end(),rs
);