is_citation_present Function

public pure function is_citation_present(citation) result(is_present)

Check if citation data is present

Arguments

Type IntentOptional Attributes Name
type(citation_type), intent(in) :: citation

The citation to check

Return Value logical

Whether the citation data is present


Source Code

pure function is_citation_present(citation) result(is_present)
   !> The citation to check
   type(citation_type), intent(in) :: citation
   !> Whether the citation data is present
   logical :: is_present

   is_present = allocated(citation%doi) &
      & .and.allocated(citation%title) &
      & .and.allocated(citation%author) &
      & .and.allocated(citation%journal) &
      & .and.allocated(citation%volume) &
      & .and.allocated(citation%year) &
      & .and.allocated(citation%pages)
end function is_citation_present