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). |