.#��! 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