print_source Function

private function print_source(this)

Arguments

Type IntentOptional Attributes Name
class(CONF_PAR), intent(in) :: this

Return Value character(len=3)


Contents

Source Code

print_source

Source Code

   FUNCTION print_source(this)
      CLASS(CONF_PAR), INTENT(IN) :: this
      CHARACTER(len=3) :: print_source

      print_source = "("//this%source//")"
   END FUNCTION print_source