ender Subroutine

  1. mod_start.f90
  2. mod_start
  3. ender

public subroutine ender()

Arguments

None

Calls

proc~~ender~~CallsGraph proc~ender ender proc~timestamp timestamp proc~ender->proc~timestamp

Called by

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

Contents

Source Code

ender

Source Code

  subroutine ender()
    implicit none
    
    write(*,*) "##################################################################"
    call timestamp()
    write(*,*) " Terminate"
    write(*,*) "                        ROHSA ALGORITHM"                   
    write(*,*) ""
    write(*,*) "##################################################################"
  end subroutine ender