character(len=str_len_arr), |
public, | parameter | :: |
S_name | = | "S" | |
character(len=str_len_arr), |
public, | parameter | :: |
div_v_name | = | "div v" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_v_1_name | = | "(curl v)1" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_v_2_name | = | "(curl v)2" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_v_3_name | = | "(curl v)3" | |
character(len=str_len_arr), |
public, | parameter | :: |
B1_name | = | "B1" | |
character(len=str_len_arr), |
public, | parameter | :: |
B2_name | = | "B2" | |
character(len=str_len_arr), |
public, | parameter | :: |
B3_name | = | "B3" | |
character(len=str_len_arr), |
public, | parameter | :: |
div_B_name | = | "div B" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_B_1_name | = | "(curl B)1" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_B_2_name | = | "(curl B)2" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_B_3_name | = | "(curl B)3" | |
character(len=str_len_arr), |
public, | parameter | :: |
B_para_name | = | "B_para" | |
character(len=str_len_arr), |
public, | parameter | :: |
B_perp_name | = | "B_perp" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_B_para_name | = | "(curl B)_para" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_B_perp_name | = | "(curl B)_perp" | |
character(len=str_len_arr), |
public, | parameter | :: |
v_para_name | = | "v_para" | |
character(len=str_len_arr), |
public, | parameter | :: |
v_perp_name | = | "v_perp" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_v_para_name | = | "(curl v)_para" | |
character(len=str_len_arr), |
public, | parameter | :: |
curl_v_perp_name | = | "(curl v)_perp" | |
character(len=str_len_arr), |
public, | parameter | :: |
dB1_name | = | "dB1" | |
character(len=:), |
private, | allocatable | :: |
state_vector(:) | | | |
logical, |
private | | :: |
can_get_pp | | | |