;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require ob org-macs cc-mode cl-lib add-to-list org-babel-tangle-lang-exts ("fortran" . "F90")] 3) (defvar org-babel-default-header-args:fortran nil) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-babel-fortran-compiler funcall function #[0 "\300\207" ["gfortran"] 1 ""] "Fortran command used to compile Fortran source code file." :group org-babel :package-version (Org . "9.5") :type string] 10) #@87 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\"\216r\211q\210c\210)r\211q\210\316\317\211\317\320%\210*\210\321\322\323 \324!\325\326<\203K\202NC\327#\324 !%\330\"\210\331\321\203f\327P\202g\330P\330\"!\317\332\203u\333\202v\334\330\332\335\330##\266\202\336\337\236A\340\235?\205\374\341\235\204\317\342\235\204\317\343\235\204\317\344\235\204\317\345\235\204\317\346\235\204\317\347\235\204\311\350\235\204\311\351\235\204\311\352\235\203\325\353\235\204\325\354!\202\374\302\355!\311\312\313\"\314\356\"\216r\211q\210c\210)r\211q\210\316\317\211\317\320%\210*\210\357!\262\262\360\361\n\236A\362 \236A\"\360\363 \236A\364\f\236A\"#\207" [org-babel-exeext org-babel-fortran-compiler org-babel-temp-file "fortran-src-" ".F90" "fortran-bin-" :cmdline :flags org-babel-expand-body:fortran generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] write-region nil 0 org-babel-eval format "%s -o %s %s %s" org-babel-process-file-name mapconcat identity " " "" org-remove-indentation replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-read "f-" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 18 (#$ . 617)]) #@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\2027C\316#\313\317<\203D\202FC\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 (#$ . 2303)]) #@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 (#$ . 3047)]) #@113 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 (#$ . 3447)]) #@118 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 (#$ . 3715)]) #@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#\207\305!\2031\303\306#\207\211\250\203<\303\307#\207\211;\203I\303\310G$\207\211<\203k\311\312\"\203k\303\313G@G\314!@GG&\207\211<\203z\303\315G\314!$\207\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 (#$ . 3987)]) #@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 (#$ . 4862)]) (provide 'ob-fortran)