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 |