View file File name : f90.slc Content :.#��! 4 1 F90_Continue_Char ! &� / custom_variable��! 5 2 F90_Comment_String ! !� / custom_variable��! 6 1 F90_Indent_Amount! 2� / custom_variable��! 7 2 F90_Default_Format $ free� / custom_variable,��" 11 / F90_Mode_Format� 1 blocal_var_exists.��" 12 / F90_Mode_Format� . get_blocal_varw/c�" 13! 0w�! 9�/ get_format_mode,*�" 16 ! x+��" 18 ! x� & strlow $ freeA�! x��" 19 / F90_Mode_Format� 1 create_blocal_var��" 20 ! x / F90_Mode_Format� . set_blocal_var�" 16�/ set_format_mode,*�" 26 $ goal+! 1�$ goal *�" 27 " cs+ + CASE_SEARCH�" cs*�" 28 " ch+.�" 33 # bol��" 34 " � * skip_chars�" 35 * skip_white/p�" 38 ) push_spot�" 39 ) push_spot�" 40! 0�+ CASE_SEARCH.�" 41 $ up_1/.�" 43 . bol_skip_white�" 44 $ eolp� ! !� * looking_atD� ! &� * looking_atD� ! #� * looking_atD.u/c�" 46 - X_USER_BLOCK0�" 47 + what_column�$ goal��" 51 , 1234567890� * skip_chars��" 52 # do � * looking_at� $ else� * looking_atD��" 53 ( function� * looking_atD��" 54 * subroutine� * looking_atD��" 55 $ case� * looking_atD��" 56 ) interf ace� * looking_atD��" 57 ) recursive� * looking_atD��" 58 ' program� * looking_atD��" 59 % where� * looking_atD.�" 61 1 F90_Indent_Amount�$ goal/.��" 62 & select� * looking_at.�" 63 1 F90_Indent_Amount! 2;�$ goal/.��" 64 # if � * looking_at� # if(� * loo king_atD.�" 67 ) push_spot.�" 68 & down_1/.�" 70 . bol_skip_white��" 71 1 F90_Continue_Char� * looking_at.�" 73 ' go_up_1�" 74 # bolv/b/f��" 78 $ then� % ffind. 1 F90_Indent_Amount�$ goal/c�" 79 ( pop_spot/.��" 81 % type � * looking_at� ' module � * look ing_atD.��" 83 " ::� % ffindN. 1 F90_Indent_Amount�$ goal/c/c/d/d/dv/f�" 89 ( pop_spot�" 90 ) push_spot�" 91 - X_USER_BLOCK0��" 93 # end� * looking_at.��" 95 & select� % ffind. 1 F90_Indent_Amount! 2;�$ goal/.�" 97 1 F90_Indent_Amount�$ goal/d/.��" 99 ( continue� * looking_at��# 100 $ case� * looking_atD��# 101 $ else� * looking_atD. 1 F90_Indent_Amount�$ goal/c/d�# 103 " cs�+ CASE_SEARCH�# 104 $ goal! 1=.! 1�$ goal/c�# 105 ( pop_spot�# 107 . bol_skip_white.�# 113 $ trim��# 114 1 F90_Continue_Char� * looking_at.�# 116 * go_right_1 $ trim�# 117 1 F90_Indent_Amount�$ goal/c��# 119 $ goal + what_column:� - insert_spaces/q��# 122 ) what_char� $ char�" ch�# 123 " ch.�# 125 1 F90_Continue_Charx3�# 126 # bol $ trim�# 127 - X_USER_BLOCK1/.�# 130 $ bolpN $ eol pD3�# 131 # bol $ trim�# 132�$ goal��# 133 $ goal� - insert_spaces/j�# 135 ( pop_spot�# 136 * skip_white�" 24�/ free_f90_indent,�# 141 # bol��# 142 ! !� * looking_at�# 139�3 free_f90_is_comment,*�# 147 ! p $ cont % cont1+�# 149 $ bolp.�# 151 ' newlinew/ c�# 155 / free_f90_indent�# 156 ) push_spot�# 157 + bskip_white $ trim�# 159 + what_column" 72?.�# 161 ) push_spot�# 162 . bol_skip_white�# 163 $ bolp.� 8 Line exceeds 72 columns.� ' message/b�# 164 ( pop_spot/c�# 167 * _get_point�! p��# 168 * -+*=/,(&<> � + bskip_chars�# 170 ! p * _get_pointB�$ cont�# 171 $ cont�% cont1�# 173 $ cont.��# 175 ! &� * looking_at.�# 177! 0�% cont1/c/c�# 181 3 free_f90_is_comment.! 0�$ cont/c�# 183 . bol_skip_white��# 184 % data � * looking_at.! 0�$ cont/c�# 186 ( pop_spot� # 188 % cont1.��# 190 ! � & insert��# 191 1 F90_Continue_Char� & insert/c�# 193 ' newline�# 194 $ cont.��# 196 1 F90_Continue_Char� & insert��# 197 ! � & insert/c�# 199 3 insert_single_space�# 200 / free_f90_indent�# 145�0 free_f90_newline,*�# 209 $ go al+! 7�$ goal*�# 210 " cs+ + CASE_SEARCH�" cs*�# 211 " ch+.�# 216 # bol��# 217 % 0-9 � * skip_chars��# 218 1 F90_Continue_Char� * looking_at. * go_right_1/c�# 219 * skip_white/p�# 222 ) push_spot�# 223 ) push_spot�# 224! 0�+ CASE_SEARCH.�# 225 $ up_1/. �# 227 . bol_skip_white�# 228 $ eolp� 1 F90_Continue_Char� * looking_atD.u/c�# 229 - X_USER_BLOCK0�# 230 + what_column�$ goal�# 232 $ goal! 1A.u/c��# 234 # do � * looking_at� $ else� * looking_atD��# 235 * subroutine� * looking_atD��# 236 ) interface� * looking_atD��# 237 ' program� * looking_atD.�# 239 1 F90_Indent_Amount�$ goal/.��# 240 # if � * looking_at� # if(� * looking_atD.��# 242 $ then� % ffind. 1 F90_Indent_Amount�$ goal/c/.��# 244 % type � * looking_at� ' module � * looking_atD.��# 246 " ::� % ffindN. 1 F90_Indent_Amount�$ goal/c/c/d/dv/f�# 252 ( pop_spot�# 253 ) push_spot�# 254 - X_USER_BLOCK0��# 256 # end� * looking_at��# 257 ( continue� * looking_atD��# 258 $ else� * looking_atD. 1 F90_Indent_Amount�$ goal/c�# 260 " cs�+ CASE_SEARCH�# 261 $ goal! 7=.! 7�$ goal/c�# 262 ( pop_spot�# 264 . bol_skip_white.��# 269 # 0-9� * skip_chars�# 270 $ trim��# 271 1 F90_Continue_Char� * looking_at.��# 273! 6 + what_column:� - insert_spaces�# 274 * go_right_1 $ trim�# 275 1 F90_Indent_Amount�$ goal/c��# 277 $ goal + what_column:� - insert_spaces/q��# 280 ) what_char� $ char�" ch�# 281 " ch.��# 283 " ch� ' isdigit3�# 285 + what_column! 6@.�# 287 # bol $ trim�# 288 3 insert_single_space/c�# 290 - X_USER_BLOCK1/.�# 293 1 F90_Continue_Charx3�# 294 # bol $ trim� % � & insert�# 295 - X_USER_BLOCK1/.�# 298 $ bolpN $ eolpD3�# 299 # bol $ trim�# 300�$ goal��# 301 $ goal� - insert_spaces/j�# 303 ( pop_spot�# 304 * skip_white�# 207y0 fixed_f90_indent,�# 309 # bol��# 310 % 0-9� * skip_chars�# 311 $ bolp $ eolpNC�# 307y4 fixed_f90_is_comment,*�# 316 ! p $ cont+�# 318 $ bolp.�# 320 ' newlinew/c�# 324 0 fixed_f90_indent�# 325 ) push_spot�# 326 + bskip_white $ trim�# 328 + what_column" 72?.�# 330 ) push_spot�# 331 . bol_skip_white�# 332 $ bolp.� 8 Line excee ds 72 columns.� ' message/b�# 333 ( pop_spot/c�# 336 * _get_point�! p��# 337 ' -+*=/,(� + bskip_chars�# 339 ! p * _get_pointB�$ cont�# 341 4 fixed_f90_is_comment.! 0�$ cont/c�# 343 . bol_skip_white��# 344 % data � * looking_at.! 0�$ cont/c�# 346 ( pop_s pot�# 348 ' newline�# 349 3 insert_single_space�# 350 $ cont.� 1 F90_Continue_Char� & insert/c�# 351 0 fixed_f90_indent�# 314y1 fixed_f90_newline,*�# 356 $ free % fixed+�# 358 / get_format_mode.�# 360 $ free��w/c�# 364 % fixed��# 356�5 dispatch_f90_func tion,��# 369}/ free_f90_indent}0 fixed_f90_indent� 5 dispatch_f90_function�# 367y* f90_indent,��# 374}3 free_f90_is_comment}4 fixed_f90_is_comment� 5 dispatch_f90_function�# 372y. f90_is_comment,��# 379}0 free_f90_newline}1 fixed_f90_newline� 5 dispatc h_f90_function�# 377y+ f90_newline,�# 384 + f90_newline�# 386 ) push_spot�# 387 . bol_skip_white��# 388 1 F90_Continue_Char� * looking_at. ( pop_spot/.��# 391 1 F90_Continue_Char� & insert�# 392 ( pop_spot�# 393 * f90_indent�# 394 * go_right_1�# 395 * sk ip_white/d�# 382y4 f90_continue_newline,��# 404 ) LAST_CHAR� + insert_char�# 406 / get_format_mode.w/c�# 409 ) push_spot�# 411 . f90_is_comment. ( pop_spot/.�# 414 . bol_skip_white��# 415 # 0-9� * skip_chars $ trim�# 416 ( pop_spot�# 417 * f90_indent/d�# 402y2 f90_electric_label,�# 425 ) push_spot�# 426 . f90_is_comment.�# 428 # bol��# 429 2 F90_Comment_String� * looking_at.���# 430 2 F90_Comment_String� & strlen� $ deln/.�# 431 # del/d/c�# 434 * f90_indent�# 435 ( pop_spot�# 436 ) go_down_1�# 423y- f90 _uncomment,�# 441 . f90_is_comment.�# 443 ) push_spot�# 444 # bol��# 445 2 F90_Comment_String� & insert/b�# 447 ( pop_spot�# 448 ) go_down_1�# 439y+ f90_comment,*�# 456 " cs+ + CASE_SEARCH�" cs�# 458! 0�+ CASE_SEARCH.�# 461 . bol_skip_white�# 462 * _ge t_point.��# 464 ' program� * looking_at��# 465 ( function� * looking_atD��# 466 * subroutine� * looking_atD.v/c/c/.�# 469 $ up_1/k�# 470 " cs�+ CASE_SEARCH�# 454y5 f90_beg_of_subprogram,*�# 478 " cs+ + CASE_SEARCH�" cs�# 479! 0�+ CASE_SEARCH.�# 483 . b ol_skip_white��# 484 # end� * looking_at.��# 486! 3� ( go_right�# 487 * skip_white�# 488 $ eolp.v/c/c/.�# 491 & down_1/k�# 492 " cs�+ CASE_SEARCH�# 476y5 f90_end_of_subprogram,�# 497 5 f90_end_of_subprogram�# 498 ) go_down_1�# 499 ) push_mark� , set_ma rk_cmd� $ call�# 500 5 f90_beg_of_subprogram�# 501 # bol�# 495y3 f90_mark_subprogram,*�# 509 ! c+ + what_column�! c*�# 510 ! r+ + window_line�! r�# 512 # bol�# 513 ) push_mark��# 514$h 5 7 10 15 20 25 30 35 40 45 50 55 60 65 7 0\n� & insert��# 515$j { }|{ | | | | | | | | | | | | | }\n� & insert��# 517 ! c� + goto_column�# 518 ! r! 2>.! 3�! r/c��# 519 ! r� ( recenter��# 520 D Press SPACE to get rid of the ruler.� ' message��# 521! 1� 7 u pdate_sans_update_hook�# 522 & getkeyP�# 523 # bol�# 524 * del_region��# 525 ! c� + goto_column�# 526 + flush_input��# 527 ! r� ( recenter�# 507y) f90_ruler,*�# 530 & dirfun+.�# 532 & dirfunM/.�# 534 # bol��# 535$( ^0-9 \n� * skip_chars�# 536 * _get_poi nt.v/b/f*�# 539 # col+! 7�# col�# 540 / get_format_mode.�# 541! 1�# col/c��# 543 # col� 4 goto_column_best_tryP�# 530�7 f90_prev_next_statement,��# 550}& down_1� 7 f90_prev_next_statement�# 548y2 f90_next_statement,��# 558}$ up_1� 7 f90_prev_next_sta tement�# 556y6 f90_previous_statement�# 565 # F90�" $1��# 566 " $1� ( keymap_p.� " $1� + make_keymap/b��# 568 + f90_comment " ; " $1� ) definekey��# 569 - f90_uncomment " : " $1� ) definekey��# 570 4 f90_continue_newline$# \r " $1� ) definekey��# 571 / self_insert_cmd ! ' " $1� ) definekey��# 572 / self_insert_cmd ! " " $1� ) definekey��# 573 5 f90_beg_of_subprogram # ^A " $1� ) definekey��# 574 5 f90_end_of_subprogram # ^E " $1� ) definekey��# 575 1 f90_mark_function # ^H " $1� ) definekey��# 577 2 f90_next_statement " ^N " $1� 2 definekey_reserved��# 578 6 f90_previous_statement " ^P " $1� 2 definekey_reserved��# 579 ) f90_ruler " ^R " $1� 2 definekey_reserved�# 581! 0! 9! 1.�# 583�" $2��# 584 2 f90_electric_label� " $2� & string " $1� ) define key/h��# 588 ( F90_free ) F90_fixed�.�# 590�" $1��# 591 " $1� 3 create_syntax_table��# 592 ! ! " 37 " $1� - define_syntax��# 593 " ([ " )]" 40 " $1� - define_syntax��# 594" 34" 34 " $1� - define_syntax��# 595" 39" 39 " $1� - define_syntax��# 597 * 0-9a-zA-Z_# 119 " $1� - define_syntax��# 598 ) -+0-9eEdD" 48 " $1� - define_syntax��# 599 " ,." 44 " $1� - define_syntax��# 600" 35" 35 " $1� - define_syntax��# 601 % -+/*=" 43 " $1� - define_syntax��# 655 " $1 ( dogoifto! 2� / define_keywordsP� �# 656 " $1 & enduse! 3� / define_keywordsP��# 657 " $1 X callcasedataelseexitgotokindopenreadrealsavestopthentype! 4� / define_keywordsP��# 658 " $1 W blockclosecycleenddoendifentrypauseprintwherewhilewrite! 5� / define_keywordsP��# 659 " $1 b commond oubleformatintentmodulepublicrecordreturnrewindselecttarget! 6� / define_keywordsP��# 660 " $1 m complexendfileendtypeincludeinquireintegerlogicalnullifypointerprivateprogram! 7� / define_keywordsP��# 661 " $1 p allocatecontainscontinueendwhereexternalf unctionimplicitnamelistoptionalsequence! 8� / define_keywordsP��# 662 " $1 � backspacecharacterdimensionelsewhereendmoduleendselectinterfaceintrinsicparameterprecisionrecursivestructure! 9� / define_keywordsP��# 663 " $1 H deallocateendprogramselectcase subroutine" 10� / define_keywordsP��# 664 " $1 A allocatableendfunctionequivalence" 11� / define_keywordsP��# 665 " $1 8 endblockdataendinterface" 12� / define_keywordsP��# 666 " $1 - endsubroutine" 13� / define_keywordsP��# 667 " $1 / moduleprocedure " 15� / define_keywordsP��# 669 " $1 . eqgegtleltneor! 2! 1� 1 define_keywords_nP��# 670 " $1 b absallandanycosdimexpintiorlenlgelgtllelltlogmaxminmodnotsinsumtan! 3! 1� 1 define_keywords_nP��# 671 " $1 | acosaintasinatancharcoshdblehugeiandieorkindn intpackrealscansignsinhsizesqrttanhtinytrimtrue! 4! 1� 1 define_keywords_nP��# 672 " $1 � aimaganintatan2btestcmplxconjgcountdprodfalseflooribclribitsibseticharindexishftlog10mergeradixrangescaleshape! 5! 1� 1 define_keywords_nP��# 673 " $1 � cshiftdi gitsiacharishftclboundmatmulmaxlocmaxvalminlocminvalmodulomvbitsrepeatspreaduboundunpackverify! 6! 1� 1 define_keywords_nP��# 674 " $1 m adjustladjustrceilingeoshiftepsilonlogicalnearestpresentproductreshapespacing! 7! 1� 1 define_keywords_nP��# 675 " $1 H bit_sizeexponentfractionlen_trimtransfer! 8! 1� 1 define_keywords_nP��# 676 " $1 D allocatedprecisionrrspacingtranspose! 9! 1� 1 define_keywords_nP��# 677 " $1 * associated" 10! 1� 1 define_keywords_nP��# 678 " $1 L dot_productmaxexponentminex ponentrandom_seed" 11! 1� 1 define_keywords_nP��# 679 " $1 8 set_exponentsystem_clock" 12! 1� 1 define_keywords_nP��# 680 " $1 : date_and_timerandom_number" 13! 1� 1 define_keywords_nP��# 681 " $1 1 selected_int_kind" 17! 1� 1 define_keywords_nP�� # 682 " $1 2 selected_real_kind" 18! 1� 1 define_keywords_nP/���# 684 ( F90_free! 1� 0 set_syntax_flags��# 685 ) F90_fixed! 1! 2J� 0 set_syntax_flags��# 686 ) F90_fixed$( ^0-9 \n� 9 set_fortran_comment_chars,*�# 688 & format+*�# 690 $ mode+ # F90� $ mode���# 691 % %s-%s $ mode & format� ' sprintf! 4" 16J� ( set_mode��# 692 $ mode� * use_keymap��# 693 + indent_hook * f90_indent� / set_buffer_hook��# 694 3 newline_indent_hook + f90_newline� / set_buffer_hook��# 696 & format� / set_format_mode���# 6 98 $ F90_ & format� & strcat� 0 use_syntax_table�# 688�. setup_f90_mode,��# 703 $ free� . setup_f90_mode��# 704 9 f90_free_format_mode_hook� . run_mode_hooks�# 701�4 f90_free_format_mode,��# 709 % fixed� . setup_f90_mode��# 710 : f90_fixed_format_mode_h ook� . run_mode_hooks�# 707�5 f90_fixed_format_mode,���# 756 2 F90_Default_Format� & strlow� . setup_f90_mode��# 757 - f90_mode_hook� . run_mode_hooks�# 754�( f90_mode��# 760 # f90� ' provide