p Function

public function p(self) result(string_out)

Arguments

Type IntentOptional Attributes Name
class(string), intent(in) :: self

Return Value character(len=len)


Contents

Source Code

p

Source Code

function p(self) result (string_out)

! ident_30="@(#) M_strings oop_p(3f) return CHARACTER string from TYPE(STRING)"

class(string),intent(in)     :: self
character(len=len(self%str)) :: string_out
   string_out=self%str
end function p