Common Lisp Package: F2CL-LIB

The package holding all symbols used by the Fortran to Lisp library

README:

FUNCTION

Public

ABS (NUMBER)

Return the absolute value of the number.

ACOS (NUMBER)

Return the arc cosine of NUMBER.

ASIN (NUMBER)

Return the arc sine of NUMBER.

ATAN (Y &OPTIONAL (X NIL XP))

Return the arc tangent of Y if X is omitted or Y/X if X is supplied.

MAX (NUMBER &REST MORE-NUMBERS)

Return the greatest of its arguments; among EQUALP greatest, return the first.

Undocumented

AIMAG (C)

AINT (X)

ALOG (X)

ALOG10 (X)

AMAX0 (X Y &REST Z)

AMAX1 (X Y &REST Z)

AMIN1 (X Y &REST Z)

AMOD (X Y)

ANINT (X)

ATAN2 (X Y)

CABS (X)

CCOS (X)

CDABS (X)

CEXP (X)

CLOG (X)

CMPLX (X &OPTIONAL Y)

CONJG (C)

CSIN (X)

CSQRT (X)

D1MACH (I)

DABS (X)

DACOS (X)

DASIN (X)

DATAN (X)

DATAN2 (X Y)

DBLE (X)

DCMPLX (X &OPTIONAL Y)

DCONJG (C)

DCOS (X)

DCOSH (X)

DEXP (X)

DFLOAT (X)

DIM (X Y)

DIMAG (C)

DINT (X)

DLOG (X)

DLOG10 (X)

DMAX1 (X Y &REST Z)

DMIN1 (X Y &REST Z)

DMOD (X Y)

DNINT (X)

DPROD (X Y)

DSIGN (X Y)

DSIN (X)

DSINH (X)

DSQRT (X)

DTAN (X)

DTANH (X)

FCHAR (I)

FFLOAT (X)

FLOG (X)

FREAL (X)

FSQRT (X)

FSTRING-/= (S1 S2)

FSTRING-< (S1 S2)

FSTRING-<= (S1 S2)

FSTRING-= (S1 S2)

FSTRING-> (S1 S2)

FSTRING->= (S1 S2)

I1MACH (I)

IABS (X)

ICHAR (C)

IDIM (X Y)

IDNINT (X)

IFIX (X)

INDEX (S1 S2)

INT (X)

ISIGN (X Y)

LEN (S)

LEN_TRIM (S)

LGE (S1 S2)

LGT (S1 S2)

LOG10 (X)

MAX0 (X Y &REST Z)

MAX1 (X Y &REST Z)

MIN0 (X Y &REST Z)

MIN1 (X Y &REST Z)

NINT (X)

R1MACH (I)

SIGN (X Y)

SNGL (X)

ZSQRT (X)

Private

CLOSE-FORTRAN-IO

Close all F2CL Fortran units (except for standard output and input) causing all pending operations to be flushed

INIT-FORTRAN-IO

Initialize the F2CL Fortran I/O subsystem to sensible defaults

Undocumented

%CLOSE (&KEY UNIT STATUS)

%OPEN-FILE (&KEY UNIT FILE STATUS ACCESS FORM RECL BLANK)

%REWIND (UNIT)

AMIN0 (X Y &REST Z)

ASSIGNED-GOTO-AUX (TAG-LIST)

CHECK-ARRAY-BOUNDS (INDICES BOUNDS)

COL-MAJOR-INDEX (INDICES DIMS)

COMPUTED-GOTO-AUX (TAGS)

CONVERT-INT-SUB (ARGS)

CTAN (X)

DDIM (X Y)

EXECUTE-FORMAT (TOP STREAM FORMAT ARG-LIST)

EXECUTE-FORMAT-MAIN (STREAM FORMAT &REST ARGS)

F2CL-STRING (STRING LEN)

FIND-ARRAY-DATA (ARRAY)

FLATTEN-LIST (X)

FORTRAN-FORMAT (STREAM ARG COLON-P AT-P &REST ARGS)

FORTRAN-FORMAT-G (STREAM ARG COLON-P AT-P &REST ARGS)

IDFIX (X)

LLE (S1 S2)

LLT (S1 S2)

LUN->STREAM (LUN &OPTIONAL READP)

MAKE-LABEL (N)

MULTI-ARRAY-DATA-AUX (ARRAY-INFO BODY)

PROCESS-IMPLIED-DO (IDO ARRAY-BNDS VAR-TYPES INIT)

STOP (&OPTIONAL ARG)

MACRO

Public

Undocumented

ARITHMETIC-IF (PRED S1 S2 S3)

ARRAY-INITIALIZE (TYPE DIMS DATA)

ARRAY-SLICE (VNAME TYPE INDICES BOUNDS &OPTIONAL OFFSET)

ASSIGNED-GOTO (VAR TAG-LIST)

COMPUTED-GOTO (TAG-LST I)

DATA-IMPLIED-DO (IMPLIED-DO ARRAY-BNDS VAR-TYPES VALS)

F2CL-// (A B)

F2CL-COPY-SEQ (DST SRC DST-TYPE SRC-TYPE)

F2CL-INIT-STRING (DIMS LEN &OPTIONAL INITS)

F2CL-SET-STRING (LHS RHS (STRING LEN))

F2CL/ (X Y)

FDO (DO_VBLE_CLAUSE PREDICATE_CLAUSE &REST BODY)

FFORMAT (DEST-LUN FORMAT-CILIST &REST ARGS)

FORTRAN_COMMENT (&REST ARGS)

FREF (ARR INDICES BOUNDS &OPTIONAL OFFSET)

FREF-STRING (S RANGE)

FSET (A B)

FSET-STRING (A B)

INT-ADD (ARG &REST MORE-ARGS)

INT-MUL (ARG &REST MORE-ARGS)

INT-SUB (&REST ARGS)

MAKE-COMPATIBLE-SEQ (TYPE ARRAY ARRAY-TYPE)

WITH-ARRAY-DATA ((DATA-VAR OFFSET-VAR ARRAY) &REST BODY)

WITH-MULTI-ARRAY-DATA (ARRAY-INFO &REST BODY)

Private

Undocumented

CLOSE$ (&KEY UNIT IOSTAT ERR STATUS)

OPEN-FILE (&KEY UNIT IOSTAT ERR FILE STATUS ACCESS FORM RECL BLANK)

REWIND (&KEY UNIT IOSTAT ERR)

WHILE (CON &REST BODY)

VARIABLE

Public

*CHECK-ARRAY-BOUNDS*

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

*STOP-SIGNALS-ERROR-P*

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

Private

Undocumented

*F2CL-MACROS-VERSION*

*LUN-HASH*

CONSTANT

Public

Undocumented

%FALSE%

%TRUE%