scale Module Reference

module SCALE More...

Functions/Subroutines
subroutine, public	scale_init (app_name)
	Initialization. More...
subroutine, public	scale_finalize
	Finalize. More...

Detailed Description

module SCALE

Description

initialization

Function/Subroutine Documentation

scale_init()

subroutine, public scale::scale_init

(

character(len=*), optional

app_name

)

Initialization.

Definition at line 65 of file scale.F90.

    use scale_prc, only: &
       prc_mpistart,        &
       prc_singlecom_setup, &
       prc_errhandler_setup
    use scale_const, only: &
       const_setup
    implicit none
 
    character(len=*), optional :: app_name
 
    character(len=H_SHORT) :: name
 
    ! for prc setup
    integer :: comm
    integer :: nprocs
    integer :: myrank
    logical :: ismaster
    !---------------------------------------------------------------------------
 
    if ( present(app_name) ) then
       name = app_name
    else
       name = "SCALE APPLICATION"
    end if
 
    ! start MPI
    call prc_mpistart( comm ) ! [OUT]
 
    ! setup MPI communicator
    call prc_singlecom_setup( comm,    & ! [IN]
                              nprocs,  & ! [OUT]
                              myrank,  & ! [OUT]
                              ismaster ) ! [OUT]
 
    ! setup errhandler
    call prc_errhandler_setup( .false., & ! [IN]
                               ismaster ) ! [IN]
 
    ! setup scale_io
    call io_setup( name, allow_noconf = .true. )
 
    ! setup log
    call io_log_setup( myrank, ismaster )
 
    ! setup profiler
    call prof_setup
 
    ! setup constants
    call const_setup
 
    call prof_rapstart( 'Main', 0 )
 
    return

References scale_const::const_setup(), scale_io::io_log_setup(), scale_io::io_setup(), scale_prc::prc_errhandler_setup(), scale_prc::prc_mpistart(), scale_prc::prc_singlecom_setup(), scale_prof::prof_rapstart(), and scale_prof::prof_setup().

Here is the call graph for this function:

scale_finalize()

subroutine, public scale::scale_finalize

Finalize.

Definition at line 123 of file scale.F90.

    use scale_file, only: &
       file_close_all
    use scale_prc, only: &
       prc_mpifinish
    implicit none
    !---------------------------------------------------------------------------
 
    call prof_rapend( 'Main', 0 )
 
    call file_close_all
 
    call prof_rapreport
 
    ! stop mpi
    call prc_mpifinish
 
    return

References scale_file::file_close_all(), scale_prc::prc_mpifinish(), scale_prof::prof_rapend(), and scale_prof::prof_rapreport().

Here is the call graph for this function: