Fortran generate wrong tf name from namelist

Example: TF in src:

"wh_bs_x1_gt_p1_ad_x1_lt_p2_be_p3_el_wh_bs_x1_lt_p4_be_p5_el_wh_bs_x1_lt_p6_be_p7_el_wh_bs_x1_lt_p8_b"// & "e_p9_el_wh_bs_x1_lt_p10_be_p11_el_wh_bs_x1_lt_p12_be_p13_el_wh_bs_x1_lt_p14_be_p15_el_wh_bs_x1_lt_p1"// & "6_be_p17_el_wh_bs_x1_lt_p18_be_p19_el_wh_bs_x1_lt_p20_be_p21_el_wh_bs_x1_lt_p22_be_p23_el_wh_bs_x1_l"// & "t_p24_be_p25_el_wh_bs_x1_lt_p26_be_p27_el_wh_bs_x1_lt_p28_be_p29_el_wh_bs_x1_lt_p30_be_p31_el_wh_bs_"// & "x1_lt_p32_be_p33_el_wh_bs_x1_lt_p34_be_p35_el_wh_bs_x1_lt_p36_be_p37_el_wh_bs_x1_lt_p38_be_p39_el_wh"// & "_bs_x1_lt_p40_be_p41_el_wh_bs_x1_lt_p42_be_p43", &

Namelist entry (i.e. tf):

'where (tvl > lut00 .and. tvl < lut01) lamsk00 else where (tvl < lut02) lamsk01 else where (tvl < lut03) lamsk02 else where (tvl < lut04) lamsk03 else where (tvl < lut05) lamsk04 else where (tvl < lut06) lamsk05 else where (tvl < lut07) lamsk06 else where (tvl < lut08) lamsk07 else where (tvl < lut09) lamsk08 else where (tvl < lut10) lamsk09 else where (tvl < lut11) lamsk10 else where (tvl < lut12) lamsk11 else where (tvl < lut13) lamsk12 else where (tvl < lut14) lamsk13 else where (tvl < lut15) lamsk14 else where (tvl < lut16) lamsk15 else where (tvl < lut17) lamsk16 else where (tvl < lut18) lamsk17 else where (tvl < lut19) lamsk18 else where (tvl < lut20) lamsk19 else where (tvl < lut21) lamsk20'

MPR output during runtime:

“wh_bs_x1_gt_p1_ad_x1_lt_p2_be_p3_el_wh_bs_x1_lt_p5_be_p6_el_wh_bs_x1_lt_p8_be_p9_el_wh_bs_x1_lt_p11_be_p12_el_wh_bs_x1_lt_p14_be_p15_el_wh_bs_x1_lt_p17_be_p18_el_wh_bs_x1_lt_p20_be_p21_el_wh_bs_x1_lt_p23_be_p24_el_wh_bs_x1_lt_p26_be_p27_el_wh_bs_x1_lt_p29_be_p30_el_wh_bs_x1_lt_p32_be_p33_el_wh_bs_x1_lt_p35_be_p36_el_wh_bs_x1_lt_p38_be_p39_el_wh_bs_x1_lt_p41_be_p42_el_wh_bs_x1_lt_p44_be_p45_el_wh_bs_x1_lt_p47_be_p48_el_wh_bs_x1_lt_p50_be_p51_el_wh_bs_x1_lt_p53_be_p54_el_wh_bs_x1_lt_p56_be_p57_el_wh_bs_x1_lt_p59_be_p60_el_wh_bs_x1_lt_p62_be_p63”