Method: BOAST::CStruct#header_fortran

Defined in:
lib/BOAST/DataTypes.rb

#header_fortran(final = true) ⇒ Object 



286
287
288
289
290
291
292
293
294
295
296
297
298
299
 
# File 'lib/BOAST/DataTypes.rb', line 286

def header_fortran(final = true)
  s = ""
  s += self.indent if final
  s += "TYPE :: #{@name}\n"
  members_array.each { |value|
     s+= self.indent if final
     s+= " "*BOAST::get_indent_increment + value.decl(false)+"\n"
  }
  s += self.indent if final
  s += "END TYPE #{@name}"
  s += self.finalize if final
  BOAST::get_output.print s if final
  return s
end