;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [require ob cc-mode cl-lib add-to-list org-babel-tangle-lang-exts ("fortran" . "F90")] 3)
(defvar org-babel-default-header-args:fortran nil)
#@82 fortran command used to compile a fortran source code file into an
executable.
(defvar org-babel-fortran-compiler "gfortran" (#$ . 620))
#@86 This function should only be called by `org-babel-execute:fortran'
(fn BODY PARAMS)
(defalias 'org-babel-execute:fortran #[514 "\302\303\304\"\302\305\"\306\236A\307\236A\310\"\311\312\313!!\314\315\316\317\320!\321\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\325\326\327 \330!\331\332<\203T \202W C\333#\330 !%\334\"\210\335\336\325\203r \333P\202s \334P\334\"!!\337\340\236A\341\235?\205\376 \342\235\204\307 \343\235\204\307 \344\235\204\307 \345\235\204\307 \346\235\204\307 \347\235\204\307 \350\235\204\301 \351\235\204\301 \352\235\204\301 \353\235\203\315 \354\235\204\315 \355!\202\376 \302\356!\211\311\312\313!!\314\315\316\317\320!\357\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\360!\262\262\361\362\n\236A\363 \236A\"\361\364 \236A\365\f\236A\"#\262\207" [org-babel-exeext org-babel-fortran-compiler org-babel-temp-file "fortran-src-" ".F90" "fortran-bin-" :cmdline :flags org-babel-expand-body:fortran get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil org-babel-eval format "%s -o %s %s %s" org-babel-process-file-name mapconcat identity " " "" org-trim org-remove-indentation org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-read "f-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 19 (#$ . 765)])
#@111 Expand a block of fortran or fortran code with org-babel according to
its header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:fortran #[514 "\300!\301\236A\302\230?\303\236A\206 \304\305\306\307\310#!\304\311\236A\206' \304\305\306\312\310#!!\313\314\313\315<\2035 \2027 C\316#\313\317<\203D \202F C\316#\203] \320\313\321\n\316# P\n\"\202_ \316F\316#\207" [org-babel--get-vars :main "no" :includes org-babel-read org-entry-get nil "includes" t :defines "defines" mapconcat identity #[257 "\300\301\"\207" [format "#include %s"] 4 "\n\n(fn INC)"] "\n" #[257 "\300\301\"\207" [format "#define %s"] 4 "\n\n(fn INC)"] org-babel-fortran-ensure-main-wrap org-babel-fortran-var-to-fortran] 15 (#$ . 2380)])
#@82 Wrap body in a "program ... end program" block if none exists.
(fn BODY PARAMS)
(defalias 'org-babel-fortran-ensure-main-wrap #[514 "\300\301\302!\"\203 \303!\211\203 \304\305!\210\207\306\307\"\207" [string-match "^[ ]*program[ ]*.*" capitalize org-babel--get-vars error "Cannot use :vars if `program' statement is present" format "program main\n%s\nend program main\n"] 6 (#$ . 3124)])
#@112 This function does nothing as fortran is a compiled language with no
support for sessions
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:fortran #[514 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 4 (#$ . 3528)])
#@117 This function does nothing as fortran is a compiled language with no
support for sessions
(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:fortran #[771 "\300\301!\207" [error "Fortran is a compiled languages -- no support for sessions"] 5 (#$ . 3795)])
#@99 Convert an elisp val into a string of fortran code specifying a var
of the same value.
(fn PAIR)
(defalias 'org-babel-fortran-var-to-fortran #[257 "\211@A\2119\203 \300!\262\211G\301U\203 \302!\262\211\250\203' \303\304#\202\212 \305!\2035 \303\306#\202\212 \211\250\203B \303\307#\202\212 \211;\203Q \303\310G$\202\212 \211<\203u \311\312\"\203u \303\313G@G\314!@GG&\202\212 \211<\203\206 \303\315G\314!$\202\212 \316\317\"\207" [symbol-name 1 string-to-char format "integer, parameter :: %S = %S\n" floatp "real, parameter :: %S = %S\n" "character, parameter :: %S = '%S'\n" "character(len=%d), parameter :: %S = '%s'\n" cl-every listp "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n" org-babel-fortran-transform-list "real, parameter :: %S(%d) = %s\n" error "the type of parameter %s is not supported by ob-fortran"] 11 (#$ . 4066)])
#@71 Return a fortran representation of enclose syntactic lists.
(fn VAL)
(defalias 'org-babel-fortran-transform-list #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\"\207" ["(/" mapconcat org-babel-fortran-transform-list ", " "/)" format "%S"] 6 (#$ . 4974)])
(provide 'ob-fortran)
|