tem_print_execInfo Subroutine

public subroutine tem_print_execInfo()

Print information of the executable

Arguments

None

Calls

proc~~tem_print_execinfo~~CallsGraph proc~tem_print_execinfo tem_print_execInfo proc~tem_horizontalspacer tem_horizontalSpacer proc~tem_print_execinfo->proc~tem_horizontalspacer

Called by

proc~~tem_print_execinfo~~CalledByGraph proc~tem_print_execinfo tem_print_execInfo proc~hvs_banner hvs_banner proc~hvs_banner->proc~tem_print_execinfo

Contents

Source Code

tem_print_execInfo

Source Code

  subroutine tem_print_execInfo()
    ! -------------------------------------------------------------------- !
    integer :: flagline
    ! -------------------------------------------------------------------- !

    call tem_horizontalSpacer(fUnit = logUnit(1))
    write(logUnit(1),*) '| INFORMATION ON THE EXECUTABLE'
    write(logUnit(1),*) '| Revision of the code in this executable: ' &
      &                 // trim(soi_solver_revision)
    write(logUnit(1),*) '|'
    write(logUnit(1),*) '| Compiled with '//trim(soi_FC_name) &
      &                 // ' in version ' // trim(soi_FC_version)
    write(logUnit(1),*) '| Using the command ' // trim(soi_FC_command)
    write(logUnit(1),*) '| And the following flags:'
    do flagline = 1, soi_FC_nFlagLines
      write(logUnit(1),*) '| ' // trim(soi_FC_flags(flagline))
    end do
    write(logUnit(1),*) '|'
    write(logUnit(1),*) '| Build date: ' // trim(soi_build_date)
    call tem_horizontalSpacer(fUnit = logUnit(1))

  end subroutine tem_print_execInfo