header Subroutine

  1. mod_start.f90
  2. mod_start
  3. header

public subroutine header()

Arguments

None

Calls

proc~~header~~CallsGraph proc~header header proc~timestamp timestamp proc~header->proc~timestamp

Called by

proc~~header~~CalledByGraph proc~header header proc~main_rohsa main_rohsa proc~main_rohsa->proc~header program~rohsa ROHSA program~rohsa->proc~main_rohsa

Contents

Source Code

header

Source Code

  subroutine header()
    implicit none

    write(*,*) "-------------------------------------------------------------------------"
    call timestamp()
    write(*,*) ""
    write(*,*) "  ____     ___    _   _   ____       _    "
    write(*,*) " |  _ \   / _ \  | | | | / ___|     / \   "
    write(*,*) " | |_) | | | | | | |_| | \___ \    / _ \  "
    write(*,*) " |  _ <  | |_| | |  _  |  ___) |  / ___ \ "
    write(*,*) " |_| \_\  \___/  |_| |_| |____/  /_/   \_\ "
    write(*,*) ""
    write(*,*) " Version 1.0.0"
    write(*,*) " ROHSA is released as open source code"
    write(*,*) " Check out the documentation: https://antoinemarchal.github.io/ROHSA/"
    write(*,*) ""
    write(*,*) "run: ./ROHSA parameters.txt"
    write(*,*) "-------------------------------------------------------------------------"
  end subroutine header