constructor Submodule

Implementation of the constructor and destructor of TYPE diffstarlorene, and of the diffstarlorene-member PROCEDURES that call the C-bound PROCEDURES constructig and destructing the \(\texttt{LORENE}\) \(\texttt{Et_diffrot}\) object

FT 25.10.2021


Uses

  • module~~constructor~4~~UsesGraph module~constructor~4 constructor iso_c_binding iso_c_binding module~constructor~4->iso_c_binding module~diffstar_lorene diffstar_lorene module~constructor~4->module~diffstar_lorene module~diffstar_lorene->iso_c_binding module~diffstar_base diffstar_base module~diffstar_lorene->module~diffstar_base module~id_base id_base module~diffstar_lorene->module~id_base module~utility utility module~diffstar_lorene->module~utility timing timing module~diffstar_lorene->timing module~diffstar_base->module~id_base module~diffstar_base->module~utility module~id_base->module~utility module~id_base->timing constants constants module~utility->constants matrix matrix module~utility->matrix

Contents

Module Procedures


Module Procedures

module procedure construct_diffstarlorene module subroutine construct_diffstarlorene(derived_type, filename, eos_filenames)

Constructs an object of TYPE diffstarlorene

Read more…

Arguments

Type IntentOptional Attributes Name
class(diffstarlorene), intent(out) :: derived_type

Constructed diffstarlorene object
character(len=*), intent(in), optional :: filename

\(\texttt{LORENE}\) binary file containing the spectral \(\mathrm{DRS}\) \(\mathrm{ID}\)
character(len=*), intent(in), optional, DIMENSION(:) :: eos_filenames

Array of strings containing the names of the files containing the \(\mathrm{EOS}\) to be used for each matter object. If not PRESENT, information from the file filename is used

module procedure construct_drs module subroutine construct_drs(this, id_file, eos_filename)

Construct the \(\texttt{LORENE}\) \(\texttt{Et_diffrot}\) object

Read more…

Arguments

Type IntentOptional Attributes Name
class(diffstarlorene), intent(inout) :: this

diffstarlorene object which this PROCEDURE is a member of
character(kind=C_CHAR, len=*), intent(in), optional :: id_file

\(\texttt{LORENE}\) binary file containing the spectral \(\mathrm{DRS}\) \(\mathrm{ID}\)
character(kind=C_CHAR, len=*), intent(in), optional :: eos_filename

Array of strings containing the names of the files containing the \(\mathrm{EOS}\) to be used for each matter object. If not PRESENT, information from the file filename is used

module procedure destruct_diffstarlorene module subroutine destruct_diffstarlorene(this)

Destructs an object of TYPE diffstarlorene

Read more…

Arguments

Type IntentOptional Attributes Name
type(diffstarlorene), intent(inout) :: this

diffstarlorene object to be destructed

module procedure destruct_drs module subroutine destruct_drs(this)

Destructs the \(\texttt{LORENE}\) \(\texttt{Et_diffrot}\) object and frees the pointer diffstar_ptr pointing to it

Read more…

Arguments

Type IntentOptional Attributes Name
class(diffstarlorene), intent(inout) :: this

diffstarlorene object which this PROCEDURE is a member of

module procedure finalize module subroutine finalize(npart, pos, nlrf, u, pr, vel_u, theta, nstar, nu)

This SUBROUTINE is curretly just a placeholder. It could be used, for exmaple, to correct the ADM momentum at the end of the execution, or correct for residual eccentricity, etc.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: npart

Particle number
double precision, intent(inout), DIMENSION(3,npart) :: pos

Particle positions
double precision, intent(inout), DIMENSION(npart) :: nlrf

Baryon density in the local rest frame on the particles
double precision, intent(inout), DIMENSION(npart) :: u

Specific internal energy on the particles
double precision, intent(inout), DIMENSION(npart) :: pr

Pressure on the particles
double precision, intent(inout), DIMENSION(3,npart) :: vel_u

Spatial velocity in the computing frame on the particles
double precision, intent(inout), DIMENSION(npart) :: theta

Generalized Lorentz factor on the particles
double precision, intent(inout), DIMENSION(npart) :: nstar

Proper baryon density in the local rest frame on the particles
double precision, intent(inout), DIMENSION(npart) :: nu

Baryon number per particle

module procedure nothing module subroutine nothing(this, flag, switch)

Procedure that does nothing. It is used to instantiate a deferred idbase procedure which s not needed in TYPE ejecta_generic. It also serves as a placeholder in case the idbase procedure will be needed in the future.

Read more…

Arguments

Type IntentOptional Attributes Name
class(diffstarlorene), intent(inout) :: this
integer, intent(in) :: flag

Identifies what kind of initialization has to be done
logical, intent(in), optional :: switch

If .TRUE., switch to a different initialization