character(len=str_len_arr), |
public, | parameter | :: |
sv_rho1_name | = | "rho" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_v1_name | = | "v1" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_v2_name | = | "v2" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_v3_name | = | "v3" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_T1_name | = | "T" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_a1_name | = | "a1" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_a2_name | = | "a2" | |
character(len=str_len_arr), |
public, | parameter | :: |
sv_a3_name | = | "a3" | |
character(len=str_len_arr), |
public, | parameter | :: |
KNOWN_SV_NAMES(8) | = | [sv_rho1_name, sv_v1_name, sv_v2_name, sv_v3_name, sv_T1_name, sv_a1_name, sv_a2_name, sv_a3_name] | |