Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
org
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: ob-fortran.elc
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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\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) #@82 fortran command used to compile a fortran source code file into an executable. (defvar org-babel-fortran-compiler "gfortran" (#$ . 642)) #@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\316\317!\320\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\324\325\326 \327!\330\331<\203R \202U C\332#\327 !%\333\"\210\334\324\203m \332P\202n \333P\333\"!\323\335\203| \336\202} \337\333\335\340\333##\266\202\341\342\236A\343\235?\205 \344\235\204\326 \345\235\204\326 \346\235\204\326 \347\235\204\326 \350\235\204\326 \351\235\204\326 \352\235\204\320 \353\235\204\320 \354\235\204\320 \355\235\203\334 \356\235\204\334 \357!\202 \302\360!\211\311\312!\313\314\315\316\317!\361\"\321$\216r\211q\210c\210)r\211q\210\322\323\211\323\314%\210*\266\362!\262\262\363\364\n\236A\365 \236A\"\363\366 \236A\367\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 generate-new-buffer " *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-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-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 19 (#$ . 787)]) #@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 (#$ . 2478)]) #@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 (#$ . 3222)]) #@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 (#$ . 3622)]) #@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 (#$ . 3890)]) #@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 (#$ . 4162)]) #@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 (#$ . 5070)]) (provide 'ob-fortran)