new_citation Function

public pure function new_citation(title, author, journal, issue, volume, year, pages, doi) result(citation)

Create a new citation

Arguments

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

Title of the publication
type(author_type), intent(in) :: author(:)

Authors of the publication
character(len=*), intent(in) :: journal

Journal of the publication
character(len=*), intent(in), optional :: issue

Issue of the publication
character(len=*), intent(in) :: volume

Volume of the publication
character(len=*), intent(in) :: year

Year of the publication
character(len=*), intent(in) :: pages

Page numbers of the publication
character(len=*), intent(in) :: doi

Digital Object Identifier (DOI) of the publication

Return Value type(citation_type)

The new citation


Source Code

pure function new_citation(title, author, journal, issue, volume, year, pages, doi) result(citation)
   !> Title of the publication
   character(len=*), intent(in) :: title
   !> Authors of the publication
   type(author_type), intent(in) :: author(:)
   !> Journal of the publication
   character(len=*), intent(in) :: journal
   !> Issue of the publication
   character(len=*), intent(in), optional :: issue
   !> Volume of the publication
   character(len=*), intent(in) :: volume
   !> Year of the publication
   character(len=*), intent(in) :: year
   !> Page numbers of the publication
   character(len=*), intent(in) :: pages
   !> Digital Object Identifier (DOI) of the publication
   character(len=*), intent(in) :: doi
   !> The new citation
   type(citation_type) :: citation

   citation%title = title
   citation%author = author
   citation%journal = journal
   citation%volume = volume
   citation%year = year
   citation%pages = pages
   citation%doi = doi
   if (present(issue)) citation%issue = issue
end function new_citation