blob: 7241425e5856748f8dbf3b7d144c01d8f978065e (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 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 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	ptimizations...;;;.This.file.use
0060	73 20 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	s.dynamic.docstrings,.first.adde
0080	64 20 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	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 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	.does.not.contain.utf-8.non-ASCI
00c0	49 20 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	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 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	loaded.in.Emacs.versions.earlier
0100	20 74 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	.than.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 3b 3b 0a 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 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 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	"\300\301!\210\300\302!\210\300\
01c0	33 30 33 21 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 72 65 71	303!\210\304\305\306\"\207".[req
01e0	75 69 72 65 20 6f 62 20 63 63 2d 6d 6f 64 65 20 63 6c 2d 6c 69 62 20 61 64 64 2d 74 6f 2d 6c 69	uire.ob.cc-mode.cl-lib.add-to-li
0200	73 74 20 6f 72 67 2d 62 61 62 65 6c 2d 74 61 6e 67 6c 65 2d 6c 61 6e 67 2d 65 78 74 73 20 28 22	st.org-babel-tangle-lang-exts.("
0220	66 6f 72 74 72 61 6e 22 20 2e 20 22 46 39 30 22 29 5d 20 33 29 0a 28 64 65 66 76 61 72 20 6f 72	fortran"..."F90")].3).(defvar.or
0240	67 2d 62 61 62 65 6c 2d 64 65 66 61 75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 66 6f 72 74	g-babel-default-header-args:fort
0260	72 61 6e 20 6e 69 6c 29 0a 23 40 38 32 20 66 6f 72 74 72 61 6e 20 63 6f 6d 6d 61 6e 64 20 75 73	ran.nil).#@82.fortran.command.us
0280	65 64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 61 20 66 6f 72 74 72 61 6e 20 73 6f 75 72 63 65 20 63	ed.to.compile.a.fortran.source.c
02a0	6f 64 65 20 66 69 6c 65 20 69 6e 74 6f 20 61 6e 0a 20 20 65 78 65 63 75 74 61 62 6c 65 2e 1f 0a	ode.file.into.an...executable...
02c0	28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 72 61 6e 2d 63 6f 6d 70 69 6c	(defvar.org-babel-fortran-compil
02e0	65 72 20 22 67 66 6f 72 74 72 61 6e 22 20 28 23 24 20 2e 20 36 32 32 29 29 0a 23 40 38 36 20 54	er."gfortran".(#$...622)).#@86.T
0300	68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 63 61 6c 6c	his.function.should.only.be.call
0320	65 64 20 62 79 20 60 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 66 6f 72 74 72 61 6e	ed.by.`org-babel-execute:fortran
0340	27 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 6c 69 61 73 20 27	'..(fn.BODY.PARAMS)..(defalias.'
0360	6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 66 6f 72 74 72 61 6e 20 23 5b 35 31 34 20	org-babel-execute:fortran.#[514.
0380	22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22 5c 33 30 32 5c 33 30 35 08 5c 22 5c 33 30 36 03 5c	"\302\303\304\"\302\305.\"\306.\
03a0	32 33 36 41 5c 33 30 37 04 5c 32 33 36 41 5c 33 31 30 06 06 06 06 5c 22 04 5c 33 31 31 5c 33 31	236A\307.\236A\310....\".\311\31
03c0	32 5c 33 31 33 21 21 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 05 21 5c 33 32	2\313!!\314\315\316\317\320.!\32
03e0	31 5c 22 5c 33 32 32 24 5c 32 31 36 72 5c 32 31 31 71 5c 32 31 30 02 63 5c 32 31 30 29 72 5c 32	1\"\322$\216r\211q\210.c\210)r\2
0400	31 31 71 5c 32 31 30 5c 33 32 33 5c 33 32 34 5c 32 31 31 04 5c 33 32 34 5c 33 31 35 25 5c 32 31	11q\210\323\324\211.\324\315%\21
0420	30 2a 5c 32 36 36 02 5c 33 32 35 5c 33 32 36 5c 33 32 37 09 5c 33 33 30 06 08 21 5c 33 33 31 5c	0*\266.\325\326\327.\330..!\331\
0440	33 33 32 06 08 3c 5c 32 30 33 54 00 06 08 5c 32 30 32 57 00 06 08 43 5c 33 33 33 23 5c 33 33 30	332..<\203T...\202W...C\333#\330
0460	06 0b 21 25 5c 33 33 34 5c 22 5c 32 31 30 5c 33 33 35 5c 33 33 36 5c 33 32 35 06 06 06 06 5c 32	..!%\334\"\210\335\336\325....\2
0480	30 33 72 00 5c 33 33 33 06 07 50 5c 32 30 32 73 00 5c 33 33 34 50 5c 33 33 34 5c 22 21 21 5c 33	03r.\333..P\202s.\334P\334\"!!\3
04a0	33 37 5c 33 34 30 06 08 5c 32 33 36 41 5c 33 34 31 01 5c 32 33 35 3f 5c 32 30 35 5c 33 37 36 00	37\340..\236A\341.\235?\205\376.
04c0	5c 33 34 32 01 5c 32 33 35 5c 32 30 34 5c 33 30 37 00 5c 33 34 33 01 5c 32 33 35 5c 32 30 34 5c	\342.\235\204\307.\343.\235\204\
04e0	33 30 37 00 5c 33 34 34 01 5c 32 33 35 5c 32 30 34 5c 33 30 37 00 5c 33 34 35 01 5c 32 33 35 5c	307.\344.\235\204\307.\345.\235\
0500	32 30 34 5c 33 30 37 00 5c 33 34 36 01 5c 32 33 35 5c 32 30 34 5c 33 30 37 00 5c 33 34 37 01 5c	204\307.\346.\235\204\307.\347.\
0520	32 33 35 5c 32 30 34 5c 33 30 37 00 5c 33 35 30 01 5c 32 33 35 5c 32 30 34 5c 33 30 31 00 5c 33	235\204\307.\350.\235\204\301.\3
0540	35 31 01 5c 32 33 35 5c 32 30 34 5c 33 30 31 00 5c 33 35 32 01 5c 32 33 35 5c 32 30 34 5c 33 30	51.\235\204\301.\352.\235\204\30
0560	31 00 5c 33 35 33 01 5c 32 33 35 5c 32 30 33 5c 33 31 35 00 5c 33 35 34 01 5c 32 33 35 5c 32 30	1.\353.\235\203\315.\354.\235\20
0580	34 5c 33 31 35 00 5c 33 35 35 03 21 5c 32 30 32 5c 33 37 36 00 5c 33 30 32 5c 33 35 36 21 5c 32	4\315.\355.!\202\376.\302\356!\2
05a0	31 31 5c 33 31 31 5c 33 31 32 5c 33 31 33 21 21 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37	11\311\312\313!!\314\315\316\317
05c0	5c 33 32 30 05 21 5c 33 35 37 5c 22 5c 33 32 32 24 5c 32 31 36 72 5c 32 31 31 71 5c 32 31 30 05	\320.!\357\"\322$\216r\211q\210.
05e0	63 5c 32 31 30 29 72 5c 32 31 31 71 5c 32 31 30 5c 33 32 33 5c 33 32 34 5c 32 31 31 04 5c 33 32	c\210)r\211q\210\323\324\211.\32
0600	34 5c 33 31 35 25 5c 32 31 30 2a 5c 32 36 36 02 5c 33 36 30 01 21 5c 32 36 32 01 5c 32 36 32 01	4\315%\210*\266.\360.!\262.\262.
0620	5c 33 36 31 5c 33 36 32 06 5c 6e 5c 32 33 36 41 5c 33 36 33 06 0b 5c 32 33 36 41 5c 22 5c 33 36	\361\362.\n\236A\363..\236A\"\36
0640	31 5c 33 36 34 06 0b 5c 32 33 36 41 5c 33 36 35 06 5c 66 5c 32 33 36 41 5c 22 23 5c 32 36 32 01	1\364..\236A\365.\f\236A\"#\262.
0660	5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 65 78 74 20 6f 72 67 2d 62 61 62 65	\207".[org-babel-exeext.org-babe
0680	6c 2d 66 6f 72 74 72 61 6e 2d 63 6f 6d 70 69 6c 65 72 20 6f 72 67 2d 62 61 62 65 6c 2d 74 65 6d	l-fortran-compiler.org-babel-tem
06a0	70 2d 66 69 6c 65 20 22 66 6f 72 74 72 61 6e 2d 73 72 63 2d 22 20 22 2e 46 39 30 22 20 22 66 6f	p-file."fortran-src-".".F90"."fo
06c0	72 74 72 61 6e 2d 62 69 6e 2d 22 20 3a 63 6d 64 6c 69 6e 65 20 3a 66 6c 61 67 73 20 6f 72 67 2d	rtran-bin-".:cmdline.:flags.org-
06e0	62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 66 6f 72 74 72 61 6e 20 67 65 74 2d 62 75	babel-expand-body:fortran.get-bu
0700	66 66 65 72 2d 63 72 65 61 74 65 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d	ffer-create.generate-new-buffer-
0720	6e 61 6d 65 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	name.".*temp.file*".make-byte-co
0740	64 65 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	de.0."\301\300!\205..\302\300!\2
0760	30 37 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	07".vconcat.vector.[buffer-name.
0780	6b 69 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	kill-buffer].2.write-region.nil.
07a0	6f 72 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	org-babel-eval.format."%s.-o.%s.
07c0	25 73 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	%s.%s".org-babel-process-file-na
07e0	6d 65 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	me.mapconcat.identity."."."".org
0800	2d 74 72 69 6d 20 6f 72 67 2d 72 65 6d 6f 76 65 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 72 67	-trim.org-remove-indentation.org
0820	2d 62 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	-babel-reassemble-table.:result-
0840	70 61 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	params."none"."scalar"."verbatim
0860	22 20 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	"."html"."code"."pp"."file"."out
0880	70 75 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	put"."raw"."org"."drawer"."table
08a0	22 20 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	".org-babel-read."f-".[buffer-na
08c0	6d 65 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	me.kill-buffer].org-babel-import
08e0	2d 65 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	-elisp-from-file.org-babel-pick-
0900	6e 61 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	name.:colname-names.:colnames.:r
0920	6f 77 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	owname-names.:rownames].19.(#$..
0940	20 37 36 37 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	.767)]).#@111.Expand.a.block.of.
0960	66 6f 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	fortran.or.fortran.code.with.org
0980	2d 62 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	-babel.according.to.its.header.a
09a0	72 67 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	rguments...(fn.BODY.PARAMS)..(de
09c0	66 61 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	falias.'org-babel-expand-body:fo
09e0	72 74 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	rtran.#[514."\300.!\301.\236A\30
0a00	32 5c 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	2\230?\303.\236A\206..\304\305\3
0a20	30 36 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	06\307\310#!\304\311.\236A\206'.
0a40	5c 33 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	\304\305\306\312\310#!!\313\314\
0a60	33 31 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	313\315.<\2035..\2027..C\316#\31
0a80	33 5c 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	3\317.<\203D..\202F..C\316#..\20
0aa0	33 5d 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	3].\320\313\321.\n\316#..P.\n\"\
0ac0	32 30 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	202_...\316F\316#\207".[org-babe
0ae0	6c 2d 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	l--get-vars.:main."no".:includes
0b00	20 6f 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	.org-babel-read.org-entry-get.ni
0b20	6c 20 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	l."includes".t.:defines."defines
0b40	22 20 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	".mapconcat.identity.#[257."\300
0b60	5c 33 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	\301.\"\207".[format."#include.%
0b80	73 22 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	s"].4."\n\n(fn.INC)"]."\n".#[257
0ba0	20 22 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	."\300\301.\"\207".[format."#def
0bc0	69 6e 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	ine.%s"].4."\n\n(fn.INC)"].org-b
0be0	61 62 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	abel-fortran-ensure-main-wrap.or
0c00	67 2d 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	g-babel-fortran-var-to-fortran].
0c20	31 35 20 28 23 24 20 2e 20 32 33 38 32 29 5d 29 0a 23 40 38 32 20 57 72 61 70 20 62 6f 64 79 20	15.(#$...2382)]).#@82.Wrap.body.
0c40	69 6e 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	in.a."program.....end.program".b
0c60	6c 6f 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	lock.if.none.exists...(fn.BODY.P
0c80	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 66 6f 72	ARAMS)..(defalias.'org-babel-for
0ca0	74 72 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	tran-ensure-main-wrap.#[514."\30
0cc0	30 5c 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	0\301\302.!\"\203..\303.!\211\20
0ce0	33 14 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	3..\304\305!\210.\207\306\307.\"
0d00	5c 32 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	\207".[string-match."^[..]*progr
0d20	61 6d 5b 20 09 5d 2a 2e 2a 22 20 63 61 70 69 74 61 6c 69 7a 65 20 6f 72 67 2d 62 61 62 65 6c 2d	am[..]*.*".capitalize.org-babel-
0d40	2d 67 65 74 2d 76 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	-get-vars.error."Cannot.use.:var
0d60	73 20 69 66 20 60 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	s.if.`program'.statement.is.pres
0d80	65 6e 74 22 20 66 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	ent".format."program.main\n%s\ne
0da0	6e 64 20 70 72 6f 67 72 61 6d 20 6d 61 69 6e 5c 6e 22 5d 20 36 20 28 23 24 20 2e 20 33 31 32 36	nd.program.main\n"].6.(#$...3126
0dc0	29 5d 29 0a 23 40 31 31 32 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74	)]).#@112.This.function.does.not
0de0	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 6c 65 64 20 6c 61	hing.as.fortran.is.a.compiled.la
0e00	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 20 73 65 73 73 69	nguage.with.no.support.for.sessi
0e20	6f 6e 73 0a 0a 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	ons..(fn.SESSION.PARAMS)..(defal
0e40	69 61 73 20 27 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	ias.'org-babel-prep-session:fort
0e60	72 61 6e 20 23 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	ran.#[514."\300\301!\207".[error
0e80	20 22 46 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	."Fortran.is.a.compiled.language
0ea0	73 20 2d 2d 20 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	s.--.no.support.for.sessions"].4
0ec0	20 28 23 24 20 2e 20 33 35 33 30 29 5d 29 0a 23 40 31 31 37 20 54 68 69 73 20 66 75 6e 63 74 69	.(#$...3530)]).#@117.This.functi
0ee0	6f 6e 20 64 6f 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	on.does.nothing.as.fortran.is.a.
0f00	63 6f 6d 70 69 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	compiled.language.with.no.suppor
0f20	74 20 66 6f 72 20 73 65 73 73 69 6f 6e 73 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 42 4f 44 59	t.for.sessions..(fn.SESSION.BODY
0f40	20 50 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 6c	.PARAMS)..(defalias.'org-babel-l
0f60	6f 61 64 2d 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	oad-session:fortran.#[771."\300\
0f80	33 30 31 21 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	301!\207".[error."Fortran.is.a.c
0fa0	6f 6d 70 69 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	ompiled.languages.--.no.support.
0fc0	66 6f 72 20 73 65 73 73 69 6f 6e 73 22 5d 20 35 20 28 23 24 20 2e 20 33 37 39 37 29 5d 29 0a 23	for.sessions"].5.(#$...3797)]).#
0fe0	40 39 39 20 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	@99.Convert.an.elisp.val.into.a.
1000	73 74 72 69 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	string.of.fortran.code.specifyin
1020	67 20 61 20 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	g.a.var.of.the.same.value...(fn.
1040	50 41 49 52 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	PAIR)..(defalias.'org-babel-fort
1060	72 61 6e 2d 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	ran-var-to-fortran.#[257."\211@.
1080	41 5c 32 31 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	A\2119\203..\300.!\262.\211G\301
10a0	55 5c 32 30 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	U\203..\302.!\262.\211\250\203'.
10c0	5c 33 30 33 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	\303\304..#\202\212.\305.!\2035.
10e0	5c 33 30 33 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	\303\306..#\202\212.\211\250\203
1100	42 00 5c 33 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	B.\303\307..#\202\212.\211;\203Q
1120	00 5c 33 30 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	.\303\310.G..$\202\212.\211<\203
1140	75 00 5c 33 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	u.\311\312.\"\203u.\303\313..G.@
1160	47 5c 33 31 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	G\314..!..@G..G&.\202\212.\211<\
1180	32 30 33 5c 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	203\206.\303\315..G\314.!$\202\2
11a0	31 32 00 5c 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	12.\316\317.\"\207".[symbol-name
11c0	20 31 20 73 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	.1.string-to-char.format."intege
11e0	72 2c 20 70 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	r,.parameter..::..%S.=.%S\n".flo
1200	61 74 70 20 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	atp."real,.parameter.::..%S.=.%S
1220	5c 6e 22 20 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	\n"."character,.parameter.::.%S.
1240	3d 20 27 25 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	=.'%S'\n"."character(len=%d),.pa
1260	72 61 6d 65 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	rameter.::..%S.=.'%s'\n".cl-ever
1280	79 20 6c 69 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	y.listp."real,.parameter.::.%S(%
12a0	64 2c 25 64 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	d,%d).=.transpose(.reshape(.%s.,
12c0	20 28 2f 20 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	.(/.%d,.%d./).).)\n".org-babel-f
12e0	6f 72 74 72 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	ortran-transform-list."real,.par
1300	61 6d 65 74 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	ameter.::.%S(%d).=.%s\n".error."
1320	74 68 65 20 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	the.type.of.parameter.%s.is.not.
1340	73 75 70 70 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	supported.by.ob-fortran"].11.(#$
1360	20 2e 20 34 30 36 38 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	...4068)]).#@71.Return.a.fortran
1380	20 72 65 70 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	.representation.of.enclose.synta
13a0	63 74 69 63 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	ctic.lists...(fn.VAL)..(defalias
13c0	20 27 6f 72 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	.'org-babel-fortran-transform-li
13e0	73 74 20 23 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	st.#[257."\211<\203..\300\301\30
1400	32 03 5c 33 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	2.\303#\304Q\207\305\306.\"\207"
1420	20 5b 22 28 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	.["(/".mapconcat.org-babel-fortr
1440	61 6e 2d 74 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	an-transform-list.",."."/)".form
1460	61 74 20 22 25 53 22 5d 20 36 20 28 23 24 20 2e 20 34 39 37 36 29 5d 29 0a 28 70 72 6f 76 69 64	at."%S"].6.(#$...4976)]).(provid
1480	65 20 27 6f 62 2d 66 6f 72 74 72 61 6e 29 0a	e.'ob-fortran).