tem_solverTag Function

public function tem_solverTag(solver) result(tag)

Function to return a solver tag (combination of solver name and version)

Arguments

Type IntentOptional Attributes Name
type(tem_solveHead_type), intent(in) :: solver

solver information

Return Value character(len=LabelLen)


Source Code

  function tem_solverTag( solver ) result( tag )
    ! ---------------------------------------------------------------------------
    !> solver information
    type(tem_solveHead_type), intent(in) :: solver
    ! ---------------------------------------------------------------------------
    ! defining local variables
    character(len=LabelLen) :: tag  ! solver
    ! ---------------------------------------------------------------------------

    tag = trim(solver%solName(:labellen/2)) // '_' &
      & // trim(solver%version(:(labellen/2)-1))
  end function tem_solverTag