The f2cl Reference Manual

4.1.1 f2cl/f2cl.asd

Source

f2cl.asd.

Parent Component

f2cl (system).

ASDF Systems

f2cl.

---

4.1.2 f2cl-asdf/f2cl-asdf.asd

Source

f2cl-asdf.asd.

Parent Component

f2cl-asdf (system).

ASDF Systems

f2cl-asdf.

---

4.1.3 f2cl/src/f2cl0.l

Source

f2cl.asd.

Parent Component

src (module).

Packages

• f2cl-lib.
• fortran-to-lisp.

---

4.1.4 f2cl/src/f2cl1.l

Dependency

f2cl0.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Public Interface

• f2cl (function).
• f2cl-compile (function).
• f2cl-version (function).

Internals

• %make-f2cl-finfo (function).
• *assigned-variables* (special variable).
• *coerce-assignments* (special variable).
• *comments* (special variable).
• *common-block-file* (special variable).
• *common-block-file-names* (special variable).
• *common-block-initialized* (special variable).
• *common-blocks* (special variable).
• *common-blocks-as-arrays* (special variable).
• *copy-array-parameter* (special variable).
• *declare-common-blocks* (special variable).
• *default-lisp-extension* (special variable).
• *entry-points* (special variable).
• *equivalenced-vars* (special variable).
• *f2cl-function-info* (special variable).
• *f2cl-pprint-dispatch* (special variable).
• *f2cl-statement-finfo* (special variable).
• *f2cl-trace* (special variable).
• *f2cl-version* (special variable).
• *f2cl1-version* (special variable).
• *float-format* (special variable).
• *fortran-extensions* (special variable).
• *fortran-readtable* (special variable).
• *intrinsic-function-names* (special variable).
• *non-intrinsic-function-names* (special variable).
• *promote-to-double* (special variable).
• *relaxed-array-decls* (special variable).
• *use-function-info* (special variable).
• *verbose* (special variable).
• append1 (function).
• array-double-float (type).
• array-integer4 (type).
• array-single-float (type).
• array-strings (type).
• binding-value (function).
• brackets-check (function).
• build_decl_list (function).
• check-subprogram-arg-names (function).
• clear-f2cl-finfo (function).
• coerce-rhs-to-lhs (function).
• complex16 (type).
• complex8 (type).
• concat (function).
• concat-operators (function).
• concaten (function).
• const (function).
• convert-data-type (function).
• copy-f2cl-finfo (function).
• diff (function).
• end-cdr (function).
• extract-atoms (function).
• f-to-l (function).
• f2cl-finfo (structure).
• f2cl-finfo-arg-types (reader).
• (setf f2cl-finfo-arg-types) (writer).
• f2cl-finfo-calls (reader).
• (setf f2cl-finfo-calls) (writer).
• f2cl-finfo-p (function).
• f2cl-finfo-return-values (reader).
• (setf f2cl-finfo-return-values) (writer).
• find-data-var (function).
• find-do (function).
• find-duplicates (function).
• fixup-f2cl-lib (function).
• fortran-to-lisp (function).
• gen-append (function).
• gen-list-split (function).
• generate-call-to-routine (function).
• greaterp (function).
• handle-data-reps (function).
• head-chop (function).
• id-assgn-go-to (function).
• id-assgn-go-to-core (function).
• id-assgn-goto (function).
• id-assign (function).
• id-assignment (function).
• id-comp-go-to (function).
• id-comp-goto (function).
• id-comp-goto-core (function).
• id-continue (function).
• id-declaration (function).
• id-definition-entry (function).
• id-definition-fun (function).
• id-definition-fun-typed (function).
• id-definition-prog (function).
• id-definition-prog-name (function).
• id-definition-sub (function).
• id-do-loop (function).
• id-do-while (function).
• id-else (function).
• id-else-if (function).
• id-elseif (function).
• id-end-do (function).
• id-endif (function).
• id-extended-do (function).
• id-go-to (function).
• id-goto (function).
• id-if (function).
• id-if-goto (function).
• id-if-then (function).
• id-implicit-decl (function).
• id-parameter (function).
• id-pause (function).
• id-predicate (function).
• id-return (function).
• id-subroutine-call (function).
• integer1 (type).
• integer2 (type).
• integer4 (type).
• introduce-continue (function).
• lessp (function).
• lineread (function).
• list-split (function).
• list-split-bin (function).
• list-split-multi (function).
• list-split-multi-string (function).
• listn (function).
• logical (type).
• make-f2cl-finfo (function).
• make-label (function).
• massage-arglist (function).
• match (function).
• maybe-convert-array-ref-to-slice (function).
• maybe-extend-bindings (function).
• maybe-nullify-returns (function).
• maybe-promote-type (function).
• nequal (function).
• output-common-block (function).
• parse-arrayref-or-stmtfn (function).
• parse-assgn-go-to (function).
• parse-assgn-goto (function).
• parse-assign (function).
• parse-assignment (function).
• parse-char-decl (function).
• parse-common (function).
• parse-comp-go-to (function).
• parse-comp-goto (function).
• parse-cycle (function).
• parse-data (function).
• parse-data-implied-do (function).
• parse-data1 (function).
• parse-declaration (function).
• parse-do-loop (function).
• parse-entry-definition (function).
• parse-equivalence (function).
• parse-exit (function).
• parse-expression (function).
• parse-external (function).
• parse-fun-definition (function).
• parse-goto (function).
• parse-if (function).
• parse-if-goto (function).
• parse-if-then (function).
• parse-implicit-decl (function).
• parse-intrinsic (function).
• parse-parameter (function).
• parse-pause (function).
• parse-prog-definition (function).
• parse-return (function).
• parse-save (function).
• parse-subr-definition (function).
• parse-subroutine-call (function).
• parse-typed-fun-definition (function).
• parse_dimension_specs (function).
• parse_upper_and_lower_bounds (function).
• plus (function).
• pprint-fdo (function).
• pprint-with-array-data (function).
• pprint-with-multi-array-data (function).
• princ-reset (function).
• print-header (function).
• process-data (function).
• read-six-chars (function).
• readsubprog-extract-format-stmts (function).
• real4 (type).
• real8 (type).
• reduce-data-type (function).
• relax-array-decl (function).
• remove-f2cl-keys (function).
• rewrite-do-while (function).
• rewrite-extended-do (function).
• save-f2cl-finfo (function).
• single-macro-character (function).
• special-print (function).
• sub1 (function).
• subsequence (function).
• tail-chop (function).
• translate-and-write-subprog (function).
• translate-label (function).
• translate-line (function).
• unify (function).
• update_cm_array_dims (function).
• variable-value (function).
• variablep (function).
• with-fortran-syntax (macro).

---

4.1.5 f2cl/src/f2cl2.l

Dependency

f2cl1.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *f2cl2-version* (special variable).
• check-tags-go (function).
• extract (function).
• find-gos (function).
• id-expression (function).
• id-factor (function).
• id-factor1 (function).
• id-term (function).
• list-itp (function).
• lookup-array-bounds (function).
• subst-splice (function).
• symbol-listp (function).
• tpl-subpair (function).
• tpl-subst (function).
• update-called-functions-list (function).

---

4.1.6 f2cl/src/f2cl3.l

Dependency

f2cl2.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *f2cl3-version* (special variable).
• atomcar (function).
• atomcdr (function).
• exact-match (function).
• match-atoms (function).
• match-atoms-lists (function).
• match-restrict (function).
• match-separated (function).
• match-store (function).
• match-store-atoms (function).
• restrict-test (function).
• sub-string (function).

---

4.1.7 f2cl/src/f2cl4.l

Dependency

f2cl3.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *f2cl4-version* (special variable).
• id-logical (function).
• id-logical-and (function).
• id-logical-not (function).
• id-relational (function).
• memberq (function).

---

4.1.8 f2cl/src/f2cl5.l

Dependency

f2cl4.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *enable-merging-data-and-save-init* (special variable).
• *f2cl5-version* (special variable).
• *fortran-keywords* (special variable).
• +allowed-lisp-names+ (special variable).
• +reserved-lisp-names+ (special variable).
• array-list (function).
• check-reserved-lisp-names (function).
• check_new_vbles (function).
• coerce-parameter-assign (function).
• create-sym-macros (function).
• create-sym-macros-array (function).
• default-int-p (function).
• destruct-descriptor-list (function).
• end-do-p (function).
• entry-functions (function).
• f2cl-array-total-size (function).
• find-sym (function).
• fix-do (function).
• fix-ifthen (function).
• fix-slashes (function).
• fix-structure (function).
• fix-tagbodies (function).
• fixnum-string (function).
• fixup-expr-mul (function).
• fixup-expression (function).
• fixup-external-function-refs (function).
• fixup-relop (function).
• flatten-list (function).
• fortran-contagion (function).
• fortran-data-init (function).
• get-arg-decl (function).
• get-fun-arg-type (function).
• get-implicit-type (function).
• get-upgraded-fun-arg-type (function).
• get-var-types (function).
• get_array_type (function).
• get_format_stmt (function).
• insert-declarations (function).
• label-matches-dolabel-p (function).
• lookup-vble-type (function).
• make-char-decl (function).
• make-char-init (function).
• make-common-block-init (function).
• make-common-block-structure (function).
• make-common-block-var-init (function).
• make-common-block-vars (function).
• make-common-block-vars-as-array (function).
• make-declaration (function).
• make-fcn-decl (function).
• make-initialisation (function).
• make-key-param-decls (function).
• make-labels-form (function).
• make-special-proclamation (function).
• make-special-var-decl (function).
• make_make-array_stmt (function).
• merge-data-and-save-inits (function).
• merge-ops (function).
• multiple-do-labelp (function).
• optimize-f2cl/ (function).
• optimize-integer-arithmetic (function).
• parse-close (function).
• parse-default-format-descriptor (function).
• parse-dlist (function).
• parse-format (function).
• parse-format-descriptor-/ (function).
• parse-format-descriptor-a (function).
• parse-format-descriptor-d (function).
• parse-format-descriptor-e (function).
• parse-format-descriptor-f (function).
• parse-format-descriptor-g (function).
• parse-format-descriptor-h (function).
• parse-format-descriptor-i (function).
• parse-format-descriptor-l (function).
• parse-format-descriptor-list (function).
• parse-format-descriptor-p (function).
• parse-format-descriptor-s (function).
• parse-format-descriptor-tr (function).
• parse-format-descriptor-x (function).
• parse-format1 (function).
• parse-implied-do (function).
• parse-open (function).
• parse-output-argument (function).
• parse-print (function).
• parse-read (function).
• parse-rewind (function).
• parse-write (function).
• parse_format_dest (function).
• pattern-match-and-bind (function).
• pretty-decls (function).
• print-i-format (function).
• read-number-from-stream (function).
• remove-*data-init*-var (function).
• remove-prefix (function).
• remove-unused-key-params (function).
• remove-unused-sym-macros (function).
• sym-is-fun-name (function).
• sym-is-number-p (function).
• vble-declared-twice-p (function).
• vble-is-array-p (function).
• verify-and-generate-equivalences (function).

---

4.1.9 f2cl/src/f2cl6.l

Dependency

f2cl5.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *comment-line-characters* (special variable).
• *f2cl6-version* (special variable).
• *inp* (special variable).
• adjust_nrs (function).
• find-quote (function).
• match-include (function).
• parse-logl-op (function).
• parse-number (function).
• preprocess (function).
• preprocess-streams (function).
• process-format-line (function).
• replace-str (function).
• replace_logl_ops (function).
• write-comment-line (function).

---

4.1.10 f2cl/src/f2cl7.l

Dependency

f2cl6.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Internals

• *prune_labels* (special variable).
• cond-remove-end-label (function).
• count-go-end (function).
• find-all-labels (function).
• find-declarations (function).
• find-go-labels (function).
• labelp (function).
• prune-labels (function).
• remove-from-tree (function).

---

4.1.11 f2cl/src/macros.l

Dependencies

• f2cl0.l (file).
• f2cl7.l (file).

Source

f2cl.asd.

Parent Component

src (module).

Public Interface

• %false% (constant).
• %true% (constant).
• *check-array-bounds* (special variable).
• *stop-signals-error-p* (special variable).
• aimag (function).
• aint (function).
• alog (function).
• alog10 (function).
• amax0 (function).
• amax1 (function).
• amin1 (function).
• amod (function).
• anint (function).
• arithmetic-if (macro).
• array-double-float (type).
• array-initialize (macro).
• array-integer4 (type).
• array-single-float (type).
• array-slice (macro).
• array-strings (type).
• assigned-goto (macro).
• atan2 (function).
• cabs (function).
• ccos (function).
• cdabs (function).
• cexp (function).
• clog (function).
• cmplx (function).
• complex16 (type).
• complex8 (type).
• computed-goto (macro).
• conjg (function).
• csin (function).
• csqrt (function).
• d1mach (function).
• dabs (function).
• dacos (function).
• dasin (function).
• data-implied-do (macro).
• datan (function).
• datan2 (function).
• dble (function).
• dcmplx (function).
• dconjg (function).
• dcos (function).
• dcosh (function).
• dexp (function).
• dfloat (function).
• dim (function).
• dimag (function).
• dint (function).
• dlog (function).
• dlog10 (function).
• dmax1 (function).
• dmin1 (function).
• dmod (function).
• dnint (function).
• dprod (function).
• dsign (function).
• dsin (function).
• dsinh (function).
• dsqrt (function).
• dtan (function).
• dtanh (function).
• f2cl-// (macro).
• f2cl-copy-seq (macro).
• f2cl-init-string (macro).
• f2cl-set-string (macro).
• f2cl/ (macro).
• fchar (function).
• fdo (macro).
• ffloat (function).
• fformat (macro).
• flog (function).
• fortran_comment (macro).
• freal (function).
• fref (macro).
• fref-string (macro).
• fset (macro).
• fset-string (macro).
• fsqrt (function).
• fstring-/= (function).
• fstring-< (function).
• fstring-<= (function).
• fstring-= (function).
• fstring-> (function).
• fstring->= (function).
• i1mach (function).
• iabs (function).
• ichar (function).
• idim (function).
• idnint (function).
• ifix (function).
• index (function).
• int (function).
• int-add (macro).
• int-mul (macro).
• int-sub (macro).
• integer1 (type).
• integer2 (type).
• integer4 (type).
• isign (function).
• len (function).
• len_trim (function).
• lge (function).
• lgt (function).
• log10 (function).
• logical (type).
• make-compatible-seq (macro).
• max0 (function).
• max1 (function).
• min0 (function).
• min1 (function).
• nint (function).
• r1mach (function).
• real4 (type).
• real8 (type).
• sign (function).
• sngl (function).
• with-array-data (macro).
• with-multi-array-data (macro).
• zsqrt (function).

Internals

• %close (function).
• %open-file (function).
• %rewind (function).
• *f2cl-macros-version* (special variable).
• *lun-hash* (special variable).
• amin0 (function).
• assigned-goto-aux (function).
• check-array-bounds (function).
• close$ (macro).
• close-fortran-io (function).
• col-major-index (function).
• computed-goto-aux (function).
• convert-int-sub (function).
• ctan (function).
• ddim (function).
• execute-format (function).
• execute-format-main (function).
• f2cl-string (function).
• find-array-data (function).
• flatten-list (function).
• fortran-format (function).
• fortran-format-g (function).
• idfix (function).
• init-fortran-io (function).
• lle (function).
• llt (function).
• lun->stream (function).
• make-label (function).
• multi-array-data-aux (function).
• open-file (macro).
• process-implied-do (function).
• rewind (macro).
• stop (function).
• while (macro).

---

4.1.12 f2cl-asdf/src/f2cl-asdf.lisp

Source

f2cl-asdf.asd.

Parent Component

f2cl-asdf (system).

Packages

f2cl-asdf.

Public Interface

• f2cl-options (reader method).
• f2cl-options (reader method).
• f2cl-system (class).
• fortran-file (class).
• perform (method).
• perform (method).

Internals

cl-source-file.l (class).

---

6.1.1 Constants

Constant: %false% ¶

Package

f2cl-lib.

Source

macros.l.

Constant: %true% ¶

Package

f2cl-lib.

Source

macros.l.

---

6.1.2 Special variables

Special Variable: *check-array-bounds* ¶

If non-NIL, generated code checks for array bounds. If NIL, checking is not included

Package

f2cl-lib.

Source

macros.l.

Special Variable: *stop-signals-error-p* ¶

When non-NIL, STOP will signal an continuable error. Otherwise, STOP just returns

Package

f2cl-lib.

Source

macros.l.

---

6.1.3 Macros

Macro: arithmetic-if (pred s1 s2 s3) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: array-initialize (type dims data) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: array-slice (vname type indices bounds &optional offset) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: assigned-goto (var tag-list) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: computed-goto (tag-lst i) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: data-implied-do (implied-do array-bnds var-types vals) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: f2cl-// (a b) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: f2cl-copy-seq (dst src dst-type src-type) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: f2cl-init-string (dims len &optional inits) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: f2cl-set-string (lhs rhs (string len)) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: f2cl/ (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fdo (do_vble_clause predicate_clause &rest body) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fformat (dest-lun format-cilist &rest args) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fortran_comment (&rest args) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fref (arr indices bounds &optional offset) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fref-string (s range) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fset (a b) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: fset-string (a b) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: int-add (arg &rest more-args) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: int-mul (arg &rest more-args) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: int-sub (&rest args) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: make-compatible-seq (type array array-type) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: with-array-data ((data-var offset-var array) &rest body) ¶

Package

f2cl-lib.

Source

macros.l.

Macro: with-multi-array-data (array-info &rest body) ¶

Package

f2cl-lib.

Source

macros.l.

---

6.1.4 Ordinary functions

Function: aimag (c) ¶

Package

f2cl-lib.

Source

macros.l.

Function: aint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: alog (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: alog10 (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: amax0 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: amax1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: amin1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: amod (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: anint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: atan2 (y x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: cabs (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: ccos (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: cdabs (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: cexp (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: clog (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: cmplx (x &optional y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: conjg (c) ¶

Package

f2cl-lib.

Source

macros.l.

Function: csin (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: csqrt (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: d1mach (i) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dabs (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dacos (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dasin (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: datan (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: datan2 (y x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dble (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dcmplx (x &optional y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dconjg (c) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dcos (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dcosh (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dexp (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dfloat (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dim (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dimag (c) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dlog (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dlog10 (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dmax1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dmin1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dmod (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dnint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dprod (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dsign (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dsin (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dsinh (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dsqrt (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dtan (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: dtanh (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: f2cl (input-file &key verbose keep-temp-file extension output-file prune-labels include-comments auto-save relaxed-array-decls coerce-assigns array-type array-slicing package declaim declare-common float-format common-as-array common-block-file copy-array-parameter promote-to-double &allow-other-keys) ¶

Fortran to Common Lisp converter

INPUT-FILE File containing Fortran code

:OUTPUT-FILE File to contain Lisp code

:VERBOSE verbose output. Default = NIL.
:PRUNE-LABELS Prune unused labels. Default = NIL. :INCLUDE-COMMENTS Include Fortran comments in the Lisp output (May be buggy.) Default = NIL
:AUTO-SAVE Variables in DATA statements are automatically SAVE’d. Default = T.
:RELAXED-ARRAY-DECLS Declarations of array sizes are relaxed in formal parameters to functions. That is, any array
length declarations are ignored if possible,
like old Fortran used to. Default = T.
:COERCE-ASSIGNS If T or :ALWAYS, all assignment statements automatically coerce the RHS to the
appropriate type for the assignment. If NIL
or :NEVER, coercion never happens.
Otherwise, coercion happens as needed. The
Default = :AS-NEEDED
:EXTENSION The extension to use for the output file, if needed. Defaults to *DEFAULT-LISP-EXTENSION* or "lisp"
:KEEP-TEMP-FILE If T, the temporary file is not deleted.
Default = NIL.
:ARRAY-TYPE The type of array f2cl should use. Should be :simple-array or :array.
:ARRAY-SLICING When non-NIL, f2cl assumes that, whenever we do an array reference in a call to a subroutine or
function, we are really passing a subarray
to the routine instead of just the single
value, unless f2cl knows the function takes
a scalar arg that is not modified.
:PACKAGE A string or symbol specifying what package the resulting code should be in. (Basically puts a
(in-package <p>) at the top.)
:DECLAIM Declaim compilation options (Basically puts a (declaim <declaim>) at the top.)
:DECLARE-COMMON When non-NIL, any structures defintions for common blocks are defined here. Otherwise, the structures
for the common blocks are expected to be defined
elsewhere.
:FLOAT-FORMAT Float format to use when printing the result. Default is *READ-DEFAULT-FLOAT-FORMAT*
:COMMON-AS-ARRAY Common blocks are created as a set of arrays, and the common block variables are offsets into the arrays.
This mimics Fortran common block layouts.
Default = NIL.
:COMMON-BLOCK-FILE If common blocks are to be declared, then
each common block is written to a file whose name
is the name of the common block, with the extension
"cmn"
:COPY-ARRAY-PARAMETER In some Fortran code an array of one type is passed to a routine expecting a different type. F2CL implements
this by creating an array and copying the data. The
default is not to copy since it is relatively slow.
:PROMOTE-TO-DOUBLE Promote REAL and COMPLEX constants, variables, and arrays to REAL*8 and COMPLEX*16 types.

Package

fortran-to-lisp.

Source

f2cl1.l.

Function: f2cl-compile (filename &rest all-keys &key error-file keep-lisp-file output-file prune-labels include-comments auto-save relaxed-array-decls coerce-assigns array-type array-slicing package declaim declare-common float-format common-as-array copy-array-parameter promote-to-double &allow-other-keys) ¶

Convert the Fortran to Common Lisp and compile the resulting Lisp file

FILENAME File containing Fortran code

:OUTPUT-FILE File to contain Lisp code

:VERBOSE verbose output. Default = NIL.
:PRUNE-LABELS Prune unused labels. Default = NIL. :INCLUDE-COMMENTS Include Fortran comments in the Lisp output (May be buggy.) Default = NIL
:AUTO-SAVE Variables in DATA statements are automatically SAVE’d. Default = T.
:RELAXED-ARRAY-DECLS Declarations of array sizes are relaxed in formal parameters to functions. Default = T.
:COERCE-ASSIGNS If T or :ALWAYS, all assignment statements automatically coerce the RHS to the
appropriate type for the assignment. If NIL
or :NEVER, coercion never happens.
Otherwise, coercion happens as needed. The
Default = :AS-NEEDED

:KEEP-LISP-FILE If T, the converted Lisp file is not deleted. Default = NIL.
:ARRAY-TYPE The type of array f2cl should use. Should be ’simple-array or ’array.
:ARRAY-SLICING When non-NIL, f2cl assumes that, whenever we do an array reference in a call to a subroutine or
function, we are really passing a subarray
to the routine instead of just the single
value.
:PACKAGE A string or symbol specifying what package the result code should be in. (Basically puts a
(in-package <p>) at the top.) Default:
:common-lisp-user.
:DECLAIM Declaim compilation options (Basically puts a (declaim <declaim>) at the top.)
:DECLARE-COMMON When non-NIL, any structures for common blocks
are declared here. Otherwise, the
structures for the common blocks are not
declared.
:FLOAT-FORMAT Float format to use when printing the result. Default is *READ-DEFAULT-FLOAT-FORMAT*
:COMMON-AS-ARRAY Common blocks are created as a set of arrays, and the common block variables are offsets into the
arrays. This mimics Fortran common block
layouts. Default = NIL.
:COMMON-BLOCK-FILE If common blocks are to be declared, then
each common block is written to a file whose name
is the name of the common block, with the extension
"cmn"
:COPY-ARRAY-PARAMETER In some Fortran code an array of one type is passed to a routine expecting a different type. F2CL implements
this by creating an array and copying the data. The
default is not to copy since it is relatively slow.
:PROMOTE-TO-DOUBLE Promote REAL and COMPLEX constants, variables, and arrays to REAL*8 and COMPLEX*16 types.

Package

fortran-to-lisp.

Source

f2cl1.l.

Function: f2cl-version () ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Function: fchar (i) ¶

Package

f2cl-lib.

Source

macros.l.

Function: ffloat (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: flog (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: freal (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fsqrt (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring-/= (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring-< (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring-<= (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring-= (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring-> (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: fstring->= (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: i1mach (i) ¶

Package

f2cl-lib.

Source

macros.l.

Function: iabs (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: ichar (c) ¶

Package

f2cl-lib.

Source

macros.l.

Function: idim (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: idnint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: ifix (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: index (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: int (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: isign (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: len (s) ¶

Package

f2cl-lib.

Source

macros.l.

Function: len_trim (s) ¶

Package

f2cl-lib.

Source

macros.l.

Function: lge (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: lgt (s1 s2) ¶

Package

f2cl-lib.

Source

macros.l.

Function: log10 (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: max0 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: max1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: min0 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: min1 (x y &rest z) ¶

Package

f2cl-lib.

Source

macros.l.

Function: nint (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: r1mach (i) ¶

Package

f2cl-lib.

Source

macros.l.

Function: sign (x y) ¶

Package

f2cl-lib.

Source

macros.l.

Function: sngl (x) ¶

Package

f2cl-lib.

Source

macros.l.

Function: zsqrt (x) ¶

Package

f2cl-lib.

Source

macros.l.

---

6.1.5 Generic functions

Generic Reader: f2cl-options (object) ¶

Package

f2cl-asdf.

Methods

Reader Method: f2cl-options ((fortran-file fortran-file)) ¶

automatically generated reader method

Source

src/f2cl-asdf.lisp.

Target Slot

f2cl-options.

Reader Method: f2cl-options ((f2cl-system f2cl-system)) ¶

automatically generated reader method

Source

src/f2cl-asdf.lisp.

Target Slot

f2cl-options.

---

6.1.6 Standalone methods

Method: perform ((o load-op) (c fortran-file)) ¶

Package

asdf/action.

Source

src/f2cl-asdf.lisp.

Method: perform ((o compile-op) (c fortran-file)) ¶

Package

asdf/action.

Source

src/f2cl-asdf.lisp.

---

6.1.7 Classes

Class: f2cl-system ¶

Package

f2cl-asdf.

Source

src/f2cl-asdf.lisp.

Direct superclasses

system.

Direct methods

f2cl-options.

Direct slots

Slot: f2cl-options ¶

Type

list

Initargs

:f2cl-options

Readers

f2cl-options.

Writers

This slot is read-only.

Slot: default-component-class ¶

Package

asdf/component.

Initform

(quote f2cl-asdf:fortran-file)

Class: fortran-file ¶

Package

f2cl-asdf.

Source

src/f2cl-asdf.lisp.

Direct superclasses

cl-source-file.

Direct methods

• f2cl-options.
• perform.
• perform.

Direct Default Initargs

Initarg	Value
:type	f

Direct slots

Slot: f2cl-options ¶

Type

list

Initargs

:f2cl-options

Readers

f2cl-options.

Writers

This slot is read-only.

---

6.1.8 Types

Type: array-double-float () ¶

Package

f2cl-lib.

Source

macros.l.

Type: array-integer4 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: array-single-float () ¶

Package

f2cl-lib.

Source

macros.l.

Type: array-strings () ¶

Package

f2cl-lib.

Source

macros.l.

Type: complex16 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: complex8 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: integer1 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: integer2 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: integer4 (&optional low high) ¶

Package

f2cl-lib.

Source

macros.l.

Type: logical () ¶

Package

f2cl-lib.

Source

macros.l.

Type: real4 () ¶

Package

f2cl-lib.

Source

macros.l.

Type: real8 () ¶

Package

f2cl-lib.

Source

macros.l.

---

6.2.1 Special variables

Special Variable: *apply-array-slice* ¶

Package

fortran-to-lisp.

Special Variable: *array-slicing* ¶

Package

fortran-to-lisp.

Special Variable: *array-type* ¶

Package

fortran-to-lisp.

Special Variable: *assigned-variables* ¶

List of variables that are assigned a value

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *auto-save-data* ¶

Package

fortran-to-lisp.

Special Variable: *coerce-assignments* ¶

This controls how assignment statements are coerced. If T or :always, assignments are always ccoerced. If NIL or :never, assignments are never coerced. For any other value, coercion is done only when needed.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *comment-line-characters* ¶

A list of Fortran comment line characters

Package

fortran-to-lisp.

Source

f2cl6.l.

Special Variable: *comments* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common-block-file* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common-block-file-names* ¶

List of files created when :common-block-file is enabled

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common-block-initialized* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common-blocks* ¶

Hash table of all common blocks. The key is the name of the common block; the value is a list of all variables in the common block.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common-blocks-as-arrays* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *common_array_dims* ¶

Package

fortran-to-lisp.

Special Variable: *copy-array-parameter* ¶

If non-NIL, array arguments are copied if the actual array element type is not the same type as the declared array element type. This happens in some Fortran code where, say, an array of REALs is given to a routine expecting COMPLEXs. When *COPY-ARRAY-PARAMETER* is non-NIL, F2CL will copy the actual array to a temporary array of the correct type, pass that to the routine and then copy the result back to the original array. This is currently only implemented when passing a REAL/REAL*8 array to a COMPLEX/COMPLEX*16 array and vice-versa.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *current_label* ¶

Package

fortran-to-lisp.

Special Variable: *data-init* ¶

Package

fortran-to-lisp.

Special Variable: *declare-common-blocks* ¶

When non-NIL, the structures for any common blocks are defined in this file

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *declared_vbles* ¶

Package

fortran-to-lisp.

Special Variable: *default-lisp-extension* ¶

The default extension (file type) for the output file name

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *dlist-flag* ¶

Package

fortran-to-lisp.

Special Variable: *enable-merging-data-and-save-init* ¶

Package

fortran-to-lisp.

Source

f2cl5.l.

Special Variable: *entry-points* ¶

List of ENTRY points

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *equivalenced-vars* ¶

List of equivalenced variables. Each entry of the list is a list consisting of the equivalenced variables.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *explicit_vble_decls* ¶

Package

fortran-to-lisp.

Special Variable: *external-function-names* ¶

Package

fortran-to-lisp.

Special Variable: *f2cl-function-info* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl-macros-version* ¶

Package

f2cl-lib.

Source

macros.l.

Special Variable: *f2cl-pprint-dispatch* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl-statement-finfo* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl-trace* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl-version* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl1-version* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *f2cl2-version* ¶

Package

fortran-to-lisp.

Source

f2cl2.l.

Special Variable: *f2cl3-version* ¶

Package

fortran-to-lisp.

Source

f2cl3.l.

Special Variable: *f2cl4-version* ¶

Package

fortran-to-lisp.

Source

f2cl4.l.

Special Variable: *f2cl5-version* ¶

Package

fortran-to-lisp.

Source

f2cl5.l.

Special Variable: *f2cl6-version* ¶

Package

fortran-to-lisp.

Source

f2cl6.l.

Special Variable: *float-format* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *format_stmts* ¶

Package

fortran-to-lisp.

Special Variable: *fortran-extensions* ¶

A list of possible extensions for Fortran files.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *fortran-keywords* ¶

Package

fortran-to-lisp.

Source

f2cl5.l.

Special Variable: *fortran-readtable* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *function-flag* ¶

Package

fortran-to-lisp.

Special Variable: *functions-used* ¶

Package

fortran-to-lisp.

Special Variable: *implicit_vble_decls* ¶

Package

fortran-to-lisp.

Special Variable: *inp* ¶

Package

fortran-to-lisp.

Source

f2cl6.l.

Special Variable: *intrinsic-function-names* ¶

A list of all the intrinsic functions in Fortran 77 (or 95)

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *key_params* ¶

Package

fortran-to-lisp.

Special Variable: *lun-hash* ¶

Package

f2cl-lib.

Source

macros.l.

Special Variable: *non-intrinsic-function-names* ¶

A list of all names that should not be recognized as an intrinsic function. This consists of formal parameters to subprograms that would other wise be recognized as an intrinsic and anything declared as external.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *parsing-lhs* ¶

Package

fortran-to-lisp.

Special Variable: *program-flag* ¶

Package

fortran-to-lisp.

Special Variable: *promote-to-double* ¶

If non-NIL, REAL and COMPLEX variables and arrays are promoted to type REAL*8 and COMPLEX*16

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *prune_labels* ¶

Package

fortran-to-lisp.

Source

f2cl7.l.

Special Variable: *relaxed-array-decls* ¶

If T, array declarations with sizes are relaxed to be any size.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *save_vbles* ¶

Package

fortran-to-lisp.

Special Variable: *sentable* ¶

Package

fortran-to-lisp.

Special Variable: *sp* ¶

Package

fortran-to-lisp.

Special Variable: *statement-labels* ¶

Package

fortran-to-lisp.

Special Variable: *subprog-arglist* ¶

Package

fortran-to-lisp.

Special Variable: *subprog-stmt-fns* ¶

Package

fortran-to-lisp.

Special Variable: *subprog_common_vars* ¶

Package

fortran-to-lisp.

Special Variable: *subprog_name* ¶

Package

fortran-to-lisp.

Special Variable: *subprog_stmt_fns_bodies* ¶

Package

fortran-to-lisp.

Special Variable: *undeclared_vbles* ¶

Package

fortran-to-lisp.

Special Variable: *use-function-info* ¶

If non-NIL, the database of function return values is used in generating function calls and setting the argument values correctly. If the database is incorrect, the function call will be incorrect, so use caution.

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: *vble-declaration-done* ¶

Package

fortran-to-lisp.

Special Variable: *verbose* ¶

Package

f2cl-lib.

Special Variable: *verbose* ¶

Package

fortran-to-lisp.

Source

f2cl1.l.

Special Variable: +allowed-lisp-names+ ¶

Package

fortran-to-lisp.

Source

f2cl5.l.

Special Variable: +reserved-lisp-names+ ¶

Package

fortran-to-lisp.

Source

f2cl5.l.

---