Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : f90.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:07 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/f90.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`f90.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\306\301&\207" [custom-declare-group f90 nil "Major mode for editing free format Fortran 90,95 code." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages f90-indent "Indentation in free format Fortran." :prefix "f90-"] 8)
#@41 Extra indentation applied to DO blocks.
(custom-declare-variable 'f90-do-indent '3 '(#$ . 940) :type 'integer :group 'f90-indent)
(put 'f90-do-indent 'safe-local-variable 'integerp)
#@72 Extra indentation applied to IF, SELECT CASE, WHERE and FORALL blocks.
(custom-declare-variable 'f90-if-indent '3 '(#$ . 1128) :type 'integer :group 'f90-indent)
(put 'f90-if-indent 'safe-local-variable 'integerp)
#@75 Extra indentation applied to TYPE, ENUM, INTERFACE and BLOCK DATA blocks.
(custom-declare-variable 'f90-type-indent '3 '(#$ . 1348) :type 'integer :group 'f90-indent)
(put 'f90-type-indent 'safe-local-variable 'integerp)
#@76 Extra indentation applied to PROGRAM, MODULE, SUBROUTINE, FUNCTION blocks.
(custom-declare-variable 'f90-program-indent '2 '(#$ . 1575) :type 'integer :group 'f90-indent)
(put 'f90-program-indent 'safe-local-variable 'integerp)
#@48 Extra indentation applied to ASSOCIATE blocks.
(custom-declare-variable 'f90-associate-indent '2 '(#$ . 1809) :type 'integer :group 'f90-indent :version "23.1")
(put 'f90-associate-indent 'safe-local-variable 'integerp)
#@50 Extra indentation applied to continuation lines.
(custom-declare-variable 'f90-continuation-indent '5 '(#$ . 2035) :type 'integer :group 'f90-indent)
(put 'f90-continuation-indent 'safe-local-variable 'integerp)
#@75 String inserted by \[f90-comment-region] at start of each line in region.
(custom-declare-variable 'f90-comment-region '"!!$" '(#$ . 2253) :type 'string :group 'f90-indent)
(put 'f90-comment-region 'safe-local-variable 'stringp)
#@45 Regexp matching comments to indent as code.
(custom-declare-variable 'f90-indented-comment-re '"!" '(#$ . 2488) :type 'regexp :group 'f90-indent)
(put 'f90-indented-comment-re 'safe-local-variable 'stringp)
#@70 Regexp of comment-like directive like "!HPF\\$", not to be indented.
(custom-declare-variable 'f90-directive-comment-re '"!hpf\\$" '(#$ . 2701) :type 'regexp :group 'f90-indent)
(put 'f90-directive-comment-re 'safe-local-variable 'stringp)
#@71 Non-nil gives automatic insertion of & at start of continuation line.
(custom-declare-variable 'f90-beginning-ampersand 't '(#$ . 2947) :type 'boolean :group 'f90)
(put 'f90-beginning-ampersand 'safe-local-variable 'booleanp)
#@377 Qualification of END statements according to the matching block start.
For example, the END that closes an IF block is changed to END
IF.  If the block has a label, this is added as well.  Allowed
values are 'blink, 'no-blink, and nil.  If nil, nothing is done.
The other two settings have the same effect, but 'blink
additionally blinks the cursor to the start of the block.
(custom-declare-variable 'f90-smart-end ''blink '(#$ . 3180) :type '(choice (const blink) (const no-blink) (const nil)) :group 'f90)
(put 'f90-smart-end 'safe-local-variable #[(value) "\301>\207" [value (blink no-blink nil)] 2])
#@342 Regexp matching delimiter characters at which lines may be broken.
There are some common two-character tokens where one or more of
the members matches this regexp.  Although Fortran allows breaks
within lexical tokens (provided the next line has a beginning ampersand),
the constant `f90-no-break-re' ensures that such tokens are not split.
(custom-declare-variable 'f90-break-delimiters '"[-+\\*/><=,% 	]" '(#$ . 3793) :type 'regexp :group 'f90)
(put 'f90-break-delimiters 'safe-local-variable 'stringp)
#@69 Non-nil causes `f90-do-auto-fill' to break lines before delimiters.
(custom-declare-variable 'f90-break-before-delimiters 't '(#$ . 4304) :type 'boolean :group 'f90)
(put 'f90-break-before-delimiters 'safe-local-variable 'booleanp)
#@112 Automatic case conversion of keywords.
The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil.
(custom-declare-variable 'f90-auto-keyword-case 'nil '(#$ . 4543) :type '(choice (const downcase-word) (const upcase-word) (const capitalize-word) (const nil)) :group 'f90)
(put 'f90-auto-keyword-case 'safe-local-variable #[(value) "\301>\207" [value (downcase-word capitalize-word upcase-word nil)] 2])
#@50 If non-nil, line numbers are not left justified.
(custom-declare-variable 'f90-leave-line-no 'nil '(#$ . 4965) :type 'boolean :group 'f90)
(put 'f90-leave-line-no 'safe-local-variable 'booleanp)
#@34 Hook run when entering F90 mode.
(custom-declare-variable 'f90-mode-hook 'nil '(#$ . 5166) :type 'hook :options '(f90-add-imenu-menu) :group 'f90)
(put 'f90-mode-hook 'safe-local-variable #[(value) "\301\235\207" [value ((f90-add-imenu-menu) nil)] 2])
#@52 Regexp used by the function `f90-change-keywords'.
(defconst f90-keywords-re "\\<\$a\\(?:bstract\\|llocat\\(?:\\(?:abl\$?e\\)\\|s\$?:s\\(?:ign\\(?:ment\$?\\|ociate\\)\\|ynchronous\\)\\)\\|b\$?:ackspace\\|ind\\|lock\$\\|c\$?:a\\(?:ll\\|se\$\\|haracter\\|l\$?:ass\\|ose\$\\|o\$?:m\\(?:mon\\|plex\$\\|nt\$?:ains\\|inue\$\\)\\|ycle\\)\\|d\$?:ata\\|e\\(?:allocate\\|ferred\$\\|imension\\|o\$?:uble\$?\\)\\|e\$?:l\\(?:emental\\|se\\(?:if\\|where\$?\\)\\|n\$?:d\\(?:do\\|file\\|if\$?\\|try\\|um\$?:erator\$?\\)\\|quivalence\\|x\$?:it\\|te\\(?:nds\\(?:_type_of\$?\\|rnal\\)\\)\\)\\|f\$?:inal\\|or\\(?:all\\|mat\$\\|unction\\)\\|g\$?:eneric\\|oto\$\\|i\$?:f\\|mp\\(?:\\(?:lici\\|or\$t\\)\\|n\$?:clude\\|quire\\|t\\(?:e\\(?:ger\\|nt\\|rface\$\\|rinsic\\)\\)\\)\\|logical\\|module\\|n\$?:amelist\\|o\\(?:n\\(?:_\\(?:intrinsic\\|overridable\$\\|e\\)\\|pass\\)\\|ullify\\)\\|o\$?:nly\\|p\\(?:e\\(?:n\\|rator\$\\|tional\\)\\)\\|p\$?:a\\(?:rameter\\|ss\\|use\$\\|ointer\\|r\$?:ecision\\|i\\(?:nt\\|vate\$\\|o\$?:cedure\\|gram\\|tected\$\\)\\|u\$?:blic\\|re\$\\)\\|re\$?:a[dl]\\|cursive\\|sult\\|turn\\|wind\$\\|s\$?:a\\(?:me_type_as\\|ve\$\\|e\$?:lect\\|quence\$\\|top\\|ubroutine\\)\\|t\$?:arget\\|hen\\|ype\$\\|\$?:us\\|v\\(?:alu\\|olatil\$\\|w\$?:h\\(?:er\\|il\$\\|rit\\)\\)e\\)\\>" (#$ . 5425))
#@42 Keyword-regexp for font-lock level >= 3.
(defconst f90-keywords-level-3-re "\\<\$a\\(?:bstract\\|llocat\\(?:\\(?:abl\$?e\\)\\|ssign\$?:ment\$?\\)\\|backspace\\|close\\|d\$?:e\\(?:allocate\\|ferred\$\\|imension\\)\\|e\$?:lemental\\|n\\(?:dfile\\|try\$\\|quivalence\\|xternal\\)\\|final\\|i\$?:mport\\|n\\(?:quire\\|t\\(?:ent\\|rinsic\$\\)\\)\\|n\$?:o\\(?:n_\\(?:intrinsic\\|overridable\$\\|pass\\)\\|ullify\\)\\|o\$?:nly\\|p\\(?:e\\(?:n\\|rator\$\\|tional\\)\\)\\|p\$?:a\\(?:rameter\\|ss\\|use\$\\|ointer\\|r\$?:i\\(?:nt\\|vate\$\\|otected\\)\\|u\$?:blic\\|re\$\\)\\|re\$?:ad\\|cursive\\|sult\\|wind\$\\|s\$?:ave\\|e\\(?:lect\\|quence\$\\)\\|target\\|\$?:v\\(?:alu\\|olatil\$\\|writ\\)e\\)\\>" (#$ . 6773))
#@59 Regexp whose first part matches F90 intrinsic procedures.
(defconst f90-procedures-re "\\<\$a\\(?:bs\\|c\\(?:har\\|os\$\\|djust[lr]\\|i\$?:mag\\|nt\$\\|ll\$?:ocated\$?\\|n\$?:int\\|y\$\\|s\$?:in\\|sociated\$\\|tan2?\\)\\|b\$?:i\\(?:nd\\|t_size\$\\|test\\)\\|c\$?:_\\(?:associated\\|f\\(?:_p\\(?:\\(?:rocp\$?ointer\\)\\|unloc\\)\\|loc\\)\\|eiling\\|har\\|mplx\\|o\$?:mmand_argument_count\\|njg\\|sh?\\|unt\$\\|pu_time\\|shift\\)\\|d\$?:ate_and_time\\|ble\\|i\\(?:gits\\|m\$\\|ot_product\\|prod\\)\\|e\$?:oshift\\|psilon\\|x\\(?:p\\(?:onent\$?\\|tends\$?:_type_of\$?\\)\\)\\|f\$?:l\\(?:oor\\|ush\$\\|raction\\)\\|get_\$?:command\\(?:_argument\$?\\|environment_variable\\)\\|huge\\|i\$?:a\\(?:char\\|nd\$\\|b\$?:clr\\|its\\|set\$\\|char\\|e\$?:ee_\\(?:get_underflow_mode\\|s\\(?:et_underflow_mode\\|upport_underflow_control\$\\)\\|or\\)\\|n\$?:dex\\|t\$\\|or\\|shftc?\\)\\|kind\\|l\$?:bound\\|en\\(?:_trim\$?\\|g[et]\\|l[et]\\|og\$?:10\\|ical\$?\\)\\|m\$?:a\\(?:tmul\\|x\\(?:exponent\\|loc\\|val\$?\\)\\|erge\\|in\$?:exponent\\|loc\\|val\$?\\|o\$?:d\\(?:ulo\$?\\|ve_alloc\\)\\|vbits\\)\\|n\$?:e\\(?:arest\\|w_line\$\\|int\\|ot\\|ull\\)\\|p\$?:ack\\|r\\(?:e\\(?:cision\\|sent\$\\|oduct\\)\\)\\|r\$?:a\\(?:dix\\|n\\(?:dom_\\(?:number\\|seed\$\\|ge\\)\\)\\|e\$?:peat\\|shape\$\\|rspacing\\)\\|s\$?:ame_type_as\\|ca\\(?:le\\|n\$\\|e\$?:lected_\\(?:\\(?:char\\|int\\|real\$_kind\\)\\|t_exponent\\)\\|hape\\|i\$?:gn\\|nh?\\|ze\$\\|p\$?:acing\\|read\$\\|qrt\\|um\\|ystem_clock\\)\\|t\$?:anh?\\|iny\\|r\\(?:ans\\(?:fer\\|pose\$\\|im\\)\\)\\|u\$?:bound\\|npack\$\\|verify\\|wait\\)[ 	]*(" (#$ . 7511))
#@38 Regexp matching intrinsic operators.
(defconst f90-operators-re "\\.\$and\\|eqv?\\|false\\|g[et]\\|l[et]\\|n\\(?:e\\(?:qv\$?\\|ot\\)\\|or\\|true\\)\\." (#$ . 9171))
#@57 Regexp for all HPF keywords, procedures and directives.
(defconst f90-hpf-keywords-re "\\<\$a\\(?:l\\(?:ign\\|l_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)\\|ny_\$?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)\\|block\\|c\$?:o\\(?:py_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\|unt_\$?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)\\|yclic\\)\\|d\$?:istribute\\|ynamic\$\\|extrinsic\\|grade_\$?:down\\|up\$\\|hpf_\$?:alignment\\|distribution\\|template\$\\|i\$?:a\\(?:ll\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)?\\|ny\$?:_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)?\\)\\|len\\|n\$?:\\(?:dependen\\|heri\$t\\)\\|parity\$?:_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)?\\)\\|leadz\\|m\$?:axval_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\|inval_\$?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)\\|n\$?:ew\\|umber_of_processors\$\\|onto\\|p\$?:arity\\(?:_\\(?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)?\\|op\$?:cnt\\|par\$\\|ro\$?:cessors\\(?:_shape\$?\\|duct_\$?:prefix\\|s\\(?:catter\\|uffix\$\\)\\)\\|ure\\)\\|re\$?:align\\|distribute\$\\|sum_\$?:prefix\\|s\\(?:catter\\|uffix\$\\)\\|template\\|with\\)\\>" (#$ . 9344))
#@41 Regexp for Fortran intrinsic constants.
(defconst f90-constants-re "\\<\$c\\(?:_\\(?:alert\\|b\\(?:ackspace\\|ool\$\\|c\$?:arriage_return\\|har\$\\|double\$?:_complex\$?\\|f\$?:loat\\(?:_complex\$?\\|orm_feed\\|unptr\\)\\|horizontal_tab\\|int\$?:\\(?:16\\|32\\|64\\|8\\|_\\(?:fast\\(?:16\\|32\\|64\\|8\$\\|least\$?:16\\|32\\|64\\|8\$\\)\\|max\\|ptr\\)_t\\)?\\|long\$?:_\\(?:double\\(?:_complex\$?\\|long\\)\\)?\\|n\$?:ew_line\\|ull_\\(?:\\(?:cha\\|\\(?:fun\$?pt\\)r\\)\\)\\|ptr\\|s\$?:hort\\|i\\(?:gned_char\\|ze_t\$\\)\\|vertical_tab\\)\\|haracter_storage_size\\)\\|error_unit\\|file_storage_size\\|i\$?:eee_\\(?:arithmetic\\|\\(?:exception\\|feature\$s\\)\\|nput_unit\\|ostat_e\$?:nd\\|or\$\\|so_\$?:c_binding\\|fortran_env\$\\)\\|numeric_storage_size\\|output_unit\\)\\>" (#$ . 10482))
#@170 Search for the start/end of the definition of a derived type, up to LIMIT.
Set the match data so that subexpression 1,2 are the TYPE, and
type-name parts, respectively.
(defalias 'f90-typedef-matcher #[(limit) "\303\211\304\305\n\306#\203<�\307 \310\311!?\2057�\310\312!\203\"�\313\225b\202(�\304\314\315 \306#\2057�\316\317\320\224\320\225D\"!\210\306\211\203�	*\207" [l found limit nil re-search-forward "\\<\$\\(?:end[ 	]*\$?type\\)\\>[ 	]*" t match-data looking-at "\$is\\>\\|(\$" "\$\\sw+\$" 0 "[ 	]*::[ 	]*\$\\sw+\$" line-end-position set-match-data append 1] 5 (#$ . 11302)])
#@71 This does fairly subdued highlighting of comments and function calls.
(defvar f90-font-lock-keywords-1 (list '("\\<\$module[ 	]*procedure\$\\>\$[^()\n]*::\$?[ 	]*\$[^&!\n]*\$" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) '(f90-typedef-matcher (1 font-lock-keyword-face) (2 font-lock-function-name-face)) '("\\<\$\\(?:end[ 	]*\$?\$program\\|module\\|function\\|associate\\|subroutine\$\\|use\\|call\\)\\>[ 	]*\$\\sw+\$?" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) '("\\<\$use\$[ 	]*,[ 	]*\$\\(?:non_\$?intrinsic\\)[ 	]*::[ 	]*\$\\sw+\$" (1 font-lock-keyword-face) (2 font-lock-keyword-face) (3 font-lock-function-name-face)) "\\<\$\\(end[ 	]*\$?block[ 	]*data\\|contains\\|end[ 	]*interface\\)\\>" '("\\<\$\\(?:abstract[ 	]*\$?interface\\)\\>" (1 font-lock-keyword-face))) (#$ . 11905))
#@174 Search for the declaration of variables of derived type, up to LIMIT.
Set the match data so that subexpression 1,2 are the TYPE(...),
and variable-name parts, respectively.
(defalias 'f90-typedec-matcher #[(limit) "\303\211\304\305\n\306#\203�\303\307\310\217\211\203�	*\207" [l found limit nil re-search-forward "\\<\$type\\|class\$[ 	]*(" t (byte-code "\301u\210\302 \210\303\224`D\304\305w\210\306\307\310!\203�\311\202�\312\313 \314#\2053�\315\316@\317\225D\317\224\317\225D#!\210\314\207" [l -1 forward-sexp 0 " 	" nil re-search-forward looking-at "\\sw+" "\$[^&!\n]+\$" "::[ 	]*\$[^&!\n]+\$" line-end-position t set-match-data append 1] 6) ((error))] 4 (#$ . 12766)])
#@57 Highlights declarations, do-loops and other constructs.
(defvar f90-font-lock-keywords-2 (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\257\"\207" [f90-font-lock-keywords-1 append ("^[ 	0-9]*\$?:pure\\|elemental\$?[ 	]*\$real\\|integer\\|c\\(haracter\\|omplex\$\\|enumerator\\|generic\\|procedure\\|logical\\|double[ 	]*precision\\)\$.*::\\|[ 	]*(.*)\$?\$[^&!\n]*\$" (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) (f90-typedec-matcher (1 font-lock-type-face) (2 font-lock-variable-name-face)) ("\\<\$\\(real\\|integer\\|c\\(haracter\\|omplex\$\\|logical\\|double[ 	]*precision\\|\$?:type\\|class\$[ 	]*([ 	]*\\sw+[ 	]*)\\)[ 	]*\\)\$function\$\\>[ 	]*\$\\sw+\$[ 	]*\$([^&!\n]*)\$" (1 font-lock-type-face t) (4 font-lock-keyword-face t) (5 font-lock-function-name-face t) (6 'default t)) ("\\<\$enum\$\\>\$[^()\n]*::\$?[ 	]*\$\\sw+\$" (1 font-lock-keyword-face) (3 font-lock-function-name-face)) ("\\<\$end[ 	]*\\(do\\|if\\|enum\\|select\\|forall\\|where\$\\)\\>\$[ 	]+\\(\\sw+\$\\)?" (1 font-lock-keyword-face) (3 font-lock-constant-face nil t)) ("^[ 	0-9]*\$\\(\\sw+\$[ 	]*:[ 	]*\\)?\$\\(if\\|do\\([ 	]*while\$?\\|select[ 	]*\$?:case\\|type\$\\|where\\|forall\\)\\)\\>" (2 font-lock-constant-face nil t) (3 font-lock-keyword-face)) ("\\<\$implicit\$[ 	]*\$real\\|integer\\|c\\(haracter\\|omplex\$\\|enumerator\\|procedure\\|logical\\|double[ 	]*precision\\|type[ 	]*(\\sw+)\\|none\\)[ 	]*" (1 font-lock-keyword-face) (2 font-lock-type-face)) ("\\<\$namelist\\|common\$[ 	]*/\$\\sw+\$?/" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) "\\<else\$[ 	]*if\\|where\$?\\>" ("\$&\$[ 	]*\$!\\|$\$" (1 font-lock-keyword-face)) "\\<\$then\\|continue\\|format\\|include\\|stop\\|return\$\\>" ("\\<\$exit\\|cycle\$[ 	]*\$\\sw+\$?\\>" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ("\\<\$case\$[ 	]*\$default\\|(\$" . 1) ("\\<\$class\$[ 	]*default" . 1) ("\\<\$\\(type\\|class\$[ 	]*is\\)[ 	]*(" (1 font-lock-keyword-face t)) ("\\<\$do\\|go[ 	]*to\$\\>[ 	]*\$[0-9]+\$" (1 font-lock-keyword-face) (2 font-lock-constant-face)) ("^[ 	]*\$[0-9]+\$[ 	]*[a-z]+" (1 font-lock-constant-face t))] 19) (#$ . 13462))
#@55 Highlights all F90 keywords and intrinsic procedures.
(defvar f90-font-lock-keywords-3 (byte-code "\304	\n\305D\306\307\257\"\207" [f90-font-lock-keywords-2 f90-keywords-level-3-re f90-operators-re f90-procedures-re append (1 font-lock-keyword-face keep) "\\<real\\>" ("\\<\$asynchronous\$[ 	]*[^=]" . 1)] 7) (#$ . 15715))
#@52 Highlights all F90 and HPF keywords and constants.
(defvar f90-font-lock-keywords-4 (byte-code "\303	\304B\nD\"\207" [f90-font-lock-keywords-3 f90-constants-re f90-hpf-keywords-re append font-lock-constant-face] 4) (#$ . 16049))
#@114 *Default expressions to highlight in F90 mode.
Can be overridden by the value of `font-lock-maximum-decoration'.
(defvar f90-font-lock-keywords f90-font-lock-keywords-2 (#$ . -16286))
#@32 Syntax table used in F90 mode.
(defvar f90-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\321#\210\302\323\321#\210\302\324\321#\210\302\325\321#\210\302\326\327#\210)\207" [table make-syntax-table modify-syntax-entry 33 "<" 10 ">" 95 "w" 39 "\"" 34 96 "_" 13 " " 43 "." 45 61 42 47 92 "\\"] 4) (#$ . 16476))
#@26 Keymap used in F90 mode.
(defvar f90-mode-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\347#\210\303\351\347#\210\303\352\347#\210\303\353\347#\210\354	B\355\354\356\357#\210\360\354!\204\234�\361\354\362\"\210\363\354\357\364\365\366\367!\370BB\371BB$\210)\207" [map current-load-list make-sparse-keymap define-key "`" f90-abbrev-start ";" f90-comment-region "\201" f90-beginning-of-subprogram "\205" f90-end-of-subprogram "\210" f90-mark-subprogram "\216" f90-end-of-block "\220" f90-beginning-of-block "\221" f90-indent-subprogram "\n" f90-indent-new-line "
" f90-break-line "" f90-previous-block "" f90-next-block "" f90-join-lines "" f90-fill-region "" f90-previous-statement "" f90-next-statement "" f90-insert-end "," f90-electric-insert "+" "-" "*" "/" f90-menu put variable-documentation "Menu for F90 mode." default-boundp set-default nil easy-menu-do-define "F90" "Customization" custom-menu-create f90 (["Set" Custom-set :active t :help "Set current value of all edited settings in the buffer"] ["Save" Custom-save :active t :help "Set and save all edited settings"] ["Reset to Current" Custom-reset-current :active t :help "Reset all edited settings to current"] ["Reset to Saved" Custom-reset-saved :active t :help "Reset all edited or set settings to saved"] ["Reset to Standard Settings" Custom-reset-standard :active t :help "Erase all cusomizations in buffer"]) ("--" ["Indent Subprogram" f90-indent-subprogram t] ["Mark Subprogram" f90-mark-subprogram :active t :help "Mark the end of the current subprogram, move point to the start"] ["Beginning of Subprogram" f90-beginning-of-subprogram :active t :help "Move point to the start of the current subprogram"] ["End of Subprogram" f90-end-of-subprogram :active t :help "Move point to the end of the current subprogram"] "--" ["(Un)Comment Region" f90-comment-region :active mark-active :help "Comment or uncomment the region"] ["Indent Region" f90-indent-region :active mark-active] ["Fill Region" f90-fill-region :active mark-active :help "Fill long lines in the region"] "--" ["Break Line at Point" f90-break-line :active t :help "Break the current line at point"] ["Join with Previous Line" f90-join-lines :active t :help "Join the current line to the previous one"] ["Insert Block End" f90-insert-end :active t :help "Insert an end statement for the current code block"] "--" ("Highlighting" :help "Fontify this buffer to varying degrees" ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode :style toggle :help "Fontify text in this buffer"] "--" ["Light highlighting (level 1)" f90-font-lock-1 t] ["Moderate highlighting (level 2)" f90-font-lock-2 t] ["Heavy highlighting (level 3)" f90-font-lock-3 t] ["Maximum highlighting (level 4)" f90-font-lock-4 t]) ("Change Keyword Case" :help "Change the case of keywords in the buffer or region" ["Upcase Keywords (buffer)" f90-upcase-keywords t] ["Capitalize Keywords (buffer)" f90-capitalize-keywords t] ["Downcase Keywords (buffer)" f90-downcase-keywords t] "--" ["Upcase Keywords (region)" f90-upcase-region-keywords mark-active] ["Capitalize Keywords (region)" f90-capitalize-region-keywords mark-active] ["Downcase Keywords (region)" f90-downcase-region-keywords mark-active]) "--" ["Toggle Auto Fill" auto-fill-mode :selected auto-fill-function :style toggle :help "Automatically fill text while typing in this buffer"] ["Toggle Abbrev Mode" abbrev-mode :selected abbrev-mode :style toggle :help "Expand abbreviations while typing in this buffer"] ["Add Imenu Menu" f90-add-imenu-menu :active (not (lookup-key (current-local-map) [menu-bar index])) :included (fboundp 'imenu-add-to-menubar) :help "Add an index menu to the menu-bar"])] 8) (#$ . 16939))
#@51 Set `font-lock-keywords' to F90 level N keywords.
(defalias 'f90-font-lock-n #[(n) "\302\303!\210\304\305\306\"!J\307 \207" [n font-lock-keywords font-lock-mode 1 intern-soft format "f90-font-lock-keywords-%d" font-lock-fontify-buffer] 4 (#$ . 20966)])
#@57 Set `font-lock-keywords' to `f90-font-lock-keywords-1'.
(defalias 'f90-font-lock-1 #[nil "\300\301!\207" [f90-font-lock-n 1] 2 (#$ . 21227) nil])
#@57 Set `font-lock-keywords' to `f90-font-lock-keywords-2'.
(defalias 'f90-font-lock-2 #[nil "\300\301!\207" [f90-font-lock-n 2] 2 (#$ . 21379) nil])
#@57 Set `font-lock-keywords' to `f90-font-lock-keywords-3'.
(defalias 'f90-font-lock-3 #[nil "\300\301!\207" [f90-font-lock-n 3] 2 (#$ . 21531) nil])
#@57 Set `font-lock-keywords' to `f90-font-lock-keywords-4'.
(defalias 'f90-font-lock-4 #[nil "\300\301!\207" [f90-font-lock-n 4] 2 (#$ . 21683) nil])
#@54 Regexp potentially indicating a "block" of F90 code.
(defconst f90-blocks-re "\$block[ 	]*data\\|\\(?:associate\\|do\\|enum\\|f\\(?:orall\\|unction\$\\|i\$?:f\\|nterface\$\\|module\\|program\\|s\$?:elect\\|ubroutine\$\\|\$?:typ\\|wher\$e\\)\\)\\>" (#$ . 21835))
#@56 Regexp used to locate the start/end of a "subprogram".
(defconst f90-program-block-re "\$function\\|module\\|program\\|subroutine\$" (#$ . 22111))
#@71 Regexp matching an ELSE IF, ELSEWHERE, CASE, CLASS/TYPE IS statement.
(defconst f90-else-like-re "\$else\\([ 	]*if\\|where\$?\\|case[ 	]*\$default\\|(\$\\|\$class\\|type\$[ 	]*is[ 	]*(\\|class[ 	]*default\\)" (#$ . 22266))
#@64 Regexp matching the end of an IF, SELECT, WHERE, FORALL block.
(defconst f90-end-if-re "end[ 	]*\$forall\\|if\\|select\\|where\$\\>" (#$ . 22501))
#@73 Regexp matching the end of a TYPE, ENUM, INTERFACE, BLOCK DATA section.
(defconst f90-end-type-re "end[ 	]*\$type\\|enum\\|interface\\|block[ 	]*data\$\\>" (#$ . 22656))
#@48 Regexp matching the end of an ASSOCIATE block.
(defconst f90-end-associate-re "end[ 	]*associate\\>" (#$ . 22834))
#@51 Regexp matching the definition of a derived type.
(defconst f90-type-def-re "\\<\$type\$\\>\$?:[^()\n]*::\$?[ 	]*\$\\sw+\$" (#$ . 22955))
#@44 Regexp matching a CLASS/TYPE IS statement.
(defconst f90-typeis-re "\\<\$class\\|type\$[ 	]*is[ 	]*(" (#$ . 23105))
#@349 Regexp specifying two-character tokens not to split when breaking lines.
Each token has one or more of the characters from `f90-break-delimiters'.
Note that if only one of the characters is from that variable,
then the presence of the token here allows a line-break before or
after the other character, where a break would not normally be allowed.
(defconst f90-no-break-re "\$\\*\\*\\|/[/=]\\|<=\\|=[=>]\\|>=\$" (#$ . 23230))
#@56 Temporary position used to speed up region operations.
(defvar f90-cache-position nil (#$ . 23665))
(make-variable-buffer-local 'f90-cache-position)
#@116 Regexp matching the end of an F90 "block", from the line start.
Used in the F90 entry in `hs-special-modes-alist'.
(defconst f90-end-block-re "^[ 	0-9]*\\<end[ 	]*\$associate\\|do\\|enum\\|f\\(?:orall\\|unction\$\\|i\$?:f\\|nterface\$\\|module\\|program\\|s\$?:elect\\|ubroutine\$\\|\$?:typ\\|wher\$e\\)\\>" (#$ . 23821))
#@248 Regexp matching the start of an F90 "block", from the line start.
A simple regexp cannot do this in fully correct fashion, so this
tries to strike a compromise between complexity and flexibility.
Used in the F90 entry in `hs-special-modes-alist'.
(defconst f90-start-block-re "^[ 	0-9]*\$\\(\\(\\sw+[ 	]*:[ 	]*\$?\$do\\|select[ 	]*\\(case\\|type\$\\|if[ 	]*(\$.*\\|.*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\$\\)\\)\\<then\\|\$where\\|forall\$[ 	]*(.*)[ 	]*\$!\\|$\$\\)\\)\\|type[ 	,]\$[^i(!\n\"& 	]\\|i[^s!\n\"& 	]\\|is\\sw\$\\|program\\|\$?:abstract[ 	]*\$?interface\\|module\\|function\\|subroutine\\|enum[^e]\\|associate\\)[ 	]*" (#$ . 24158))
(byte-code "\302\303\304	\305BBB\"\207" [f90-start-block-re f90-end-block-re add-to-list hs-special-modes-alist f90-mode ("!" f90-end-of-block nil)] 6)
#@113 Search backward for the start of a derived type.
Set subexpression 1 in the match-data to the name of the type.
(defalias 'f90-imenu-type-matcher #[nil "\301\302\303\301\304#\203(�\212\305\225b\210\306\307!?\205\"�\306\310!\206\"�\311\312\313 \304#)\211\203�)\207" [found nil re-search-backward "^[ 	0-9]*type[ 	]*" t 0 looking-at "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position] 4 (#$ . 24974)])
#@51 Value for `imenu-generic-expression' in F90 mode.
(defvar f90-imenu-generic-expression (byte-code "\304\305\306\307\310\311\312\313\314E\315\316\317\320\n\211\321	\321\211\322\321\323\323\322\324\260\325EF,\207" [not-d not-n not-e good-char "[^!\"&\n 	]" "[^e!\n\"& 	]" "[^n!\n\"& 	]" "[^d!\n\"& 	]" (nil "^[ 	0-9]*program[ 	]+\$\\sw+\$" 1) ("Modules" "^[ 	0-9]*module[ 	]+\$\\sw+\$[ 	]*\$!\\|$\$" 1) "Types" f90-imenu-type-matcher 1 "Procedures" "^[ 	0-9]*" "\$" "[^!\"&\n]*\\(" "\\|" "\$" "?" "[ 	]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" 4] 26) (#$ . 25427))
#@35 Add an imenu menu to the menubar.
(defalias 'f90-add-imenu-menu #[nil "\300\301 \302\"\203
�\303\304\305\"\207\306\307!\210\310\311 !\207" [lookup-key current-local-map [menu-bar index] message "%s" "F90-imenu already exists." imenu-add-to-menubar "F90-imenu" redraw-frame selected-frame] 3 (#$ . 26020) nil])
(byte-code "\300\301\302\303\304\"\305\306\307%\207" [define-abbrev-table f90-mode-abbrev-table mapcar #[(e) "@A\301\302\303\257\207" [e nil :system t] 5] (("`al" . "allocate") ("`ab" . "allocatable") ("`ai" . "abstract interface") ("`as" . "assignment") ("`asy" . "asynchronous") ("`ba" . "backspace") ("`bd" . "block data") ("`c" . "character") ("`cl" . "close") ("`cm" . "common") ("`cx" . "complex") ("`cn" . "contains") ("`cy" . "cycle") ("`de" . "deallocate") ("`df" . "define") ("`di" . "dimension") ("`dp" . "double precision") ("`dw" . "do while") ("`el" . "else") ("`eli" . "else if") ("`elw" . "elsewhere") ("`em" . "elemental") ("`e" . "enumerator") ("`eq" . "equivalence") ("`ex" . "external") ("`ey" . "entry") ("`fl" . "forall") ("`fo" . "format") ("`fu" . "function") ("`fa" . ".false.") ("`im" . "implicit none") ("`in" . "include") ("`i" . "integer") ("`it" . "intent") ("`if" . "interface") ("`lo" . "logical") ("`mo" . "module") ("`na" . "namelist") ("`nu" . "nullify") ("`op" . "optional") ("`pa" . "parameter") ("`po" . "pointer") ("`pr" . "print") ("`pi" . "private") ("`pm" . "program") ("`pr" . "protected") ("`pu" . "public") ("`r" . "real") ("`rc" . "recursive") ("`rt" . "return") ("`rw" . "rewind") ("`se" . "select") ("`sq" . "sequence") ("`su" . "subroutine") ("`ta" . "target") ("`tr" . ".true.") ("`t" . "type") ("`vo" . "volatile") ("`wh" . "where") ("`wr" . "write")) "Abbrev table for F90 mode." :regexp "\$?:[^[:word:]_`]\\|^\$\$`?[[:word:]_]+\$[^[:word:]_]*"] 6)
#@2138 Major mode for editing Fortran 90,95 code in free format.
For fixed format code, use `fortran-mode'.

\[f90-indent-line] indents the current line.
\[f90-indent-new-line] indents current line and creates a new indented line.
\[f90-indent-subprogram] indents the current subprogram.

Type `? or `\[help-command] to display a list of built-in abbrevs for F90 keywords.

Key definitions:
\{f90-mode-map}

Variables controlling indentation style and extra features:

`f90-do-indent'
  Extra indentation within do blocks (default 3).
`f90-if-indent'
  Extra indentation within if/select/where/forall blocks (default 3).
`f90-type-indent'
  Extra indentation within type/enum/interface/block-data blocks (default 3).
`f90-program-indent'
  Extra indentation within program/module/subroutine/function blocks
  (default 2).
`f90-continuation-indent'
  Extra indentation applied to continuation lines (default 5).
`f90-comment-region'
  String inserted by function \[f90-comment-region] at start of each
  line in region (default "!!!$").
`f90-indented-comment-re'
  Regexp determining the type of comment to be intended like code
  (default "!").
`f90-directive-comment-re'
  Regexp of comment-like directive like "!HPF\\$", not to be indented
  (default "!hpf\\$").
`f90-break-delimiters'
  Regexp holding list of delimiters at which lines may be broken
  (default "[-+*/><=,% \t]").
`f90-break-before-delimiters'
  Non-nil causes `f90-do-auto-fill' to break lines before delimiters
  (default t).
`f90-beginning-ampersand'
  Automatic insertion of & at beginning of continuation lines (default t).
`f90-smart-end'
  From an END statement, check and fill the end using matching block start.
  Allowed values are 'blink, 'no-blink, and nil, which determine
  whether to blink the matching beginning (default 'blink).
`f90-auto-keyword-case'
  Automatic change of case of keywords (default nil).
  The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
`f90-leave-line-no'
  Do not left-justify line numbers (default nil).

Turning on F90 mode calls the value of the variable `f90-mode-hook'
with no args, if that value is non-nil.
(defalias 'f90-mode #[nil "\306 \210\307\310\n\311\f!\210\312
!\210\313\314!\210\315\f\313\316!\210\317\313\320!\210(\313\321!\210\322\313\323!\210\324\313\325!\210\326\313\327!\210\330\313\331!\210\332\333)\313\334!\210\335\313\336!\210\330\313\337!\210*\313\340!\210\341 \313\342!\210\343\"\313\344!\210\345$\346\347!\207" [major-mode mode-name f90-mode-abbrev-table local-abbrev-table f90-mode-syntax-table f90-mode-map kill-all-local-variables f90-mode "F90" set-syntax-table use-local-map make-local-variable indent-line-function f90-indent-line indent-region-function f90-indent-region require-final-newline comment-start "!" comment-start-skip "!+ *" comment-indent-function f90-comment-indent abbrev-all-caps t normal-auto-fill-function f90-do-auto-fill nil font-lock-defaults ((f90-font-lock-keywords f90-font-lock-keywords-1 f90-font-lock-keywords-2 f90-font-lock-keywords-3 f90-font-lock-keywords-4) nil t) imenu-case-fold-search imenu-generic-expression beginning-of-defun-function f90-beginning-of-subprogram end-of-defun-function f90-end-of-subprogram add-log-current-defun-function f90-current-defun run-mode-hooks f90-mode-hook mode-require-final-newline indent-tabs-mode f90-imenu-generic-expression] 2 (#$ . 27846) nil])
#@137 Return non-nil if point is inside a string.
Checks from `point-min', or `f90-cache-position', if that is non-nil
and lies before point.
(defalias 'f90-in-string #[nil "\203�`V\203�\202�e\302\303	`\"8)\207" [f90-cache-position beg-pnt 3 parse-partial-sexp] 4 (#$ . 31259)])
(put 'f90-in-string 'byte-optimizer 'byte-compile-inline-expand)
#@138 Return non-nil if point is inside a comment.
Checks from `point-min', or `f90-cache-position', if that is non-nil
and lies before point.
(defalias 'f90-in-comment #[nil "\203�`V\203�\202�e\302\303	`\"8)\207" [f90-cache-position beg-pnt 4 parse-partial-sexp] 4 (#$ . 31611)])
(put 'f90-in-comment 'byte-optimizer 'byte-compile-inline-expand)
#@155 Return t if the current line is a continued one.
This includes comment lines embedded in continued lines, but
not the last line of a continued statement.
(defalias 'f90-line-continued #[nil "\212\302 \210\303\304!\203�\305\306y!\204�\307\210\203\"�`V\203\"�\202#�e\310\311	`\"8)\203;�\312\313\314 \"\210\313\307x\210\202�\315\307x\210h\316U)\207" [f90-cache-position beg-pnt beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 nil 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38] 4 (#$ . 31966)])
(put 'f90-line-continued 'byte-optimizer 'byte-compile-inline-expand)
#@88 Return indentation of current line.
Line-numbers are considered whitespace characters.
(defalias 'f90-current-indentation #[nil "\212\300 \210\301\302w)\207" [beginning-of-line " 	0-9" nil] 2 (#$ . 32577)])
(put 'f90-current-indentation 'byte-optimizer 'byte-compile-inline-expand)
#@131 Indent current line to column COL.
If optional argument NO-LINE-NUMBER is nil, jump over a possible
line-number before indenting.
(defalias 'f90-indent-to #[(col &optional no-line-number) "\302 \210\204�\303\304w\210\305 \210\306	\307i!\203�\310\202�\311\"\207" [no-line-number col beginning-of-line " 	0-9" nil delete-horizontal-space indent-to zerop 0 1] 4 (#$ . 32866)])
(put 'f90-indent-to 'byte-optimizer 'byte-compile-inline-expand)
#@157 If point lies within a comment, return the string starting the comment.
For example, "!" or "!!", followed by the appropriate amount of
whitespace, if any.
(defalias 'f90-get-present-comment-type #[nil "\212\203�`V\203�\202�e\302\303	`\"8)\205J�\304 \210\305\306\307 \"\210\2032�`V\2032�\2023�e\310\303	`\"8)\203G�\305\306\307 \"\210\202$�\311\312!)\207" [f90-cache-position beg-pnt 4 parse-partial-sexp beginning-of-line re-search-forward "!+[ 	]*" line-end-position 3 match-string-no-properties 0] 4 (#$ . 33316)])
(put 'f90-get-present-comment-type 'byte-optimizer 'byte-compile-inline-expand)
#@69 Compare strings A and B neglecting case and allowing for nil value.
(defalias 'f90-equal-symbols #[(a b) "\205�\227	\205\f�	\227\232\207" [a b] 2 (#$ . 33930)])
(put 'f90-equal-symbols 'byte-optimizer 'byte-compile-inline-expand)
#@101 Return ("do" NAME) if a do statement starts after point.
NAME is nil if the statement has no label.
(defalias 'f90-looking-at-do #[nil "\300\301!\205
�\302\303!\302\304!D\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2] 3 (#$ . 34170)])
(put 'f90-looking-at-do 'byte-optimizer 'byte-compile-inline-expand)
#@109 Return ("select" NAME) if a select statement starts after point.
NAME is nil if the statement has no label.
(defalias 'f90-looking-at-select-case #[nil "\300\301!\205
�\302\303!\302\304!D\207" [looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" match-string 3 2] 3 (#$ . 34512)])
(put 'f90-looking-at-select-case 'byte-optimizer 'byte-compile-inline-expand)
#@110 Return ("if" NAME) if an if () then statement starts after point.
NAME is nil if the statement has no label.
(defalias 'f90-looking-at-if-then #[nil "\212\305\306!\205}�\307\310!\307\311!\312`\313\314#\203�b\210\315\316w\210\305\317!\204y�\212\320 \210\305\321!\2037�\322\323y!\204*�\316\210\203H�`V\203H�\202I�e\324\325\f`\"8)\203a�\326\327\330 \"\210\327\316x\210\202:�\315\316x\210h\331U)\205|�\332 \210\333\316w\210\305\317!\205|�\n	D+)\207" [pos label struct f90-cache-position beg-pnt looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" match-string 3 2 scan-lists 1 0 " 	" nil "then\\>" beginning-of-line "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&"] 6 (#$ . 34909)])
(put 'f90-looking-at-if-then 'byte-optimizer 'byte-compile-inline-expand)
#@64 Return ("associate") if an associate block starts after point.
(defalias 'f90-looking-at-associate #[nil "\300\301!\205\n�\302\303!C\207" [looking-at "\\<\$associate\$[ 	]*(" match-string 1] 2 (#$ . 35756)])
(put 'f90-looking-at-associate 'byte-optimizer 'byte-compile-inline-expand)
#@110 Return (KIND NAME) if a where or forall block starts after point.
NAME is nil if the statement has no label.
(defalias 'f90-looking-at-where-or-forall #[nil "\212\303\304!\205*�\305\306!\305\307!\310`\311\312#\203�b\210\313\314w\210\303\315!\205)�\n	D+)\207" [pos label struct looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" match-string 3 2 scan-lists 1 0 " 	" nil "\$!\\|$\$"] 6 (#$ . 36049)])
(put 'f90-looking-at-where-or-forall 'byte-optimizer 'byte-compile-inline-expand)
#@107 Return (KIND NAME) if a type/enum/interface/block-data starts after point.
NAME is non-nil only for type.
(defalias 'f90-looking-at-type-like #[nil "\212\300\301!\205 �\302\225b\205 �\300\303!?\205 �\300\304!\206 �\305\306\307 \310#)\203*�\311\312\313!D\207\300\314!\2036�\312\313!\315D\207\300\316!\205A�\312\313!\315D\207" [looking-at "\\<type\\>[ 	]*" 0 "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position t "type" match-string 1 "\$enum\\|interface\\|block[ 	]*data\$\\>" nil "abstract[ 	]*\$interface\$\\>"] 4 (#$ . 36560)])
(put 'f90-looking-at-type-like 'byte-optimizer 'byte-compile-inline-expand)
#@74 Return (KIND NAME) if a program block with name NAME starts after point.
(defalias 'f90-looking-at-program-block-start #[nil "\300\301!\203�\302\303!\302\304!D\207\300\305!\204\"�\300\306!\203\"�\302\303!\302\304!D\207\300\307!?\2056�\300\310!\2056�\302\303!\302\304!D\207" [looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 1 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$"] 3 (#$ . 37218)])
(put 'f90-looking-at-program-block-start 'byte-optimizer 'byte-compile-inline-expand)
#@64 Return (KIND NAME) if a block with name NAME ends after point.
(defalias 'f90-looking-at-program-block-end #[nil "\301\302\303Q!\205�\304\305!\304\306!D\207" [f90-blocks-re looking-at "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" match-string 1 3] 4 (#$ . 37822)])
(put 'f90-looking-at-program-block-end 'byte-optimizer 'byte-compile-inline-expand)
#@345 Return the indentation to be used for a comment starting at point.
Used for `comment-indent-function' by F90 mode.
"!!!", `f90-directive-comment-re', variable `f90-comment-region' return 0.
`f90-indented-comment-re' (if not trailing code) calls `f90-calculate-indent'.
All others return `comment-column', leaving at least one space after code.
(defalias 'f90-comment-indent #[nil "\304\305!\203�\306\207\203�\304!\203�\306\207\304\307	!!\203�\306\207\304\n!\2031�\212\310\311x\210n)\2031�\312 \207\212\310\311x\210n\203>�\306\202@�iT])\207" [f90-directive-comment-re f90-comment-region f90-indented-comment-re comment-column looking-at "!!!" 0 regexp-quote " 	" nil f90-calculate-indent] 3 (#$ . 38175)])
(put 'f90-comment-indent 'byte-optimizer 'byte-compile-inline-expand)
#@376 Return continuation properties of present statement.
Possible return values are:
single - statement is not continued.
begin  - current line is the first in a continued statement.
end    - current line is the last in a continued statement
middle - current line is neither first nor last in a continued statement.
Comment lines embedded amongst continued lines return 'middle.
(defalias 'f90-present-statement-cont #[nil "\304\211\212\305 \205M�\212\306 \210\307\310!\203�\311\312y!\204�\304\210\n\203,�`\nV\203,�\n\202-�e\313\314`\"8)\203E�\315\316\317 \"\210\316\304x\210\202�\320\304x\210h\321U))\212\306 \210\307\310!\203`�\311\312y!\204S�\304\210\n\203q�`\nV\203q�\n\202r�e\313\314`\"8)\203\212�\315\316\317 \"\210\316\304x\210\202c�\320\304x\210h\321U)	\204\237�\204\237�\322\202\306�	\204\253�\203\253�\323\202\306�	\203\267�\204\267�\324\202\306�	\203\303�\203\303�\325\202\306�\326\327!*\207" [cont pcont f90-cache-position beg-pnt nil f90-previous-statement beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred"] 4 (#$ . 38964)])
(put 'f90-present-statement-cont 'byte-optimizer 'byte-compile-inline-expand)
#@158 If `f90-leave-line-no' is nil, left-justify a line number.
Leaves point at the first non-blank character after the line number.
Call from beginning of line.
(defalias 'f90-indent-line-no #[nil "\204
�\301\302!\203
�\303 \210\304\305w\207" [f90-leave-line-no looking-at "[ 	]+[0-9]" delete-horizontal-space " 	0-9" nil] 2 (#$ . 40236)])
(put 'f90-indent-line-no 'byte-optimizer 'byte-compile-inline-expand)
#@126 Return nil if point is at the edge of a code block.
Searches line forward for "function" or "subroutine",
if all else fails.
(defalias 'f90-no-block-limit #[nil "\212\301\302!\206%�\301\303!\206%�\301\304!\206%�\301\305!\206%�\301!\206%�\306\307\310 \311#)?\207" [f90-type-def-re looking-at "end" "\$do\\|if\\|else\\(if\\|where\$?\\|select[ 	]*\$case\\|type\$\\|case\\|where\\|forall\\)\\>" "\$program\\|module\\|\\(?:abstract[ 	]*\$?interface\\|block[ 	]*data\\)\\>" "\$contains\\|\\sw+[ 	]*:\$" re-search-forward "\$function\\|subroutine\$" line-end-position t] 4 (#$ . 40650)])
(put 'f90-no-block-limit 'byte-optimizer 'byte-compile-inline-expand)
#@61 Change case of current line as per `f90-auto-keyword-case'.
(defalias 'f90-update-line #[nil "\205�\301\302 \303 #\207" [f90-auto-keyword-case f90-change-keywords line-beginning-position line-end-position] 4 (#$ . 41318)])
(put 'f90-update-line 'byte-optimizer 'byte-compile-inline-expand)
#@67 Change keyword case and auto-fill line as operators are inserted.
(defalias 'f90-electric-insert #[(&optional arg) "\303!\210	\203�\304 \207\n\205�\305\n\306 \307 #\207" [arg auto-fill-function f90-auto-keyword-case self-insert-command f90-do-auto-fill f90-change-keywords line-beginning-position line-end-position] 4 (#$ . 41617) "*p"])
#@106 Get correct indent for a line starting with line number.
Does not check type and subprogram indentation.
(defalias 'f90-get-correct-indent #[nil "\306 \307\211\212\310 \203\347�\307\211\212\310 \205Z�\212\311 \210\312\313!\203(�\314\315y!\204�\307\210\f\2039�`\fV\2039�\f\202:�e\316\317
`\"8)\203R�\320\321\322 \"\210\321\307x\210\202+�\323\307x\210h\324U))\212\311 \210\312\313!\203m�\314\315y!\204`�\307\210\f\203~�`\fV\203~�\f\202�e\316\317
`\"8)\203\227�\320\321\322 \"\210\321\307x\210\202p�\323\307x\210h\324U)\204\254�\204\254�\325\202\323�\204\270�\203\270�\326\202\323�\203\304�\204\304�\327\202\323�\203\320�\203\320�\330\202\323�\331\332!*\211\327=\204�\330=\204�\312\333!\204�\334 \311 \210\335\336\306 \337#\203\377\311 \210\323\307w\210\312\340!\203\341\342!\341\343!D\203	1\\\202\374\212\312\344!\205\231\341\342!\341\343!\345`\346\347#2342\20362b\210\323\307w\210\312\350!\204\223\212\311 \210\312\313!\203Q\314\315y!\204D\307\210\f\203b`\fV\203b\f\202ce\316\317
`\"8)\203{\320\321\322 \"\210\321\307x\210\202T\323\307x\210h\324U)\205\230\351 \210\352\307w\210\312\350!\205\23043D+)\204\342\212\312\353!\205\316\341\342!\341\343!\345`\346\347#2342\203\2762b\210\323\307w\210\312\354!\205\31543D+)\204\342\312\355!\203\352\341\342!\341\343!D\203\352	5\\\202\374\312\356!\203\374\341\346!C\203\374	6\\\307\210\335\336\n\337#\203?\311 \210\357\307w\210\312\340!\203&\341\342!\341\343!D\203&	1\\\2029\212\312\344!\205\252\341\342!\341\343!\345`\346\347#2342\203G2b\210\323\307w\210\312\350!\204\244\212\311 \210\312\313!\203b\314\315y!\204U\307\210\f\203s`\fV\203s\f\202te\316\317
`\"8)\203\214\320\321\322 \"\210\321\307x\210\202e\323\307x\210h\324U)\205\251\351 \210\352\307w\210\312\350!\205\25143D+)\204\363\212\312\353!\205\337\341\342!\341\343!\345`\346\347#2342\203\3172b\210\323\307w\210\312\354!\205\33643D+)\204\363\312\355!\203\373\341\342!\341\343!D\203\373	5\\\2029\312\356!\203\341\346!C\203	6\\\2029\3127!\203	5Z\2029\3128!\203.	6Z\2029\312\360!\2039	1Z\307\210\202\377	,\207" [cont icol epnt pcont f90-cache-position beg-pnt line-end-position nil f90-previous-statement beginning-of-line looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" "[ 	]*[0-9]" current-indentation re-search-forward "\$if\\|do\\|select\\|where\\|forall\$" t "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists 1 0 "then\\>" f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<\$associate\$[ 	]*(" " 	0-9" "end[ 	]*do\\>" f90-do-indent pos label struct f90-if-indent f90-associate-indent f90-end-if-re f90-end-associate-re] 7 (#$ . 41965)])
#@59 Calculate the indent column based on previous statements.
(defalias 'f90-calculate-indent #[nil "\306\211\307`\212\310 \204c�\212\311\312!\203�\313 \210\314\306w\210\311\315!\203,�\316\317!\316\320!D\202V�\311\321!\204B�\311\322!\203B�\316\317!\316\320!D\202V�\311\323!?\205V�\311\324!\205V�\316\317!\316\320!D)\203^�\325\202_�\f\202x\306\211\212\310 \205\265�\212\326 \210\311\327!\203~�\330\331y!\204q�\306\210@\203\222�`@V\203\222�@\202\223�eA\332\333A`\"8)\203\255�\334\335\336 \"\210\335\306x\210\202\201�\337\306x\210h\340U))\212\326 \210\311\327!\203\310�\330\331y!\204\273�\306\210@\203\334�`@V\203\334�@\202\335�eA\332\333A`\"8)\203\367�\334\335\336 \"\210\335\306x\210\202\313�\337\306x\210h\340U)
\204\f\n\204\f\341\2023
\204\n\203\342\2023
\203$\n\204$\343\2023
\2030\n\2030\344\2023\345\346!*\211\343=\203\306\211\212\310 \205\215\212\326 \210\311\327!\203V\330\331y!\204I\306\210@\203j`@V\203j@\202keA\332\333A`\"8)\203\205\334\335\336 \"\210\335\306x\210\202Y\337\306x\210h\340U))\212\326 \210\311\327!\203\240\330\331y!\204\223\306\210@\203\264`@V\203\264@\202\265eA\332\333A`\"8)\203\317\334\335\336 \"\210\335\306x\210\202\243\337\306x\210h\340U)
\204\344\n\204\344\341\202
\204\360\n\203\360\342\202
\203\374\n\204\374\343\202
\203\n\203\344\202\345\346!*\342=\204\310 \210\202;\n\342=\203,\212\326 \210\314\306w)B\\\202x\n\344=\2038\347 \202x\212\326 \210\314\306w)\337\306w\210\311\350!\203Q\351 \202\365\212\311\352!\205\332\316\353!\316\320!\354`\317\325#CDEC\203rCb\210\337\306w\210\311\355!\204\324\212\326 \210\311\327!\203\215\330\331y!\204\200\306\210@\203\241`@V\203\241@\202\242eA\332\333A`\"8)\203\274\334\335\336 \"\210\335\306x\210\202\220\337\306x\210h\340U)\205\331\313 \210\356\306w\210\311\355!\205\331EDD+)\204*\212\311\357!\205\316\353!\316\320!\354`\317\325#CDEC\203\377Cb\210\337\306w\210\311\360!\205EDD+)\204*\311\361!\203#\316\353!\316\320!D\204*\311F!\2032G\\\202\365\311\362!\203J\316\353!\316\320!D\203JH\\\202\365\212\311\363!\205j\325\225b\205j\311\364!?\205j\311\365!\206j\366\367\370 \307#)\203v\371\316\317!D\202\217\311\372!\203\204\316\317!\306D\202\217\311\373!\203\232\316\317!\306D\203\232I\\\202\365\311\374!\203\257\316\317!C\203\257J\\\202\365\311\315!\203\277\316\317!\316\320!D\202\350\311\321!\204\325\311\322!\203\325\316\317!\316\320!D\202\350\311\323!\204\353\311\324!\203\353\316\317!\316\320!D\204\361\311\375!\203\365\f\\b\210\326 \210\311\376!\204x\311\377!\203\f\325\202x\314\306w\210\311F!\204\311K!\203&GZ\202x\311\201O�!\2036HZ\202x\311L!\203EIZ\202x\311M!\203TJZ\202x\311\201P�!\204t\311\201Q�N\201R�Q!\203x\316\317!\316\353!D\203x\fZ),\207" [pnt case-fold-search cont icol f90-program-indent pcont nil t f90-previous-statement looking-at "[ 	]*\$[!#]\\|$\$" f90-next-statement " 	0-9" "\$program\$[ 	]+\$\\sw+\$\\>" match-string 1 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" 0 beginning-of-line "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" current-indentation "[0-9]" f90-get-correct-indent "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" 3 scan-lists "then\\>" " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "contains[ 	]*\$$\\|!\$" "[ 	]*$" "[ 	]*#" f90-cache-position beg-pnt f90-continuation-indent pos label struct f90-else-like-re f90-if-indent f90-do-indent f90-type-indent f90-associate-indent f90-end-if-re f90-end-type-re f90-end-associate-re f90-blocks-re "end[ 	]*do\\>" "contains[ 	]*\$!\\|$\$" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>"] 7 (#$ . 44962) nil])
#@256 Move point to beginning of the previous F90 statement.
If no previous statement is found (i.e. if called from the first
statement in the buffer), move to the start of the buffer and
return nil.  A statement is a line which is neither blank nor a
comment.
(defalias 'f90-previous-statement #[nil "\301\302 \210\303\304y!\211\203�\305\306!\204�)\207" [not-first-statement nil beginning-of-line zerop -1 looking-at "[ 	0-9]*\$!\\|$\\|#\$"] 2 (#$ . 49242) nil])
#@95 Move point to beginning of the next F90 statement.
Return nil if no later statement is found.
(defalias 'f90-next-statement #[nil "\301\302 \210\303\304y!\205�m?\211\203�\305\306!\204�)\207" [not-last-statement nil beginning-of-line zerop 1 looking-at "[ 	0-9]*\$!\\|$\$"] 2 (#$ . 49713) nil])
#@97 Move point to the beginning of the current subprogram.
Return (TYPE NAME), or nil if not found.
(defalias 'f90-beginning-of-subprogram #[nil "\305\306\307\310 \210\n\311V\203~�\312\307\313#\203~�\310 \210\314\307w\210\315\316!\203.�\317\305!\317\320!D\202X�\315\321!\204D�\315\322!\203D�\317\305!\317\320!D\202X�\315\323!?\205X�\315\324!\205X�\317\305!\317\320!D\211\203d�\nS\211\202\n�\315\325\f\326Q!\203	�\317\305!\317\327!D\203	�\nT\211\202\n�\310 \210\330\n!\203\213�\202\224�t\203\223�\331\332!\210\307+\207" [matching-beg case-fold-search count f90-program-block-re f90-blocks-re 1 t nil beginning-of-line 0 re-search-backward move " 	0-9" looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3 zerop message "No beginning found"] 5 (#$ . 50021) nil])
#@91 Move point to the end of the current subprogram.
Return (TYPE NAME), or nil if not found.
(defalias 'f90-end-of-subprogram #[nil "\305\306\307\307\210	\310V\203~�\311\307\312#\203~�\313 \210\314\307w\210\315\316!\203.�\317\306!\317\320!D\202W�\315\321!\204D�\315\322!\203D�\317\306!\317\320!D\202W�\315\323!\204`�\315\324!\203`�\317\306!\317\320!D\203`�	T\202x�\315\325\f\326Q!\205p�\317\306!\317\327!D\211\203x�	S\307\210\202	�\330	!\203\210�\202\221�t\203\220�\331\332!\210\307+\207" [matching-end count case-fold-search f90-program-block-re f90-blocks-re t 1 nil 0 re-search-forward move beginning-of-line " 	0-9" looking-at "\$program\$[ 	]+\$\\sw+\$\\>" match-string 2 "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" 3 zerop message "No end found"] 4 (#$ . 50998) nil])
#@354 Move point forward to the end of the current code block.
With optional argument NUM, go forward that many balanced blocks.
If NUM is negative, go backward to the start of a block.  Checks
for consistency of block types and labels (if present), and
completes outermost block if `f90-smart-end' is non-nil.
Interactively, pushes mark before moving point.
(defalias 'f90-end-of-block #[(&optional num) "t\203	�\306`\307\"\210\203�\310W\203�\311[!\210	\205�\312\307\206#�\313\314\211\211\211\211\211=>?@\314\210?\310V\203\214\315A\314\316#\203\214\317 \210\320\314w\210B\203a�`BV\203a�B\202b�eC\321\322C`\"8)\204\206B\203\200�`BV\203\200�B\202\201�eC\323\322C`\"8)\204\206\324\325!\203\236�\326\321!\326\327!D\206\376\324\330!\203\256�\326\321!\326\327!D\206\376\212\324\331!\205\316�\310\225b\205\316�\324\332!?\205\316�\324\333!\206\316�\315\334\335 \307#)\203\332�\336\326\313!D\202\363�\324\337!\203\350�\326\313!\314D\202\363�\324\340!\203\366�\326\313!\314D\206\376\324\341!\203\326\313!C\206\376\324\342!\203\326\313!\326\327!D\202<\324\343!\204)\324\344!\203)\326\313!\326\327!D\202<\324\345!\204?\324\346!\203?\326\313!\326\327!D\206\376\212\324\347!\205\310\326\321!\326\327!\350`\313\310#DEFD\203`Db\210\351\314w\210\324\352!\204\302\212\317 \210\324\353!\203{\354\355y!\204n\314\210B\203\217`BV\203\217B\202\220eC\323\322C`\"8)\203\252\356\357\360 \"\210\357\314x\210\202~\351\314x\210h\361U)\205\307\362 \210\363\314w\210\324\352!\205\307FED+)\206\376\212\324\364!\205\375\326\321!\326\327!\350`\313\310#DEFD\203\355Db\210\351\314w\210\324\365!\205\374FED+)\211=\203=>B>?T?\202\206\324\366A\367Q!\203\206\326\313!\326\327!?S?>\203\206>@=>A>=@=\211GA@)
H\211I\205SI\227H\205[H\227\232*\204f\370\371
#\210\f\nH\211I\205sI\227H\205{H\227\232*\204\206\370\372\n\f#\210\314\210\2029�?\310V\203\227\370\373!\210	\205\246\212\317 \210\320\314w\210\374 ).	\207" [num f90-smart-end end-label end-type start-label start-type push-mark t 0 f90-beginning-of-block no-blink 1 nil re-search-forward move beginning-of-line " 	0-9" 3 parse-partial-sexp 4 looking-at "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists " 	" "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "end[ 	]*" "[ 	]*\$\\sw+\$?" error "End type `%s' does not match start type `%s'" "End label `%s' does not match start label `%s'" "Missing block end" f90-match-end start-this start-list count case-fold-search f90-blocks-re f90-cache-position beg-pnt pos label struct x b a] 10 (#$ . 51942) "p"])
#@360 Move point backwards to the start of the current code block.
With optional argument NUM, go backward that many balanced blocks.
If NUM is negative, go forward to the end of a block.
Checks for consistency of block types and labels (if present).
Does not check the outermost block, because it may be incomplete.
Interactively, pushes mark before moving point.
(defalias 'f90-beginning-of-block #[(&optional num) "t\203	�\306`\307\"\210\203�\310W\203�\311[!\210\307\206�\312\313\211\211\211\211\211\211<=>?\314 \210>\310V\203\215\315@\313\316#\203\215\314 \210\317\313w\210A\203]�`AV\203]�A\202^�eB\320\321B`\"8)\2045�A\203|�`AV\203|�A\202}�eB\322\321B`\"8)\2045�\323\324@\325Q!\203\251�\326\312!\326\327!D=B=>T\211>\2027�\323\330!\203\271�\326\320!\326\327!D\206\323\331!\203\311�\326\320!\326\327!D\206\212\323\332!\205\351�\310\225b\205\351�\323\333!?\205\351�\323\334!\206\351�\335\336\337 \307#)\203\365�\340\326\312!D\202\323\341!\203\326\312!\313D\202\323\342!\203\326\312!\313D\206\323\343!\203\326\312!C\206\323\344!\203.\326\312!\326\327!D\202W\323\345!\204D\323\346!\203D\326\312!\326\327!D\202W\323\347!\204Z\323\350!\203Z\326\312!\326\327!D\206\212\323\351!\205\343\326\320!\326\327!\352`\312\310#CDEC\203{Cb\210\353\313w\210\323\354!\204\335\212\314 \210\323\355!\203\226\356\357y!\204\211\313\210A\203\252`AV\203\252A\202\253eB\322\321B`\"8)\203\305\360\361\362 \"\210\361\313x\210\202\231\353\313x\210h\363U)\205\342\364 \210\365\313w\210\323\354!\205\342EDD+)\206\212\323\366!\205\326\320!\326\327!\352`\312\310#CDEC\203Cb\210\353\313w\210\323\367!\205EDD+)\211\2035�@\211FA@)>S>=\2035�=@<=A=<@<\211FA@)\n
G\211H\205WH\227G\205_G\227\232*\204j\370\371\n
#\210	\fG\211H\205wH\227G\205G\227\232*\2045�\370\372	\f#\210\2025�>\310V\205\227\370\373!.	\207" [num start-label start-type start-this end-label end-type push-mark t 0 f90-end-of-block 1 nil beginning-of-line re-search-backward move " 	0-9" 3 parse-partial-sexp 4 looking-at "end[ 	]*" "[ 	]*\$\\sw+\$?" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists " 	" "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" error "Start type `%s' does not match end type `%s'" "Start label `%s' does not match end label `%s'" "Missing block start" end-this end-list count case-fold-search f90-blocks-re f90-cache-position beg-pnt pos label struct x b a] 10 (#$ . 55207) "p"])
#@193 Move point forward to the next end or start of a code block.
With optional argument NUM, go forward that many blocks.
If NUM is negative, go backwards.
A block is a subroutine, if-endif, etc.
(defalias 'f90-next-block #[(&optional num) "\306\203�\307!\202\f�\310	\311V\205\356\311V\203\"�\312\313\314#\202'�\315\313\314#\205\356\316 \210\317\313w\210\f\203?�`\fV\203?�\f\202@�e\320\321
`\"8)\204\334\f\203Y�`\fV\203Y�\f\202Z�e\322\321
`\"8)\204\334\323\324!\204\331\323\325!\203{�\326\320!\326\327!D\204\331\323\330!\203\213�\326\320!\326\327!D\204\331\212\323\331!\205\253�\311\225b\205\253�\323\332!?\205\253�\323\333!\206\253�\312\334\335 \306#)\203\267�\336\326\310!D\202\320�\323\337!\203\305�\326\310!\313D\202\320�\323\340!\203\323�\326\310!\313D\204\331\323\341!\203\340�\326\310!C\204\331\323\342!\203\360�\326\310!\326\327!D\202\323\343!\204\323\344!\203\326\310!\326\327!D\202\323\345!\204\323\346!\203\326\310!\326\327!D\204\331\212\323\347!\205\240\326\320!\326\327!\350`\310\311#6786\203=6b\210\351\313w\210\323\352!\204\232\212\316 \210\323\353!\203X\354\355y!\204K\313\210\f\203i`\fV\203i\f\202je\322\321
`\"8)\203\202\356\357\360 \"\210\357\313x\210\202[\351\313x\210h\361U)\205\237\362 \210\363\313w\210\323\352!\205\23787D+)\204\331\212\323\364!\205\325\326\320!\326\327!\350`\310\311#6786\203\3056b\210\351\313w\210\323\365!\205\32487D+)\203\334	S\311V\203\350\313\210\202�\316 \210\202�*\207" [num count case-fold-search f90-blocks-re f90-cache-position beg-pnt t abs 1 0 re-search-forward nil move re-search-backward beginning-of-line " 	0-9" 3 parse-partial-sexp 4 looking-at "end[ 	]*" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists " 	" "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" line-beginning-position 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" pos label struct] 6 (#$ . 58367) "p"])
#@198 Move point backward to the previous end or start of a code block.
With optional argument NUM, go backward that many blocks.
If NUM is negative, go forwards.
A block is a subroutine, if-endif, etc.
(defalias 'f90-previous-block #[(&optional num) "\301\206�\302[!\207" [num f90-next-block 1] 2 (#$ . 60862) "p"])
#@67 Put mark at end of F90 subprogram, point at beginning, push mark.
(defalias 'f90-mark-subprogram #[nil "`\304\305 \210\306 \210	b\210\307 \310\304*\207" [program pos mark-active deactivate-mark nil f90-end-of-subprogram push-mark f90-beginning-of-subprogram t] 2 (#$ . 61181) nil])
#@163 Comment/uncomment every line in the region.
Insert the variable `f90-comment-region' at the start of every line
in the region, or, if already present, remove it.
(defalias 'f90-comment-region #[(beg-region end-region) "\304!\nb\210\305 \210\306\307!!\203�`\310\225|\210\202�c\210\311\312y!\203@�`	W\203@�\306\307!!\203:�`\310\225|\210\202�c\210\202�	\313\211\223)\207" [end-region end beg-region f90-comment-region copy-marker beginning-of-line looking-at regexp-quote 0 zerop 1 nil] 3 (#$ . 61476) "*r"])
#@121 Indent current line as F90 code.
Unless optional argument NO-UPDATE is non-nil, call `f90-update-line'
after indenting.
(defalias 'f90-indent-line #[(&optional no-update) "\306\307 \310\211\311 \210\212\312 \205U�\212\311 \210\313\314!\203#�\315\316y!\204�\310\210\f\2034�`\fV\2034�\f\2025�e\317\320
`\"8)\203M�\321\322\323 \"\210\322\310x\210\202&�\324\310x\210h\325U))\204n�$\204g�\313\326!\203g�\327 \210\330\310w\210\202t�\306\324\310w\210\313\322!\203\316�\313\331!\203\204�\332\202\312�%\203\224�\313%!\203\224�\332\202\312�\313\333&!!\203\241�\332\202\312�\313'!\203\267�\212\324\310x\210n)\203\267�\334 \202\312�\212\324\310x\210n\203\304�\332\202\306�iT(])\202\337�)\203\334�\313\335!\203\334�\336 \210\334 	iU\204		*\311 \210\204\365�\330\310w\210\327 \210\337*\315i!\203\332\202\340\"\210*`\nW\203\nb\210+\203\341 \210\2020,\2040-\2030\342-\323 \343 #\210\n\310\211\223,\207" [no-line-number indent pos case-fold-search f90-cache-position beg-pnt t point-marker nil beginning-of-line f90-previous-statement looking-at "[ 	]*\$!\\|$\$" zerop -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 "[ 	]+[0-9]" delete-horizontal-space " 	0-9" "!!!" 0 regexp-quote f90-calculate-indent "end" f90-match-end indent-to 1 f90-do-auto-fill f90-change-keywords line-end-position f90-leave-line-no f90-directive-comment-re f90-comment-region f90-indented-comment-re comment-column f90-smart-end col auto-fill-function no-update f90-auto-keyword-case] 4 (#$ . 61999) "*P"])
#@199 Re-indent current line, insert a newline and indent the newline.
An abbrev before point is expanded if the variable `abbrev-mode' is non-nil.
If run in the middle of a line, the line is not broken.
(defalias 'f90-indent-new-line #[nil "\203�\306 \210\307 \210\310 \210\311\210\312 \210	\203!�`	V\203!�	\202\"�e\313\314\n`\"8)\212\307 \210\315\316!\203;�\317\320y!\204.�\311\210	\203L�`	V\203L�	\202M�e\321\314\n`\"8)\203e�\322\323\324 \"\210\323\311x\210\202>�\325\311x\210h\326U)\211\203z�\204z�\327c\210\330 \210\f\204\211�\203\214�
\203\214�\327c\210*\310\331!\207" [abbrev-mode f90-cache-position beg-pnt cont string f90-beginning-ampersand expand-abbrev beginning-of-line f90-indent-line nil delete-horizontal-space 3 parse-partial-sexp looking-at "[ 	]*\$!\\|$\$" zerop -1 4 search-backward "!" line-beginning-position " 	" 38 "&" newline no-update] 6 (#$ . 63541) "*"])
#@49 Indent every line in region by forward parsing.
(defalias 'f90-indent-region #[(beg-region end-region) "\306!\307 \310\311\211\211\211\211\211\211\211@ABCDEFb\210\312 \210\313\314!\203>�\315\316!\210\317\320y!\203>�`EW\204&�\311\211G\212\321 \205\221�\212\312 \210\313\322!\203Z�\317\323y!\204M�\311\210H\203n�`HV\203n�H\202o�eI\324\325I`\"8)\203\211�\326\327\330 \"\210\327\311x\210\202]�\331\311x\210h\332U)G)\212\312 \210\313\322!\203\245�\317\323y!\204\230�\311\210H\203\271�`HV\203\271�H\202\272�eI\324\325I`\"8)\203\324�\326\327\330 \"\210\327\311x\210\202\250�\331\311x\210h\332U)G\204\352�\f\204\352�\333\202G\204\367�\f\203\367�\334\202G\203\f\204\335\202G\203\f\203\336\202\337\340!*\211\336=\204\"\f\335=\203\321 \203\311\211G\212\321 \205z\212\312 \210\313\322!\203C\317\323y!\2046\311\210H\203W`HV\203WH\202XeI\324\325I`\"8)\203r\326\327\330 \"\210\327\311x\210\202F\331\311x\210h\332U)G)\212\312 \210\313\322!\203\216\317\323y!\204\201\311\210H\203\242`HV\203\242H\202\243eI\324\325I`\"8)\203\275\326\327\330 \"\210\327\311x\210\202\221\331\311x\210h\332U)G\204\323\f\204\323\333\202\375G\204\340\f\203\340\334\202\375G\203\355\f\204\355\335\202\375G\203\372\f\203\372\336\202\375\337\340!*\211\202`H\315\316!\210\212\312 \210\341\311w)\211A@\312 \210\341\311w\210\311\313\342!\205-\343\344!\343\345!D\211\2037J\202\301\212\313\346!\205\276\343\344!\343\345!\347`\320\350#KLK\203WKb\210\331\311w\210\313\351!\204\271\212\312 \210\313\322!\203r\317\323y!\204e\311\210H\203\206`HV\203\206H\202\207eI\324\325I`\"8)\203\241\326\327\330 \"\210\327\311x\210\202u\331\311x\210h\332U)\205\275\352 \210\353\311w\210\313\351!\205\275LD+)\211\204\313\354!\205\321\343\344!\343\345!D\211\204\212\313\355!\205\343\344!\343\345!\347`\320\350#KLK\203\366Kb\210\331\311w\210\313\356!\205LD+)\211\204\313M!\203N\202\301\212\313\357!\2057\350\225b\2057\313\360!?\2057\313\361!\2067\362\363\364 \310#)\203C\365\343\320!D\202\\\313\366!\203Q\343\320!\311D\202\\\313\367!\205\\\343\320!\311D\211\203fO\202\301\313\370!\205p\343\320!C\211\203zP\202\301\313\371!\203\212\343\320!\343\345!D\202\264\313\372!\204\240\313\373!\203\240\343\320!\343\345!D\202\264\313\374!?\205\264\313\375!\205\264\343\320!\343\345!D\211\204\277\313\376!\205\301Q\211\203\314A
\\A\203\326BBB\212\312 \210\313\322!\203\347\317\323y!\204\332\311\210H\203\373`HV\203\373H\202\374eI\324\325I`\"8)\203\326\327\330 \"\210\327\311x\210\202\352\331\311x\210h\332U)\203\367\317\320y!\203\367`EW\203\367\313\377!\203\267\313\201c�!\203A\350\202\213R\203Q\313R!\203Q\350\202\213\313\201d�S!!\203`\350\202\213\313T!\203x\212\331\311x\210n)\203x\201e� \202\213\212\331\311x\210n\203\205\350\202\207iTU])\311VW\312 \210V\204\234\341\311w\210\201f� \210\201g�W\317i!\203\260\350\202\261\320\"\210*\202\326\201h� @X\\U\204\326@X\\\201i�VW\312 \210V\204\334\341\311w\210\201f� \210\201g�W\317i!\203\360\350\202\361\320\"\210*\202\326\317\320y!\203\237	`EW\203\237	\312 \210Y\204\313\201j�!\203\201f� \210\341\311w\210`H\313\201k�!\203/\350@\202L\313\201l�!\203=\350@\202L\313\327!\203\236\313\201c�!\203O\350\202\231R\203_\313R!\203_\350\202\231\313\201d�S!!\203n\350\202\231\313T!\203\206\212\331\311x\210n)\203\206\201e� \202\231\212\331\311x\210n\203\223\350\202\225iTU])@\202L\212\313\201m�!\206\316\313\201n�!\206\316\313\201o�!\206\316\313\201p�!\206\316\313Z!\206\316\362\201q�\364 \310#)\204\331A@\202L\313M!\203\352ANZ@\202L\313\376!\203\372AQZ@\202L\313\342!\205\343\344!\343\345!D\211\203J\202\216\212\313\346!\205\230\343\344!\343\345!\347`\320\350#KLK\2031Kb\210\331\311w\210\313\351!\204\223\212\312 \210\313\322!\203L\317\323y!\204?\311\210H\203``HV\203`H\202aeI\324\325I`\"8)\203{\326\327\330 \"\210\327\311x\210\202O\331\311x\210h\332U)\205\227\352 \210\353\311w\210\313\351!\205\227LD+)\211\204\345\313\354!\205\253\343\344!\343\345!D\211\204\345\212\313\355!\205\337\343\344!\343\345!\347`\320\350#KLK\203\320Kb\210\331\311w\210\313\356!\205\336LD+)\211\203\352N\202\216\212\313\357!\205\n\350\225b\205\n\313\360!?\205\n\313\361!\206\n\362\363\364 \310#)\203\365\343\320!D\202/\313\366!\203$\343\320!\311D\202/\313\367!\205/\343\320!\311D\211\2039O\202\216\313\370!\205C\343\320!C\211\203MP\202\216\313\371!\203]\343\320!\343\345!D\202\207\313\372!\204s\313\373!\203s\343\320!\343\345!D\202\207\313\374!?\205\207\313\375!\205\207\343\320!\343\345!D\211\205\216Q\211\203\252A@
\203\241A
\\ABBB\202L\313\201r�[\201s�Q!\205\277\343\320!\343\344!D\211\203HB@BAB\\\203\353\212\201t�\n@\n\211]A@)	@	\211]A@)$\210)\313^!\203\367N\2026\313\201u�!\203J\2026\313_!\203O\2026\313`!\203P\2026\313\201r�[\201s�Q!\2056\343\320!\343\344!D\2056Q\211\203AA
ZAA@\202LA@@iU\204~@\311VW\312 \210V\204f\341\311w\210\201f� \210\201g�W\317i!\203z\350\202{\320\"\210*\212\312 \210\313\322!\203\217\317\323y!\204\202\311\210H\203\243`HV\203\243H\202\244eI\324\325I`\"8)\203\276\326\327\330 \"\210\327\311x\210\202\222\331\311x\210h\332U)\203\367\317\320y!\203\367`EW\203\367\313\377!\203_	\313\201c�!\203\351\350\2023	R\203\371\313R!\203\371\350\2023	\313\201d�S!!\203	\350\2023	\313T!\203 	\212\331\311x\210n)\203 	\201e� \2023	\212\331\311x\210n\203-	\350\202/	iTU])\311VW\312 \210V\204D	\341\311w\210\201f� \210\201g�W\317i!\203X	\350\202Y	\320\"\210*\202~\201h� @X\\U\204~@X\\\201i�VW\312 \210V\204\204	\341\311w\210\201f� \210\201g�W\317i!\203\230	\350\202\231	\320\"\210*\202~\311HDb\210E\311\211\223\210D\311\211\223\210a\205\360	a\201v�=\204\320	a\242\201w�=\203\327	aA\204\327	\311\211a\202\360	a\242\201w�=\203\346	aAa\311b\201x�\201y�!.\207" [end-region end-struct beg-struct struct cont ind-b copy-marker point-marker t nil beginning-of-line looking-at "[ 	]*[0-9]*\$!\\|#\\|[ 	]*$\$" f90-indent-line no-update zerop 1 f90-previous-statement "[ 	]*\$!\\|$\$" -1 4 parse-partial-sexp search-backward "!" line-beginning-position " 	" 38 single begin end middle error "The impossible occurred" " 	0-9" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" match-string 3 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists 0 "then\\>" f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" "contains[ 	]*\$$\\|!\$" "[ 	]*!" ind-curr ind-lev block-list case-fold-search save-point end-region-mark beg-region pcont f90-cache-position beg-pnt f90-do-indent pos label f90-else-like-re f90-if-indent f90-type-indent f90-associate-indent f90-program-indent f90-directive-comment-re f90-comment-region f90-indented-comment-re comment-column no-line-number col f90-continuation-indent f90-leave-line-no f90-type-def-re f90-blocks-re f90-smart-end x f90-end-if-re f90-end-type-re f90-end-associate-re transient-mark-mode mark-active "!!!" regexp-quote f90-calculate-indent delete-horizontal-space indent-to current-indentation no-line-no "[ 	]+[0-9]" "[ 	]*$" "[ 	]*#" "end" "\$do\\|if\\|else\\(if\\|where\$?\\|select[ 	]*\$case\\|type\$\\|case\\|where\\|forall\\)\\>" "\$program\\|module\\|\\(?:abstract[ 	]*\$?interface\\|block[ 	]*data\\)\\>" "\$contains\\|\\sw+[ 	]*:\$" "\$function\\|subroutine\$" "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" f90-block-match "end[ 	]*do\\>" lambda only run-hooks deactivate-mark-hook] 12 (#$ . 64436) "*r"])
#@50 Properly indent the subprogram containing point.
(defalias 'f90-indent-subprogram #[nil "\212\302 \211\203)�\303\304@\211A@)#\210\305`\306 \307#\210\303\310@\211A@)#\2027�\303\311!\210\305`\306 \307#\210\303\312!*\207" [program x f90-mark-subprogram message "Indenting %s %s..." indent-region mark nil "Indenting %s %s...done" "Indenting the whole file..." "Indenting the whole file...done"] 5 (#$ . 72585) "*"])
#@209 Break line at point, insert continuation marker(s) and indent.
Unless in a string or comment, or if the optional argument NO-UPDATE
is non-nil, call `f90-update-line' after inserting the continuation marker.
(defalias 'f90-break-line #[(&optional no-update) "\203�`V\203�\202�e\305\306	`\"8)\203 �\307c\210\202\256�\203.�`V\203.�\202/�e\310\306	`\"8)\203\220�\311\312!\210\313\212\203N�`V\203N�\202O�e\310\306	`\"8)\205\211�\314 \210\315\316\317 \"\210\203q�`V\203q�\202r�e\305\306	`\"8)\203\206�\315\316\317 \"\210\202c�\320\321!)\261\210\202\256�\322c\210\n\204\243�\203\243�\323\324 \317 #\210\325\326!\210\f\203\256�\322c\210\327 \207" [f90-cache-position beg-pnt no-update f90-auto-keyword-case f90-beginning-ampersand 3 parse-partial-sexp "&\n&" 4 delete-horizontal-space backwards "\n" beginning-of-line re-search-forward "!+[ 	]*" line-end-position match-string-no-properties 0 "&" f90-change-keywords line-beginning-position newline 1 indent-according-to-mode] 5 (#$ . 73012) "*P"])
#@58 From `fill-column', search backward for break-delimiter.
(defalias 'f90-find-breakpoint #[nil "\303\304 \"\210	\204�\305\n!\203�\306\202�\307u\207\310u\210\305\n!\206\"�\311u\207" [f90-break-delimiters f90-break-before-delimiters f90-no-break-re re-search-backward line-beginning-position looking-at 2 1 -1 nil] 3 (#$ . 74032)])
#@85 Break line if non-white characters beyond `fill-column'.
Update keyword case first.
(defalias 'f90-do-auto-fill #[nil "\203\f�\306\307 \310 #\210\311\301!\205.�	\205.�\n\203$�`\nV\203$�\n\202%�e\312\313`\"8)??\205k�i\fV\205k�\314 \315\f!\210\n\203M�`\nV\203M�\n\202N�e\316\313`\"8)\204\\�\317 \210\320 \210
b\210
\321\211\223\210)\2022�\207" [f90-auto-keyword-case comment-auto-fill-only-comments f90-cache-position beg-pnt fill-column pos-mark f90-change-keywords line-beginning-position line-end-position boundp 4 parse-partial-sexp point-marker move-to-column 3 f90-find-breakpoint f90-break-line nil] 4 (#$ . 74371) "*"])
#@179 Join current line to previous, fix whitespace, continuation, comments.
With optional argument ARG, join current line to following line.
Like `join-line', but handles F90 syntax.
(defalias 'f90-join-lines #[(&optional arg) "\303 \210\203\n�\304y\210h\305=\205t�\306\307w\210\310\311!\203�\312\304!\210\303 \210``S|\210\306\307x\210h\313=\2034�\312\314!\210	\203B�`	V\203B�	\202C�e\315\316\n`\"8)\203X�\310\317!\203X�\320\321!\210	\203f�`	V\203f�	\202g�e\322\316\n`\"8)\206t�\323 \207" [arg f90-cache-position beg-pnt beginning-of-line 1 10 " 	" nil looking-at "&" delete-char 38 -1 4 parse-partial-sexp "[ 	]*!+" replace-match "" 3 fixup-whitespace] 4 (#$ . 75011) "*P"])
#@72 Fill every line in region by forward parsing.  Join lines if possible.
(defalias 'f90-fill-region #[(beg-region end-region) "\306!\307\310\211\211b\210\f\203T�\310\210\311\310x\210h\312=\203(�\313\314!\210\202�\212\310\210i)V\203C�\315!\210\316 \210\317\320!\210\202(�`
W\205M�\321\322y!`\202�\310
\310\211\223\210\205\220�\323=\204v�\242\324=\203}�A\204}�\310\211\202\220�\242\324=\203\212�A\310\325\326!-\207" [end-region auto-fill-function f90-auto-keyword-case f90-smart-end go-on end-region-mark copy-marker t nil " 	" 38 f90-join-lines forward move-to-column f90-find-breakpoint f90-break-line no-update zerop 1 lambda only run-hooks deactivate-mark-hook beg-region fill-column f90-cache-position transient-mark-mode mark-active] 5 (#$ . 75692) "*r"])
#@332 Match end-struct with beg-struct and complete end-block if possible.
BEG-BLOCK is the type of block as indicated at the start (e.g., do).
BEG-NAME is the block start name (may be nil).
END-BLOCK is the type of block as indicated at the end (may be nil).
END-NAME is the block end name (may be nil).
Leave point at the end of line.
(defalias 'f90-block-match #[(beg-block beg-name end-block end-name) "\204�\301\302\303\304 \"\210\305\306\215\207" [beg-block "program" search-forward "end" line-end-position no-match (byte-code "\203 �	\211\205�\227\n\205�\n\227\232*\203 �\306!\210\202?�\2035�\307\310	#\210\311\210\312\313\311\"\210\202?�\307\314	\"\210\315	Pc\210\f
\211\205I�\227\n\205O�\n\227\232*\203_�
\203\242�\306
!\210\202\242�\f\203t�
\204t�\307\314\f\"\210\315\fPc\210\202\242�\f\203\215�
\203\215�\307\316
\f#\210\306
!\210\317\f!\210\202\242�\f\204\242�
\203\242�\307\320
\"\210\306
!\210\317\321!\210\322\323!\206\252�\324 \207" [end-block beg-block b a beg-name end-name search-forward message "END %s does not match %s." nil throw no-match "Inserting %s." " " "Replacing %s with %s." replace-match "Deleting %s." "" looking-at "[ 	]*!" delete-horizontal-space] 5)] 3 (#$ . 76496)])
#@69 From an end block statement, find the corresponding block and name.
(defalias 'f90-match-end #[nil "\306\307 `\310\311\211\211\211\211\211@ABC\212\312 \210\313\311w\210\314\315D\316Q!\2052�\317\306!\317\320!D\211)\205\221@\211EA@)\212\312 \210C\321V\203<\322 eU\204<\323D\311\324#\210\312 \210\313\311w\210F\203t�`FV\203t�F\202u�eG\320\325G`\"8)\204G�F\203\223�`FV\203\223�F\202\224�eG\326\325G`\"8)\204G�\314\327!\203\261�\317\320!\317\330!D\206\212\314\331!\205:\317\320!\317\330!\332`\306\321#HIJH\203\322�Hb\210\333\311w\210\314\334!\2044\212\312 \210\314\335!\203\355�\336\337y!\204\340�\311\210F\203`FV\203F\202eG\326\325G`\"8)\203\340\341\322 \"\210\341\311x\210\202\360�\333\311x\210h\342U)\2059\343 \210\344\311w\210\314\334!\2059JID+)\206\212\314\345!\205o\317\320!\317\330!\332`\306\321#HIJH\203_Hb\210\333\311w\210\314\346!\205nJID+)\206\314\347!\203\203\317\320!\317\330!D\206\212\314\350!\205\243\321\225b\205\243\314\351!?\205\243\314\352!\206\243\353\354\355 \310#)\203\257\356\317\306!D\202\310\314\357!\203\275\317\306!\311D\202\310\314\360!\203\313\317\306!\311D\206\314\361!\203\330\317\306!C\206\314\362!\203\350\317\306!\317\330!D\202\314\363!\204\376\314\364!\203\376\317\306!\317\330!D\202\314\365!\204\314\366!\203\317\306!\317\330!D\206\322 eU\205\367\211\203*CS\211C\202I�\314\315DP!\203G�CT\211C\202I�C\321V\203I\370\371!\202\220K\203W\372K\322 \355 #\210L\373=\203x`BW\203s\370\374\375 \322 \355 {#\210\202x\376M!\210
@
\211EA@)Ab\210\312 \210\377\n\f	$).\n\207" [end-struct end-block beg-block end-name beg-name matching-beg 1 window-start t nil beginning-of-line " 	0-9" looking-at "end[ 	]*" "?\$[ 	]+\\(\\sw+\$\\)?\\>" match-string 3 0 line-beginning-position re-search-backward move parse-partial-sexp 4 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$do\$\\>" 2 "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$if\$\\>" scan-lists " 	" "then\\>" "[ 	]*\$!\\|$\$" zerop -1 search-backward "!" 38 f90-next-statement " 	0-9&" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$where\\|forall\$\\>" "\$!\\|$\$" "\$\\(\\sw+\$[ 	]*:\\)?[ 	]*\$select\$[ 	]*\$case\\|type\$[ 	]*(" "\\<type\\>[ 	]*" "\$is\\>\\|(\$" "\$\\sw+\$" re-search-forward "[ 	]*::[ 	]*\$\\sw+\$" line-end-position "type" "\$enum\\|interface\\|block[ 	]*data\$\\>" "abstract[ 	]*\$interface\$\\>" "\\<\$associate\$[ 	]*(" "\$program\$[ 	]+\$\\sw+\$\\>" "module[ 	]*procedure\\>" "\$module\$[ 	]+\$\\sw+\$\\>" "end[ 	]*\$function\\|subroutine\$" "[^!'\"&\n]*\$function\\|subroutine\$[ 	]+\$\\sw+\$" ("program" nil) message "No matching beginning." f90-change-keywords blink "Matches %s: %s" what-line sit-for f90-block-match case-fold-search end-point top-of-window count f90-blocks-re x f90-cache-position beg-pnt pos label struct f90-auto-keyword-case f90-smart-end blink-matching-delay] 11 (#$ . 77717) nil])
#@70 Insert a complete end statement matching beginning of present block.
(defalias 'f90-insert-end #[nil "\206�\301\302c\210\303 )\207" [f90-smart-end blink "end" f90-indent-new-line] 1 (#$ . 80654) "*"])
#@106 Typing `\[help-command] or `? lists all the F90 abbrevs.
Any other key combination is executed normally.
(defalias 'f90-abbrev-start #[nil "c\210\306\211\307\310!\203�\310 \307\311!\205�\311	!\202\"�\312 \211\2037�\n\313=\2042�\n\f=\2037�\314 \202;�	C\211*\207" [last-command-event event char abbrev-mode help-char unread-command-events nil fboundp next-command-event event-to-character read-event 63 f90-abbrev-help] 3 (#$ . 80865) "*"])
#@49 List the currently defined abbrevs in F90 mode.
(defalias 'f90-abbrev-help #[nil "\300\301!\210\302\303 !\210\300\304!\207" [message "Listing abbrev table..." display-buffer f90-prepare-abbrev-list-buffer "Listing abbrev table...done"] 2 (#$ . 81321) nil])
#@53 Create a buffer listing the F90 mode abbreviations.
(defalias 'f90-prepare-abbrev-list-buffer #[nil "r\300\301!q\210\302 \210\303\304\305\"\210eb\210\306\307!\210\310 \210)\300\301!\207" [get-buffer-create "*Abbrevs*" erase-buffer insert-abbrev-table-description f90-mode-abbrev-table t set-buffer-modified-p nil edit-abbrevs-mode] 3 (#$ . 81584)])
#@40 Upcase all F90 keywords in the buffer.
(defalias 'f90-upcase-keywords #[nil "\300\301!\207" [f90-change-keywords upcase-word] 2 (#$ . 81939) "*"])
#@44 Capitalize all F90 keywords in the buffer.
(defalias 'f90-capitalize-keywords #[nil "\300\301!\207" [f90-change-keywords capitalize-word] 2 (#$ . 82092) "*"])
#@42 Downcase all F90 keywords in the buffer.
(defalias 'f90-downcase-keywords #[nil "\300\301!\207" [f90-change-keywords downcase-word] 2 (#$ . 82257) "*"])
#@40 Upcase all F90 keywords in the region.
(defalias 'f90-upcase-region-keywords #[(beg end) "\302\303	#\207" [beg end f90-change-keywords upcase-word] 4 (#$ . 82416) "*r"])
#@44 Capitalize all F90 keywords in the region.
(defalias 'f90-capitalize-region-keywords #[(beg end) "\302\303	#\207" [beg end f90-change-keywords capitalize-word] 4 (#$ . 82593) "*r"])
#@42 Downcase all F90 keywords in the region.
(defalias 'f90-downcase-region-keywords #[(beg end) "\302\303	#\207" [beg end f90-change-keywords downcase-word] 4 (#$ . 82782) "*r"])
#@150 Change the case of F90 keywords in the region (if specified) or buffer.
CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word.
(defalias 'f90-change-keywords #[(change-word &optional beg end) "\212\206�e	\206\f�d\306\n\307\307\f\307
\310\260	e\311 \312\211\211b\210\313\216\314	\315#\205\203�\316`\"\3178\204/�\3208\204/�\212\321 \210\322\312w\210\323\324!)\204/�`\212\325v\210`)\211{\325!\210{\230\204/�\315\202/�.\207" [beg end f90-keywords-re f90-procedures-re f90-hpf-keywords-re f90-operators-re "\$" "\\|" "\$" buffer-modified-p nil ((byte-code "\204�\301\302!\210\302\207" [modified restore-buffer-modified-p nil] 2)) re-search-forward t parse-partial-sexp 3 4 beginning-of-line " 	0-9" looking-at "#" -1 back-point saveword state modified ref-point keyword-re change-word] 10 (#$ . 82966)])
#@67 Function to use for `add-log-current-defun-function' in F90 mode.
(defalias 'f90-current-defun #[nil "\212\300 A@)\207" [f90-beginning-of-subprogram] 1 (#$ . 83844)])
#@219 Make the backslash character (\) be non-special in the current buffer.
With optional argument ALL, change the default for all present
and future F90 buffers.  F90 mode normally treats backslash as an
escape character.
(defalias 'f90-backslash-not-special #[(&optional all) "\302=\204\n�\303\304!\210\305z\305\232\205 �	\204�\306\307\310 !!\210\311\305\312\"\207" [major-mode all f90-mode error "This function should only be used in F90 buffers" 92 set-syntax-table copy-syntax-table syntax-table modify-syntax-entry "."] 3 (#$ . 84018)])
(provide 'f90)

${this.title}

Code Editor : f90.elc