,Ck820309 919.0c[e  module_ra_flg.f90BAND_NEWIJK   pp p    pp p    pp p   p%pp p pp p   p%pp p pp p   p%pp p pp p    pp p   p%pp p pp p    p%pp p pp p    ppp   p%pp ppp p   p%pp ppp p  ! ppp pp   p%pp ppp p  ppp  p%pp ppp p  p%pp ppp p ! ppp pp  ! ppp pp   p%pp ppp p  ppp  p%pp ppp p ! ppp pp   p%pp ppp p  ppp r p=pppppp  ppp  p=pppppp 9 ppppp  ppp  p=pppppp  9 ppppp ! ppp " p=pppppp #9 ppppp $9 ppppp %9 ppppp & ppp ' p=pppppp (9 ppppp )9 ppppp * +  , ppp - p=pppppp .9 ppppp / 0  1 ppp 2r p=pppppp 3 4  5  pp p  6: p=ppp ppp  7: p=ppp ppp  89 ppppp 9  pp p  : p=ppp ppp  ; p=ppp ppp  < ppp = p=pppppp > ppp ? p=pppppp @ ppp A p=pppppp#fn#fnbuapp(BAND_NEWHK_1_NEWmFKO3_1_NEWHK_2_NEWCOEHH22_2_NEWiCOEO2_2_NEW=COEH2O_2_NEWHK_3_NEWCOEHH32_3_NEWyCOEH2O_3_NEWMHK_4_NEWCOEHH42_4_NEWCOECO2_4_NEW COECO_4_NEW= COEH2O_4_NEW HK_5_NEW COEHH52_5_NEWy COECO2_5_NEWM COEN2O_5_NEWCOECH4_5_NEWCOEH2O_5_NEWHK_6_NEWCOEHH62_6_NEWCOESO2_6_NEWCOEH2O_6_NEWyHK_7_NEW COEH2O_7_NEWHK_8_NEWuCOEH2O_8_NEWICOENO_8_NEWHK_9_NEWCOEH2O_9_NEWeCOENO2_9_NEWHK_10_NEWCOEH2O_10_NEWCOECH4_10_NEW5COEN2O_10_NEWCOESO2_10_NEWHK_11_NEW1COEH2O_11_NEWCOECH4_11_NEWCOEN2O_11_NEW m@C11CFC11_11_NEW @C11CFC12_11_NEWHK_12_NEWCOEO3_12_NEWU COEH2O_12_NEW !@C12CFC11_12_NEW I!@C12CFC12_12_NEW!HK_13_NEW"COEH2O_13_NEW "@C13CFC11_13_NEW 1#@C13CFC12_13_NEWq#HK_14_NEW$COEHCA_14_NEW$COEHCB_14_NEW %COECH3CL_14_NEWa&HK_15_NEW&COEHCA_15_NEW'COEHCB_15_NEW(HK_16_NEW1)COEH2O_16_NEW*HK_17_NEW*COEH2O_17_NEWm+HK_18_NEW,COEH2O_18_NEW