Store the parameters of the binary neutron stars' \(\texttt{LORENE}\) ID into member variables
FT 5.10.2020
if flavour == 1
USE sphincs_id_full, ONLY: shorten_eos_name
elif flavour == 2
USE sphincs_id_lorene, ONLY: shorten_eos_name
endif
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(diffstarlorene), | intent(inout) | :: | this |
diffstarlorene object which this PROCEDURE is a member of |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(kind=C_CHAR, len=1), | private, | DIMENSION(str_length) | :: | eos_tmp_c | |||
character(kind=C_CHAR, len=1), | private, | DIMENSION(str_length2) | :: | eostable_tmp_c | |||
integer, | private | :: | i | ||||
integer, | private | :: | nchars | ||||
integer, | private, | parameter | :: | str_length | = | 100 | |
integer, | private, | parameter | :: | str_length2 | = | 500 |