dynlib_mod Module Reference

Data Types
type	dyn_lib_type

Functions/Subroutines
subroutine	init_dyn_lib_struc (mode)

Variables
integer, parameter	nbr_dlib =100
integer, parameter	dlib_name_len =100
integer, dimension(nbr_dlib)	dlib_array
type(dyn_lib_type), dimension(:), allocatable	dlib_struct
integer	ispmd_user
integer	nspmd_user
integer	ntask_user
integer	mstop_user
integer	ncycle_user
real(kind=8)	tstop_user
real(kind=8)	tt_user
integer, parameter	id_engine_user_check =1
integer, parameter	id_engine_user_finalize = 2
integer, parameter	id_engine_user_initialize = 3

Function/Subroutine Documentation

init_dyn_lib_struc()

subroutine dynlib_mod::init_dyn_lib_struc

(

integer

mode

)

Definition at line 96 of file dynlib_mod.F.

!$COMMENT
!           INIT_DYN_LIB_STRUC description
!           INIT_DYN_LIB_STRUC initializes the name of user routines and 
!           the DLIB_BOOL flag available / non-available 
!$ENDCOMMENT
!       -----------------------------------------------
!           I m p l i c i t   T y p e s
!       -----------------------------------------------
#include      "implicit_f.inc"
        INTEGER :: I,MODE
!       -----------------------------------------------
        IF(mode==0) THEN
            DO i=1,nbr_dlib
                dlib_struct(i)%DLIB_NAME(1:dlib_name_len) = ''
                dlib_struct(i)%DLIB_BOOL=.false.
            ENDDO
       
        ELSE
            DO i=1,nbr_dlib
                IF(dlib_array(i)/=0) dlib_struct(i)%DLIB_BOOL=.true.
            ENDDO
 
            dlib_struct(id_engine_user_check)%DLIB_NAME(1:17) = "ENGINE_USER_CHECK"
            dlib_struct(id_engine_user_finalize)%DLIB_NAME(1:20) = "ENGINE_USER_FINALIZE"
            dlib_struct(id_engine_user_initialize)%DLIB_NAME(1:22) = "ENGINE_USER_INITIALIZE"
        ENDIF
 
        RETURN

Variable Documentation

dlib_array

integer, dimension(nbr_dlib) dynlib_mod::dlib_array

Definition at line 65 of file dynlib_mod.F.

        INTEGER, DIMENSION(NBR_DLIB) :: DLIB_ARRAY

dlib_name_len

integer, parameter dynlib_mod::dlib_name_len =100

Definition at line 64 of file dynlib_mod.F.

        INTEGER, PARAMETER :: DLIB_NAME_LEN=100

dlib_struct

type(dyn_lib_type), dimension(:), allocatable dynlib_mod::dlib_struct

Definition at line 72 of file dynlib_mod.F.

        TYPE(DYN_LIB_TYPE),DIMENSION(:), ALLOCATABLE :: DLIB_STRUCT

id_engine_user_check

integer, parameter dynlib_mod::id_engine_user_check =1

Definition at line 84 of file dynlib_mod.F.

        INTEGER, PARAMETER :: ID_ENGINE_USER_CHECK=1

id_engine_user_finalize

integer, parameter dynlib_mod::id_engine_user_finalize = 2

Definition at line 85 of file dynlib_mod.F.

        INTEGER, PARAMETER :: ID_ENGINE_USER_FINALIZE = 2

id_engine_user_initialize

integer, parameter dynlib_mod::id_engine_user_initialize = 3

Definition at line 86 of file dynlib_mod.F.

        INTEGER, PARAMETER :: ID_ENGINE_USER_INITIALIZE = 3

ispmd_user

integer dynlib_mod::ispmd_user

Definition at line 75 of file dynlib_mod.F.

        INTEGER :: ISPMD_USER   !   --> ispmd : proc ID

mstop_user

integer dynlib_mod::mstop_user

Definition at line 78 of file dynlib_mod.F.

        INTEGER :: MSTOP_USER    !   --> mstop : 0 = ok ; 1 = stop the run

nbr_dlib

integer, parameter dynlib_mod::nbr_dlib =100

Definition at line 63 of file dynlib_mod.F.

        INTEGER, PARAMETER :: NBR_DLIB=100

ncycle_user

integer dynlib_mod::ncycle_user

Definition at line 79 of file dynlib_mod.F.

        INTEGER :: NCYCLE_USER  !   --> ncycle : number of cycle

nspmd_user

integer dynlib_mod::nspmd_user

Definition at line 76 of file dynlib_mod.F.

        INTEGER :: NSPMD_USER   !   --> nspmd : total number of mpi tasks

ntask_user

integer dynlib_mod::ntask_user

Definition at line 77 of file dynlib_mod.F.

        INTEGER :: NTASK_USER   !   --> ntask : total number of openmp tasks

tstop_user

real(kind=8) dynlib_mod::tstop_user

Definition at line 80 of file dynlib_mod.F.

        REAL(kind=8) :: tstop_user   !   --> tstop : stop time

tt_user

real(kind=8) dynlib_mod::tt_user

Definition at line 81 of file dynlib_mod.F.

        REAL(kind=8) :: tt_user      !   --> tt : current time