blob: eaca9f80b2f3813a6d267b4ddedad8bf1476ac66 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.27.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20	imizations...;;;.This.file.uses.
0060	64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20	dynamic.docstrings,.first.added.
0080	69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64	in.Emacs.19.29...;;;.This.file.d
00a0	6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20	oes.not.contain.utf-8.non-ASCII.
00c0	63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 6c 6f	characters,.;;;.and.so.can.be.lo
00e0	61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 20 74	aded.in.Emacs.versions.earlier.t
0100	68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	han.23...;;;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	;;;;;;;;;;;;;;;;...(byte-code."\
01a0	33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c 33 30	300\301!\210\300\302!\210\300\30
01c0	33 21 5c 32 31 30 5c 33 30 30 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c	3!\210\300\304!\210\305\306\307\
01e0	22 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 6f 62 20 6f 72 67 2d 6d 61 63 73 20 63 63 2d 6d	"\207".[require.ob.org-macs.cc-m
0200	6f 64 65 20 63 6c 2d 6c 69 62 20 61 64 64 2d 74 6f 2d 6c 69 73 74 20 6f 72 67 2d 62 61 62 65 6c	ode.cl-lib.add-to-list.org-babel
0220	2d 74 61 6e 67 6c 65 2d 6c 61 6e 67 2d 65 78 74 73 20 28 22 66 6f 72 74 72 61 6e 22 20 2e 20 22	-tangle-lang-exts.("fortran"..."
0240	46 39 30 22 29 5d 20 33 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 64 65 66 61	F90")].3).(defvar.org-babel-defa
0260	75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 66 6f 72 74 72 61 6e 20 6e 69 6c 29 0a 28 62 79	ult-header-args:fortran.nil).(by
0280	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 44 44 5c	te-code."\300\301\302\303\304DD\
02a0	33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 09 5c 32 30	305\306\307\310\311\312\313&.\20
02c0	37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 6f 72 67 2d	7".[custom-declare-variable.org-
02e0	62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 63 6f 6d 70 69 6c 65 72 20 66 75 6e 63 61 6c 6c 20 66	babel-fortran-compiler.funcall.f
0300	75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 23 31 3d 22 67 66 6f 72	unction.#[0."\300\207".[#1="gfor
0320	74 72 61 6e 22 5d 20 31 20 23 31 23 5d 20 22 46 6f 72 74 72 61 6e 20 63 6f 6d 6d 61 6e 64 20 75	tran"].1.#1#]."Fortran.command.u
0340	73 65 64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 46 6f 72 74 72 61 6e 20 73 6f 75 72 63 65 20 63 6f	sed.to.compile.Fortran.source.co
0360	64 65 20 66 69 6c 65 2e 22 20 3a 67 72 6f 75 70 20 6f 72 67 2d 62 61 62 65 6c 20 3a 70 61 63 6b	de.file.".:group.org-babel.:pack
0380	61 67 65 2d 76 65 72 73 69 6f 6e 20 28 4f 72 67 20 2e 20 22 39 2e 35 22 29 20 3a 74 79 70 65 20	age-version.(Org..."9.5").:type.
03a0	73 74 72 69 6e 67 5d 20 31 30 29 0a 23 40 38 37 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73	string].10).#@87.This.function.s
03c0	68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 63 61 6c 6c 65 64 20 62 79 20 60 6f 72 67 2d 62 61 62	hould.only.be.called.by.`org-bab
03e0	65 6c 2d 65 78 65 63 75 74 65 3a 66 6f 72 74 72 61 6e 27 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50	el-execute:fortran'...(fn.BODY.P
0400	41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65	ARAMS)..(defalias.'org-babel-exe
0420	63 75 74 65 3a 66 6f 72 74 72 61 6e 20 23 5b 35 31 34 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34	cute:fortran.#[514."\302\303\304
0440	5c 22 5c 33 30 32 5c 33 30 35 08 5c 22 5c 33 30 36 03 5c 32 33 36 41 5c 33 30 37 04 5c 32 33 36	\"\302\305.\"\306.\236A\307.\236
0460	41 5c 33 31 30 06 06 06 06 5c 22 04 5c 33 31 31 5c 33 31 32 21 5c 33 31 33 5c 33 31 34 5c 33 31	A\310....\".\311\312!\313\314\31
0480	35 5c 33 31 36 5c 33 31 37 05 21 5c 33 32 30 5c 22 5c 33 32 31 24 5c 32 31 36 72 5c 32 31 31 71	5\316\317.!\320\"\321$\216r\211q
04a0	5c 32 31 30 02 63 5c 32 31 30 29 72 5c 32 31 31 71 5c 32 31 30 5c 33 32 32 5c 33 32 33 5c 32 31	\210.c\210)r\211q\210\322\323\21
04c0	31 04 5c 33 32 33 5c 33 31 34 25 5c 32 31 30 2a 5c 32 36 36 02 5c 33 32 34 5c 33 32 35 5c 33 32	1.\323\314%\210*\266.\324\325\32
04e0	36 09 5c 33 32 37 06 08 21 5c 33 33 30 5c 33 33 31 06 08 3c 5c 32 30 33 52 00 06 08 5c 32 30 32	6.\327..!\330\331..<\203R...\202
0500	55 00 06 08 43 5c 33 33 32 23 5c 33 32 37 06 0b 21 25 5c 33 33 33 5c 22 5c 32 31 30 5c 33 33 34	U...C\332#\327..!%\333\"\210\334
0520	5c 33 32 34 05 05 5c 32 30 33 6d 00 5c 33 33 32 06 06 50 5c 32 30 32 6e 00 5c 33 33 33 50 5c 33	\324..\203m.\332..P\202n.\333P\3
0540	33 33 5c 22 21 5c 33 32 33 5c 33 33 35 01 5c 32 30 33 7c 00 5c 33 33 36 5c 32 30 32 7d 00 5c 33	33\"!\323\335.\203|.\336\202}.\3
0560	33 37 5c 33 33 33 5c 33 33 35 5c 33 34 30 5c 33 33 33 06 07 23 23 5c 32 36 36 5c 32 30 32 5c 33	37\333\335\340\333..##\266\202\3
0580	34 31 5c 33 34 32 06 08 5c 32 33 36 41 5c 33 34 33 01 5c 32 33 35 3f 5c 32 30 35 0b 01 5c 33 34	41\342..\236A\343.\235?\205..\34
05a0	34 01 5c 32 33 35 5c 32 30 34 5c 33 32 36 00 5c 33 34 35 01 5c 32 33 35 5c 32 30 34 5c 33 32 36	4.\235\204\326.\345.\235\204\326
05c0	00 5c 33 34 36 01 5c 32 33 35 5c 32 30 34 5c 33 32 36 00 5c 33 34 37 01 5c 32 33 35 5c 32 30 34	.\346.\235\204\326.\347.\235\204
05e0	5c 33 32 36 00 5c 33 35 30 01 5c 32 33 35 5c 32 30 34 5c 33 32 36 00 5c 33 35 31 01 5c 32 33 35	\326.\350.\235\204\326.\351.\235
0600	5c 32 30 34 5c 33 32 36 00 5c 33 35 32 01 5c 32 33 35 5c 32 30 34 5c 33 32 30 00 5c 33 35 33 01	\204\326.\352.\235\204\320.\353.
0620	5c 32 33 35 5c 32 30 34 5c 33 32 30 00 5c 33 35 34 01 5c 32 33 35 5c 32 30 34 5c 33 32 30 00 5c	\235\204\320.\354.\235\204\320.\
0640	33 35 35 01 5c 32 33 35 5c 32 30 33 5c 33 33 34 00 5c 33 35 36 01 5c 32 33 35 5c 32 30 34 5c 33	355.\235\203\334.\356.\235\204\3
0660	33 34 00 5c 33 35 37 03 21 5c 32 30 32 0b 01 5c 33 30 32 5c 33 36 30 21 5c 32 31 31 5c 33 31 31	34.\357.!\202..\302\360!\211\311
0680	5c 33 31 32 21 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 05 21 5c 33 36 31 5c	\312!\313\314\315\316\317.!\361\
06a0	22 5c 33 32 31 24 5c 32 31 36 72 5c 32 31 31 71 5c 32 31 30 05 63 5c 32 31 30 29 72 5c 32 31 31	"\321$\216r\211q\210.c\210)r\211
06c0	71 5c 32 31 30 5c 33 32 32 5c 33 32 33 5c 32 31 31 04 5c 33 32 33 5c 33 31 34 25 5c 32 31 30 2a	q\210\322\323\211.\323\314%\210*
06e0	5c 32 36 36 02 5c 33 36 32 01 21 5c 32 36 32 01 5c 32 36 32 01 5c 33 36 33 5c 33 36 34 06 5c 6e	\266.\362.!\262.\262.\363\364.\n
0700	5c 32 33 36 41 5c 33 36 35 06 0b 5c 32 33 36 41 5c 22 5c 33 36 33 5c 33 36 36 06 0b 5c 32 33 36	\236A\365..\236A\"\363\366..\236
0720	41 5c 33 36 37 06 5c 66 5c 32 33 36 41 5c 22 23 5c 32 36 32 01 5c 32 30 37 22 20 5b 6f 72 67 2d	A\367.\f\236A\"#\262.\207".[org-
0740	62 61 62 65 6c 2d 65 78 65 65 78 74 20 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 63	babel-exeext.org-babel-fortran-c
0760	6f 6d 70 69 6c 65 72 20 6f 72 67 2d 62 61 62 65 6c 2d 74 65 6d 70 2d 66 69 6c 65 20 22 66 6f 72	ompiler.org-babel-temp-file."for
0780	74 72 61 6e 2d 73 72 63 2d 22 20 22 2e 46 39 30 22 20 22 66 6f 72 74 72 61 6e 2d 62 69 6e 2d 22	tran-src-".".F90"."fortran-bin-"
07a0	20 3a 63 6d 64 6c 69 6e 65 20 3a 66 6c 61 67 73 20 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e	.:cmdline.:flags.org-babel-expan
07c0	64 2d 62 6f 64 79 3a 66 6f 72 74 72 61 6e 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66	d-body:fortran.generate-new-buff
07e0	65 72 20 22 20 2a 74 65 6d 70 20 66 69 6c 65 2a 22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65	er.".*temp.file*".make-byte-code
0800	20 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37	.0."\301\300!\205..\302\300!\207
0820	22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69	".vconcat.vector.[buffer-name.ki
0840	6c 6c 2d 62 75 66 66 65 72 5d 20 32 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 6e 69 6c 20 6f 72	ll-buffer].2.write-region.nil.or
0860	67 2d 62 61 62 65 6c 2d 65 76 61 6c 20 66 6f 72 6d 61 74 20 22 25 73 20 2d 6f 20 25 73 20 25 73	g-babel-eval.format."%s.-o.%s.%s
0880	20 25 73 22 20 6f 72 67 2d 62 61 62 65 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6c 65 2d 6e 61 6d 65	.%s".org-babel-process-file-name
08a0	20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22 20 22 20 22 22 20 6f 72 67 2d 72	.mapconcat.identity."."."".org-r
08c0	65 6d 6f 76 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70	emove-indentation.replace-regexp
08e0	2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 60 5c 5c 28 5b 20 09 5d 2a 5c 6e 5c 5c 29 2b 22 20 22	-in-string."\\`\\([..]*\n\\)+"."
0900	5c 5c 60 5b 20 09 5c 6e 0d 5d 2b 22 20 22 5b 20 09 5c 6e 0d 5d 2b 5c 5c 27 22 20 6f 72 67 2d 62	\\`[..\n.]+"."[..\n.]+\\'".org-b
0920	61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c 65 2d 74 61 62 6c 65 20 3a 72 65 73 75 6c 74 2d 70 61	abel-reassemble-table.:result-pa
0940	72 61 6d 73 20 22 6e 6f 6e 65 22 20 22 73 63 61 6c 61 72 22 20 22 76 65 72 62 61 74 69 6d 22 20	rams."none"."scalar"."verbatim".
0960	22 68 74 6d 6c 22 20 22 63 6f 64 65 22 20 22 70 70 22 20 22 66 69 6c 65 22 20 22 6f 75 74 70 75	"html"."code"."pp"."file"."outpu
0980	74 22 20 22 72 61 77 22 20 22 6f 72 67 22 20 22 64 72 61 77 65 72 22 20 22 74 61 62 6c 65 22 20	t"."raw"."org"."drawer"."table".
09a0	6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 64 20 22 66 2d 22 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65	org-babel-read."f-".[buffer-name
09c0	20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 6f 72 67 2d 62 61 62 65 6c 2d 69 6d 70 6f 72 74 2d 65	.kill-buffer].org-babel-import-e
09e0	6c 69 73 70 2d 66 72 6f 6d 2d 66 69 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 69 63 6b 2d 6e 61	lisp-from-file.org-babel-pick-na
0a00	6d 65 20 3a 63 6f 6c 6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 63 6f 6c 6e 61 6d 65 73 20 3a 72 6f 77	me.:colname-names.:colnames.:row
0a20	6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 73 5d 20 31 39 20 28 23 24 20 2e 20 39	name-names.:rownames].19.(#$...9
0a40	34 35 29 5d 29 0a 23 40 31 31 31 20 45 78 70 61 6e 64 20 61 20 62 6c 6f 63 6b 20 6f 66 20 66 6f	45)]).#@111.Expand.a.block.of.fo
0a60	72 74 72 61 6e 20 6f 72 20 66 6f 72 74 72 61 6e 20 63 6f 64 65 20 77 69 74 68 20 6f 72 67 2d 62	rtran.or.fortran.code.with.org-b
0a80	61 62 65 6c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a 69 74 73 20 68 65 61 64 65 72 20 61 72 67	abel.according.to.its.header.arg
0aa0	75 6d 65 6e 74 73 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61	uments...(fn.BODY.PARAMS)..(defa
0ac0	6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 66 6f 72 74	lias.'org-babel-expand-body:fort
0ae0	72 61 6e 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33 30 31 02 5c 32 33 36 41 5c 33 30 32 5c	ran.#[514."\300.!\301.\236A\302\
0b00	32 33 30 3f 5c 33 30 33 03 5c 32 33 36 41 5c 32 30 36 18 00 5c 33 30 34 5c 33 30 35 5c 33 30 36	230?\303.\236A\206..\304\305\306
0b20	5c 33 30 37 5c 33 31 30 23 21 5c 33 30 34 5c 33 31 31 05 5c 32 33 36 41 5c 32 30 36 27 00 5c 33	\307\310#!\304\311.\236A\206'.\3
0b40	30 34 5c 33 30 35 5c 33 30 36 5c 33 31 32 5c 33 31 30 23 21 21 5c 33 31 33 5c 33 31 34 5c 33 31	04\305\306\312\310#!!\313\314\31
0b60	33 5c 33 31 35 05 3c 5c 32 30 33 35 00 05 5c 32 30 32 37 00 05 43 5c 33 31 36 23 5c 33 31 33 5c	3\315.<\2035..\2027..C\316#\313\
0b80	33 31 37 05 3c 5c 32 30 33 44 00 05 5c 32 30 32 46 00 05 43 5c 33 31 36 23 06 06 5c 32 30 33 5d	317.<\203D..\202F..C\316#..\203]
0ba0	00 5c 33 32 30 5c 33 31 33 5c 33 32 31 06 5c 6e 5c 33 31 36 23 06 0b 50 06 5c 6e 5c 22 5c 32 30	.\320\313\321.\n\316#..P.\n\"\20
0bc0	32 5f 00 06 09 5c 33 31 36 46 5c 33 31 36 23 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d	2_...\316F\316#\207".[org-babel-
0be0	2d 67 65 74 2d 76 61 72 73 20 3a 6d 61 69 6e 20 22 6e 6f 22 20 3a 69 6e 63 6c 75 64 65 73 20 6f	-get-vars.:main."no".:includes.o
0c00	72 67 2d 62 61 62 65 6c 2d 72 65 61 64 20 6f 72 67 2d 65 6e 74 72 79 2d 67 65 74 20 6e 69 6c 20	rg-babel-read.org-entry-get.nil.
0c20	22 69 6e 63 6c 75 64 65 73 22 20 74 20 3a 64 65 66 69 6e 65 73 20 22 64 65 66 69 6e 65 73 22 20	"includes".t.:defines."defines".
0c40	6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33	mapconcat.identity.#[257."\300\3
0c60	30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 23 69 6e 63 6c 75 64 65 20 25 73 22	01.\"\207".[format."#include.%s"
0c80	5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 4e 43 29 22 5d 20 22 5c 6e 22 20 23 5b 32 35 37 20 22	].4."\n\n(fn.INC)"]."\n".#[257."
0ca0	5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 23 64 65 66 69 6e	\300\301.\"\207".[format."#defin
0cc0	65 20 25 73 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 49 4e 43 29 22 5d 20 6f 72 67 2d 62 61 62	e.%s"].4."\n\n(fn.INC)"].org-bab
0ce0	65 6c 2d 66 6f 72 74 72 61 6e 2d 65 6e 73 75 72 65 2d 6d 61 69 6e 2d 77 72 61 70 20 6f 72 67 2d	el-fortran-ensure-main-wrap.org-
0d00	62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 76 61 72 2d 74 6f 2d 66 6f 72 74 72 61 6e 5d 20 31 35	babel-fortran-var-to-fortran].15
0d20	20 28 23 24 20 2e 20 32 36 33 36 29 5d 29 0a 23 40 38 32 20 57 72 61 70 20 62 6f 64 79 20 69 6e	.(#$...2636)]).#@82.Wrap.body.in
0d40	20 61 20 22 70 72 6f 67 72 61 6d 20 2e 2e 2e 20 65 6e 64 20 70 72 6f 67 72 61 6d 22 20 62 6c 6f	.a."program.....end.program".blo
0d60	63 6b 20 69 66 20 6e 6f 6e 65 20 65 78 69 73 74 73 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52	ck.if.none.exists...(fn.BODY.PAR
0d80	41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72	AMS)..(defalias.'org-babel-fortr
0da0	61 6e 2d 65 6e 73 75 72 65 2d 6d 61 69 6e 2d 77 72 61 70 20 23 5b 35 31 34 20 22 5c 33 30 30 5c	an-ensure-main-wrap.#[514."\300\
0dc0	33 30 31 5c 33 30 32 04 21 5c 22 5c 32 30 33 16 00 5c 33 30 33 01 21 5c 32 31 31 5c 32 30 33 14	301\302.!\"\203..\303.!\211\203.
0de0	00 5c 33 30 34 5c 33 30 35 21 5c 32 31 30 02 5c 32 30 37 5c 33 30 36 5c 33 30 37 03 5c 22 5c 32	.\304\305!\210.\207\306\307.\"\2
0e00	30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5b 20 09 5d 2a 70 72 6f 67 72 61 6d	07".[string-match."^[..]*program
0e20	5c 5c 3e 22 20 63 61 70 69 74 61 6c 69 7a 65 20 6f 72 67 2d 62 61 62 65 6c 2d 2d 67 65 74 2d 76	\\>".capitalize.org-babel--get-v
0e40	61 72 73 20 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 75 73 65 20 3a 76 61 72 73 20 69 66 20 60	ars.error."Cannot.use.:vars.if.`
0e60	70 72 6f 67 72 61 6d 27 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 70 72 65 73 65 6e 74 22 20 66	program'.statement.is.present".f
0e80	6f 72 6d 61 74 20 22 70 72 6f 67 72 61 6d 20 6d 61 69 6e 5c 6e 25 73 5c 6e 65 6e 64 20 70 72 6f	ormat."program.main\n%s\nend.pro
0ea0	67 72 61 6d 20 6d 61 69 6e 5c 6e 22 5d 20 36 20 28 23 24 20 2e 20 33 33 38 30 29 5d 29 0a 23 40	gram.main\n"].6.(#$...3380)]).#@
0ec0	31 31 33 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 68 69 6e 67 20 61	113.This.function.does.nothing.a
0ee0	73 20 66 6f 72 74 72 61 6e 20 69 73 20 61 20 63 6f 6d 70 69 6c 65 64 20 6c 61 6e 67 75 61 67 65	s.fortran.is.a.compiled.language
0f00	20 77 69 74 68 20 6e 6f 0a 73 75 70 70 6f 72 74 20 66 6f 72 20 73 65 73 73 69 6f 6e 73 2e 0a 0a	.with.no.support.for.sessions...
0f20	28 66 6e 20 53 45 53 53 49 4f 4e 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	(fn.SESSION.PARAMS)..(defalias.'
0f40	6f 72 67 2d 62 61 62 65 6c 2d 70 72 65 70 2d 73 65 73 73 69 6f 6e 3a 66 6f 72 74 72 61 6e 20 23	org-babel-prep-session:fortran.#
0f60	5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 46 6f 72	[514."\300\301!\207".[error."For
0f80	74 72 61 6e 20 69 73 20 61 20 63 6f 6d 70 69 6c 65 64 20 6c 61 6e 67 75 61 67 65 73 20 2d 2d 20	tran.is.a.compiled.languages.--.
0fa0	6e 6f 20 73 75 70 70 6f 72 74 20 66 6f 72 20 73 65 73 73 69 6f 6e 73 22 5d 20 34 20 28 23 24 20	no.support.for.sessions"].4.(#$.
0fc0	2e 20 33 37 38 30 29 5d 29 0a 23 40 31 31 38 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f	..3780)]).#@118.This.function.do
0fe0	65 73 20 6e 6f 74 68 69 6e 67 20 61 73 20 66 6f 72 74 72 61 6e 20 69 73 20 61 20 63 6f 6d 70 69	es.nothing.as.fortran.is.a.compi
1000	6c 65 64 20 6c 61 6e 67 75 61 67 65 20 77 69 74 68 20 6e 6f 0a 73 75 70 70 6f 72 74 20 66 6f 72	led.language.with.no.support.for
1020	20 73 65 73 73 69 6f 6e 73 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 42 4f 44 59 20 50 41 52	.sessions...(fn.SESSION.BODY.PAR
1040	41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 6c 6f 61 64 2d	AMS)..(defalias.'org-babel-load-
1060	73 65 73 73 69 6f 6e 3a 66 6f 72 74 72 61 6e 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30 31 21	session:fortran.#[771."\300\301!
1080	5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 46 6f 72 74 72 61 6e 20 69 73 20 61 20 63 6f 6d 70 69	\207".[error."Fortran.is.a.compi
10a0	6c 65 64 20 6c 61 6e 67 75 61 67 65 73 20 2d 2d 20 6e 6f 20 73 75 70 70 6f 72 74 20 66 6f 72 20	led.languages.--.no.support.for.
10c0	73 65 73 73 69 6f 6e 73 22 5d 20 35 20 28 23 24 20 2e 20 34 30 34 38 29 5d 29 0a 23 40 39 39 20	sessions"].5.(#$...4048)]).#@99.
10e0	43 6f 6e 76 65 72 74 20 61 6e 20 65 6c 69 73 70 20 76 61 6c 20 69 6e 74 6f 20 61 20 73 74 72 69	Convert.an.elisp.val.into.a.stri
1100	6e 67 20 6f 66 20 66 6f 72 74 72 61 6e 20 63 6f 64 65 20 73 70 65 63 69 66 79 69 6e 67 20 61 20	ng.of.fortran.code.specifying.a.
1120	76 61 72 0a 6f 66 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 50 41 49 52	var.of.the.same.value...(fn.PAIR
1140	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d	)..(defalias.'org-babel-fortran-
1160	76 61 72 2d 74 6f 2d 66 6f 72 74 72 61 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 40 01 41 5c 32 31	var-to-fortran.#[257."\211@.A\21
1180	31 39 5c 32 30 33 1a 00 5c 33 30 30 01 21 5c 32 36 32 01 5c 32 31 31 47 5c 33 30 31 55 5c 32 30	19\203..\300.!\262.\211G\301U\20
11a0	33 1a 00 5c 33 30 32 01 21 5c 32 36 32 01 5c 32 31 31 5c 32 35 30 5c 32 30 33 27 00 5c 33 30 33	3..\302.!\262.\211\250\203'.\303
11c0	5c 33 30 34 03 03 23 5c 32 30 32 5c 32 31 32 00 5c 33 30 35 01 21 5c 32 30 33 35 00 5c 33 30 33	\304..#\202\212.\305.!\2035.\303
11e0	5c 33 30 36 03 03 23 5c 32 30 32 5c 32 31 32 00 5c 32 31 31 5c 32 35 30 5c 32 30 33 42 00 5c 33	\306..#\202\212.\211\250\203B.\3
1200	30 33 5c 33 30 37 03 03 23 5c 32 30 32 5c 32 31 32 00 5c 32 31 31 3b 5c 32 30 33 51 00 5c 33 30	03\307..#\202\212.\211;\203Q.\30
1220	33 5c 33 31 30 02 47 04 04 24 5c 32 30 32 5c 32 31 32 00 5c 32 31 31 3c 5c 32 30 33 75 00 5c 33	3\310.G..$\202\212.\211<\203u.\3
1240	31 31 5c 33 31 32 02 5c 22 5c 32 30 33 75 00 5c 33 30 33 5c 33 31 33 03 03 47 04 40 47 5c 33 31	11\312.\"\203u.\303\313..G.@G\31
1260	34 06 06 21 06 06 40 47 06 07 47 26 07 5c 32 30 32 5c 32 31 32 00 5c 32 31 31 3c 5c 32 30 33 5c	4..!..@G..G&.\202\212.\211<\203\
1280	32 30 36 00 5c 33 30 33 5c 33 31 35 03 03 47 5c 33 31 34 05 21 24 5c 32 30 32 5c 32 31 32 00 5c	206.\303\315..G\314.!$\202\212.\
12a0	33 31 36 5c 33 31 37 03 5c 22 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 31 20 73	316\317.\"\207".[symbol-name.1.s
12c0	74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 66 6f 72 6d 61 74 20 22 69 6e 74 65 67 65 72 2c 20 70	tring-to-char.format."integer,.p
12e0	61 72 61 6d 65 74 65 72 20 20 3a 3a 20 20 25 53 20 3d 20 25 53 5c 6e 22 20 66 6c 6f 61 74 70 20	arameter..::..%S.=.%S\n".floatp.
1300	22 72 65 61 6c 2c 20 70 61 72 61 6d 65 74 65 72 20 3a 3a 20 20 25 53 20 3d 20 25 53 5c 6e 22 20	"real,.parameter.::..%S.=.%S\n".
1320	22 63 68 61 72 61 63 74 65 72 2c 20 70 61 72 61 6d 65 74 65 72 20 3a 3a 20 25 53 20 3d 20 27 25	"character,.parameter.::.%S.=.'%
1340	53 27 5c 6e 22 20 22 63 68 61 72 61 63 74 65 72 28 6c 65 6e 3d 25 64 29 2c 20 70 61 72 61 6d 65	S'\n"."character(len=%d),.parame
1360	74 65 72 20 3a 3a 20 20 25 53 20 3d 20 27 25 73 27 5c 6e 22 20 63 6c 2d 65 76 65 72 79 20 6c 69	ter.::..%S.=.'%s'\n".cl-every.li
1380	73 74 70 20 22 72 65 61 6c 2c 20 70 61 72 61 6d 65 74 65 72 20 3a 3a 20 25 53 28 25 64 2c 25 64	stp."real,.parameter.::.%S(%d,%d
13a0	29 20 3d 20 74 72 61 6e 73 70 6f 73 65 28 20 72 65 73 68 61 70 65 28 20 25 73 20 2c 20 28 2f 20	).=.transpose(.reshape(.%s.,.(/.
13c0	25 64 2c 20 25 64 20 2f 29 20 29 20 29 5c 6e 22 20 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72	%d,.%d./).).)\n".org-babel-fortr
13e0	61 6e 2d 74 72 61 6e 73 66 6f 72 6d 2d 6c 69 73 74 20 22 72 65 61 6c 2c 20 70 61 72 61 6d 65 74	an-transform-list."real,.paramet
1400	65 72 20 3a 3a 20 25 53 28 25 64 29 20 3d 20 25 73 5c 6e 22 20 65 72 72 6f 72 20 22 54 68 65 20	er.::.%S(%d).=.%s\n".error."The.
1420	74 79 70 65 20 6f 66 20 70 61 72 61 6d 65 74 65 72 20 25 73 20 69 73 20 6e 6f 74 20 73 75 70 70	type.of.parameter.%s.is.not.supp
1440	6f 72 74 65 64 20 62 79 20 6f 62 2d 66 6f 72 74 72 61 6e 22 5d 20 31 31 20 28 23 24 20 2e 20 34	orted.by.ob-fortran"].11.(#$...4
1460	33 32 30 29 5d 29 0a 23 40 37 31 20 52 65 74 75 72 6e 20 61 20 66 6f 72 74 72 61 6e 20 72 65 70	320)]).#@71.Return.a.fortran.rep
1480	72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 65 6e 63 6c 6f 73 65 20 73 79 6e 74 61 63 74 69 63	resentation.of.enclose.syntactic
14a0	20 6c 69 73 74 73 2e 0a 0a 28 66 6e 20 56 41 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72	.lists...(fn.VAL)..(defalias.'or
14c0	67 2d 62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 74 72 61 6e 73 66 6f 72 6d 2d 6c 69 73 74 20 23	g-babel-fortran-transform-list.#
14e0	5b 32 35 37 20 22 5c 32 31 31 3c 5c 32 30 33 0e 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33	[257."\211<\203..\300\301\302.\3
1500	30 33 23 5c 33 30 34 51 5c 32 30 37 5c 33 30 35 5c 33 30 36 02 5c 22 5c 32 30 37 22 20 5b 22 28	03#\304Q\207\305\306.\"\207".["(
1520	2f 22 20 6d 61 70 63 6f 6e 63 61 74 20 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 74	/".mapconcat.org-babel-fortran-t
1540	72 61 6e 73 66 6f 72 6d 2d 6c 69 73 74 20 22 2c 20 22 20 22 2f 29 22 20 66 6f 72 6d 61 74 20 22	ransform-list.",."."/)".format."
1560	25 53 22 5d 20 36 20 28 23 24 20 2e 20 35 32 32 38 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f	%S"].6.(#$...5228)]).(provide.'o
1580	62 2d 66 6f 72 74 72 61 6e 29 0a	b-fortran).