.#ýü! 65 Fortran_Continue_Char! &þ / custom_variableýü! 76 Fortran_Comment_String! Cþ / custom_variableýü! 85 Fortran_Indent_Amount! 2þ / custom_variable,ü" 13 # bolýü" 14% 0-9 þ * skip_charsýü" 15 5 Fortran_Continue_Charþ * looking_at. * go_righ t_1/cü" 16 * skip_whiteü" 11…6 bol_skip_to_code_start,*ü" 19 # col+ü" 21 . bol_skip_whiteýü" 22# 0-9þ * skip_charsü" 23 $ trimýü" 24 5 Fortran_Continue_Charþ * looking_at.ýü" 26! 6 + what_column:þ - insert_spacesü" 27 * go_right_1 $ trimü" 28 5 Fortran _Indent_Amount±# col/cýü" 30 # col + what_column:þ - insert_spacesü" 19…2 indent_line_to_col,*ü" 36 $ goal+! 7°$ goal*ü" 37 " cs+ + CASE_SEARCH°" cs*ü" 38 " ch+ü" 40 ) push_spotü" 41 ) push_spotü" 42! 0°+ CASE_SEARCH.ü" 43 $ up_1/.ü" 45 . bol_skip_whit eü" 46 $ eolpý 5 Fortran_Continue_Charþ * looking_atD.u/cü" 47 6 bol_skip_to_code_startü" 48 + what_column°$ goalü" 50 $ goal! 1A.u/cýü" 52# do þ * looking_at.ý$ elseþ * looking_at/.ý) structureþ * looking_at/7.ü" 53 5 Fortran_Indent_Amount±$ goal/.ýü " 54# if þ * looking_at.ý# if(þ * looking_at/7.ü" 57 ) push_spot.ü" 58 & down_1/.ü" 60 . bol_skip_whiteýü" 61 5 Fortran_Continue_Charþ * looking_at.ü" 63 ' go_up_1ü" 64 # bolv/b/fýü" 68$ thenþ % ffind. 5 Fortran_Indent_Amount±$ goal/cü" 69 ( pop_spot/ c/dv/fü" 75 ( pop_spotü" 76 ) push_spotü" 77 6 bol_skip_to_code_startü" 79 ) push_markýü" 80& a-zA-Zþ * skip_chars*ü" 81 $ word+ý ) bufsubstrþ & strlow°$ wordýü" 82 $ wordý# end% endif% enddo( continueü" 83$ else, endstructureàAþü" 82 # any.ü" 84 5 Fortran_Indent_Amount²$ goal/cü" 86 " cs°+ CASE_SEARCHü" 87 $ goal! 7=.! 7°$ goal/cü" 88 ( pop_spotü" 90 . bol_skip_whiteýü" 94 ) what_charþ $ char°" chü" 95 " ch.ýü" 97 " chþ ' isdigit3ü" 99 + what_column! 6@.ü# 101 ( bol_trimü# 102 3 insert_single_ space/cýü# 104 $ goalþ 2 indent_line_to_col/.ü# 107 5 Fortran_Continue_Charx3ü# 108 ( bol_trimý! 5þ - insert_spacesýü# 109 $ goalþ 2 indent_line_to_col/.ü# 112 $ bolpN $ eolpD3ü# 113 ( bol_trimü# 114¹$ goalýü# 115 $ goalþ - insert_spaces/jü# 117 ( pop_sp otü# 118 * skip_whiteü" 34y. fortran_indent,ü# 123 # bolýü# 124% 0-9þ * skip_charsü# 125 $ bolp $ eolpNCü# 121y2 fortran_is_comment,*ü# 130 ! p $ cont+ü# 132 $ bolp.ü# 134 ' newlinew/cü# 138 . fortran_indentü# 139 ) push_spotü# 140 + bskip_white $ tr imü# 142 + what_column" 72?.ü# 144 ) push_spotü# 145 . bol_skip_whiteü# 146 $ bolp.ý8 Line exceeds 72 columns.þ ' message/bü# 147 ( pop_spot/cü# 150 * _get_point°! pýü# 151' -+*=/,(þ + bskip_charsü# 153 ! p * _get_pointB°$ contü# 155 2 fortran_is_comme nt.! 0°$ cont/cü# 157 . bol_skip_whiteýü# 158% data þ * looking_at.! 0°$ cont/cü# 160 ( pop_spotü# 162 ' newlineü# 163 3 insert_single_spaceü# 164 $ cont.ý 5 Fortran_Continue_Charþ & insert/cü# 165 . fortran_indentü# 128y/ fortran_newline,ü# 170 / for tran_newlineü# 172 ) push_spotü# 173 . bol_skip_whiteýü# 174 5 Fortran_Continue_Charþ * looking_at. ( pop_spot/.ýü# 177 5 Fortran_Continue_Charþ & insertü# 178 ( pop_spotü# 179 . fortran_indentü# 180 * go_right_1ü# 181 * skip_white/dü# 168y8 fortran_conti nue_newline,ýü# 190 ) LAST_CHARþ + insert_charü# 191 ) push_spotü# 193 2 fortran_is_comment. ( pop_spot/.ü# 196 . bol_skip_whiteýü# 197# 0-9þ * skip_chars $ trimü# 198 ( pop_spotü# 199 . fortran_indent/dü# 188y6 fortran_electric_label,ü# 207 ) push_spo tü# 208 2 fortran_is_comment.ü# 210 # bolýü# 211 6 Fortran_Comment_Stringþ * looking_at.ýýü# 212 6 Fortran_Comment_Stringþ & strlenþ $ deln/.ü# 213 # del/d/cü# 216 . fortran_indentü# 217 ( pop_spotü# 218 ) go_down_1ü# 205y1 fortran_uncomment,ü# 223 2 for tran_is_comment.ü# 225 - push_spot_bolýü# 226 6 Fortran_Comment_Stringþ & insert/bü# 228 ( pop_spotü# 229 ) go_down_1ü# 221y/ fortran_comment,*ü# 237 " cs+ + CASE_SEARCH°" csü# 239! 0°+ CASE_SEARCH.ü# 242 . bol_skip_whiteü# 243 * _get_point.ýü# 245' pr ogramþ * looking_atýü# 246( functionþ * looking_atDýü# 247* subroutineþ * looking_atD.v/c/c/.ü# 250 $ up_1/kü# 251 " cs°+ CASE_SEARCHü# 235y9 fortran_beg_of_subprogram,*ü# 259 " cs+ + CASE_SEARCH°" csü# 260! 0°+ CASE_SEARCH.ü# 264 . bol_skip_whiteýü# 265# endþ * looking_at.ýü# 267! 3þ ( go_rightü# 268 * skip_whiteü# 269 $ eolp.v/c/c/.ü# 272 & down_1/kü# 273 " cs°+ CASE_SEARCHü# 257y9 fortran_end_of_subprogram,ü# 278 9 fortran_end_of_subprogramü# 279 ) go_down_1ü# 280 , set_mark_cmdü# 281 9 fortra n_beg_of_subprogramü# 282 # bolü# 276y7 fortran_mark_subprogram,*ü# 290 ! c+ + what_column°! c*ü# 291 ! r+ + window_line°! rü# 293 # bolü# 294 ) push_markýü# 295$h 5 7 10 15 20 25 30 35 40 45 50 55 60 65 70\nþ & insertýü# 296$ j { }|{ | | | | | | | | | | | | | }\nþ & insertýü# 298 ! cþ + goto_columnü# 299 ! r! 2>.! 3°! r/cýü# 300 ! rþ ( recenterýü# 301D Press SPACE to get rid of the ruler.þ ' messageýü# 302! 1þ 7 update_sans_update_hoo kü# 303 & getkeyPü# 304 # bolü# 305 * del_regionýü# 306 ! cþ + goto_columnü# 307 + flush_inputýü# 308 ! rþ ( recenterü# 288y- fortran_ruler,*ü# 311 & dirfun+.ü# 313 & dirfunM/.ü# 315 # bolýü# 316$( ^0-9 \nþ * skip_charsü# 317 * _get_point.v/b/fýü# 319 ! 7þ 4 goto_column_best_tryPü# 311y; fortran_prev_next_statement,ýü# 326}& down_1þ ; fortran_prev_next_statementü# 324y6 fortran_next_statement,ýü# 334}$ up_1þ ; fortran_prev_next_statementü# 332y: fortran_previous_statementü# 341' Fortran°" $1ýü# 342 " $1þ ( keymap_p.ý " $1þ + make_keymap/býü# 344/ fortran_comment" ; " $1þ ) definekeyýü# 3451 fortran_uncomment" : " $1þ ) definekeyýü# 3468 fortran_continue_newline$# \r " $1þ ) definekeyýü# 348/ self_insert_cmdý" 39þ $ char " $1þ ) definekeyýü # 349/ self_insert_cmdý" 34þ $ char " $1þ ) definekeyýü# 3509 fortran_beg_of_subprogram# ^A " $1þ ) definekeyýü# 3519 fortran_end_of_subprogram# ^E " $1þ ) definekeyýü# 3525 fortran_mark_function# ^H " $1þ ) definekeyýü# 3536 fortran_next_stat ement" ^N " $1þ 2 definekey_reservedýü# 354: fortran_previous_statement" ^P " $1þ 2 definekey_reservedýü# 355- fortran_ruler" ^R " $1þ 2 definekey_reservedü# 356! 0! 9! 1.ü# 358°" $2ýü# 3596 fortran_electric_labelý " $2þ & string " $1þ ) defineke y/hü# 363' Fortran°" $1ýü# 364 " $1þ 3 create_syntax_tableýü# 365! ! " 37 " $1þ - define_syntaxýü# 366" ([" )]" 40 " $1þ - define_syntaxýü# 367" 34" 34 " $1þ - define_syntaxýü# 368" 39" 34 " $1þ - define_syntaxýü# 370* 0-9a-zA-Z_# 119 " $1þ - define_syntaxýü# 371) -+0-9eEdD" 48 " $1þ - define_syntaxýü# 372" ,." 44 " $1þ - define_syntaxýü# 373" 68" 35 " $1þ - define_syntaxýü# 374% -+/*=" 43 " $1þ - define_syntaxýü# 375 " $1! 1! 2Jþ 0 set_syntax_flagsýü# 376 " $1$( ^0-9 \nþ 9 set_f ortran_comment_charsýü# 393 " $1( dogoifto! 2þ / define_keywordsPýü# 394 " $1# end! 3þ / define_keywordsPýü# 395 " $1L calldataelseexitgotoopenreadrealsavestopthen! 4þ / define_keywordsPýü# 396 " $1M blockcloseenddoendifentrypauseprintwhilewrite! 5þ / define_keywordsPýü# 397 " $1J commondoubleelseifformatrecordreturnrewind! 6þ / define_keywordsPýü# 398 " $1Q complexendfileincludeinquireintegerlogicalprogram! 7þ / define_keywordsPýü# 399 " $1@ continueexternalfunctionimplicit! 8þ / define_key wordsPýü# 400 " $1_ backspacecharacterdimensionintrinsicparameterprecisionstructure! 9þ / define_keywordsPýü# 401 " $1* subroutine" 10þ / define_keywordsPýü# 402 " $1+ equivalence" 11þ / define_keywordsPýü# 404 " $1. eqgegtleltneor! 2! 1þ 1 defin e_keywords_nPýü# 405 " $1& andnot! 3! 1þ 1 define_keywords_nPýü# 406 " $1$ true! 4! 1þ 1 define_keywords_nPýü# 407 " $1% false! 5! 1þ 1 define_keywords_nP,*ü# 449 $ mode+' Fortran°$ modeýü# 450 $ mode! 4" 16Jþ ( set_modeýü# 451 $ modeþ * use_ keymapýü# 452 $ modeþ 0 use_syntax_tableýü# 453+ indent_hook. fortran_indentþ / set_buffer_hookýü# 4543 newline_indent_hook/ fortran_newlineþ / set_buffer_hookýü# 455 $ mode) fold_info$. C{{{\rC}}}\r\rþ 2 mode_set_mode_infoýü# 456, fortran_hookþ . r un_mode_hooksü# 447y, fortran_mode