author_name Function

public pure function author_name(name) result(author)

Create an author

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Name of the author

Return Value type(author_type)

The new author


Source Code

pure function author_name(name) result(author)
   !> Name of the author
   character(len=*), intent(in) :: name
   !> The new author
   type(author_type) :: author
   author%name = name
end function author_name