Octopus
debug.F90 File Reference

Go to the source code of this file.

Modules

module  debug_oct_m
 

Data Types

type  debug_oct_m::debug_t
 
interface  debug_oct_m::debug_verrou_start_instrumentation
 
interface  debug_oct_m::debug_verrou_stop_instrumentation
 

Functions/Subroutines

subroutine, public debug_oct_m::debug_init (this, namespace)
 
subroutine, public debug_oct_m::debug_enable (this)
 
subroutine, public debug_oct_m::debug_disable (this)
 
subroutine, public debug_oct_m::debug_delete_trace ()
 
subroutine, public debug_oct_m::debug_open_trace (iunit)
 
subroutine debug_oct_m::from_bits (this)
 
subroutine, public debug_oct_m::epoch_time_diff (sec, usec)
 
subroutine debug_oct_m::time_diff (sec1, usec1, sec2, usec2)
 Computes t2 <- t2-t1. sec1,2 and usec1,2 are seconds,microseconds of t1,2. More...
 
subroutine, public debug_oct_m::debug_push_sub (sub_name)
 Push a routine to the debug trace. More...
 
subroutine push_sub_write (iunit_out)
 
subroutine, public debug_oct_m::debug_pop_sub (sub_name)
 Pop a routine from the debug trace. More...
 
subroutine pop_sub_write (iunit_out)
 
character(len=max_path_len) function, public debug_oct_m::debug_clean_path (filename)
 Prune a filename path to only include subdirectories of the "src" directory. More...
 

Variables

type(debug_t), save, public debug_oct_m::debug
 
integer, parameter debug_oct_m::unit_offset = 1000
 max_lun is currently 99, i.e. we can hardwire unit_offset above 1000 More...
 

Function/Subroutine Documentation

◆ push_sub_write()

subroutine debug_push_sub::push_sub_write ( integer, intent(in)  iunit_out)
private

Definition at line 475 of file debug.F90.

◆ pop_sub_write()

subroutine debug_pop_sub::pop_sub_write ( integer, intent(in)  iunit_out)
private

Definition at line 555 of file debug.F90.