Sender: MARS (Fangq), Word Area: Mathtools Title: F77 Fortran-77 Informationn [ZZ] Send Station: Dharma Biggreen BBS (THU DEC 12 02:39:19 2002), station letters
F77 Fortran-77 Informationen
ASSIGN statement-label TO integer-variableBACKSPACE (unit [, IOSTAT = ..., ERR = label]) ein Record zurueckBLOCKDATA [name] block-data-subprogramCALL subroutine-name [([aktuelle Argumente])] CHARACTER [* n] = String aus n (> = 1) 8-bit-characters ('...''...') close (unit [, iostat = v_int * 4, status = ..., err = label]) Common [ / Name /] Common-item-listcomplex = complex * 8 (2 REAL * 4) ContinueData variable-list / constant-list / dimension (Up to 7 Dimensions) Do Statement-Label Variable = Initial-Val., Terminal-Val. [, increm.] DoublePrecision = Real * 8, AUF 16 Stellen Genau, Bereich D ( -) 308ELSEELSEIF (Logical-Expression) endendfile (unit [, iostat = ..., err = label]) Schreibt Eof-markendifeName [ ([dummy-Argumente])] EQUIVALENCE (equiv-item, equiv-item) EXTERNAL external-procedure (. zur Spezifikation externer Proz) FORMAT (format-list) FUNCTION - [type] FUNCTION name ([dummy-Argumente]) GOTO Statement-Number | Assigned Goto | Goto (Label-List) [,] INT.IF - Arithmetic-IF | Logical-IF | Block-IFIF (Ari THM. EXP.) Label, Label, Label (FUER LT, EQ, GT 0) IF (log. Exp.) Executable-Statementif (LOG. EXP.) The (Mit Elseif, Else, Endif) Implicit Integer (in) ZB; entspricht default) Include 'filename' [not standard] inquire ([, iostat = v_int * 4, recl = v_int * 4, ...]) Integer = INTEGER * 4 (Oder Integer * 2 BEI Compiler-Option / i ) Intrinsic Intrinsic-functionLogical = Logical * 4, .false. Oder .true. (F Oder T I / O) open (unit [, iostat = v_int * 4, recl = int * 4, file = name, status =. ..,]) Parameter (constant-name = expression, ...) pause [Digit-string | Character-constant] (->
DOS) Print Format-ID. [, IOList] ProgramRAM NameRead (Read-Write-Control) [IOLIST] | Read format-id. [, IOList] read (unit [, format, r = ..., iostat = .. ., End = label, err = label]) Real = Real * 4, AUF 7 Stellen Genau, Bereich E ( -) 38 RETURN [Integer-Expression] REWIND (Unit [, iostat = ..., err = label]) Zum Anfang Des Filessave [/ Block-Name / Variable-Name] stop [DIGIT-STRING | Character-Constant] Subroutine Name [(Dummy-Argument)] to (VGL. Assign) Write (Read-Write-Control) [IOLIST] Write (Unit [Format, Rec = ..., iostat = ..., err = label])
ABS (X) | X | R (R) ACOS (X) Arccos (X) R (R) AIMAG (X) IM (X) R (C) AINT (X) INT (X) R (r) Alog (X ) Ln (x) r (r) AMAX0 (X, Y, ...) MAX0 (I) Amax1 (x, y, ...) Max R (R) Amin0 (x, y, ...) MIN R (I) AMIN1 (X, Y, ...) MIN R (R) AMOD (X, Y) MOD (X / Y) R (R) Anint (x INTATAN (X) Arctan (X) R (R) ATAN2 (X, Y) Arctan (X / Y) R (X) arctan (x) R (R) ATAN2 (X, Y) Arctan (X / Y) R (R) BTEST (X, Y) TRUE IF BIT Y IN X IS 1 L (i) CABS (X) ABS (X) R (C) CCOS (X) COS (X) C (C) CEXP (X) Exp (x C (C) CHAR (X) CHARACTER CHAR (i) Clog (x) ln (x) c (c) CMPLX (X [Y]) Complex (RE, IM) C (...) conjg (x) CMPLX (RE,-IM) C (C) Cos (X) Cos (X) R (R) Cosh (x) Cosh (X) R (R) Csin (x) SIN (X) C (C) CSQRT (X) SQRT (X) C (C) DABS (X) | X | D (D) Dacos (X) Arccos (X) D (D) Dasin (x) Arcsin (x D (d) Datan (X) Arctan (X) D (D) Datan2 (x, y) Arctan (X / Y) D (D) DBLE (X) Double PREC. D (...) DCOS (X) COS (X) D (D) DCOSH (X) COSH (X) D (D) DDIM (X, Y) XY IF> 0 D (D) DEXP (X) Exp (X) D (D) DIM (X, Y) XY IF>
0 R (R) DLOG (X) LN (X) D (D) DLOG10 (X) Max D (D) DLOG (X) LG (X) D (D) DMAX1 (X) MAX D (D) DMIN1 (X) MIN D (D) DMOD (X, Y) MOD (X / Y) D (D) DNINT (X) INT (x -0.5) D (d) DPROD (X, Y) x * y D ( R) DSIGN (X, Y) | X | * SIGN (Y) D (D) DSIN (X) SIN (X) D (D) DSINH (X) SINH (X) D (D) DSQRT (x) SQRT ( X) D (d) DTAN (X) TAN (X) D (D) DTANH (X) Tanh (X) D (D) Exp (X) Exp (X) R (R) Float (x) Real R (i ) Hfix (x) Short Integer h (...) i (x, y) Logical Product i (i) IABS (x) | x | i (i) ibchng (x, y) Reverse Bit Y in x i (i IBCLR (X, Y) SET Y IN X to 0 I (i) IBSET (X, Y) SET Y IN X To 1 I (i) Ichar (Char) ASCII I (Char) IDIM (X, Y) XY IF> 0 i (i) iDint (x) INTEGER I (D) Idnint (x) Int (x 0.5) i (d) Ieor (x, y) Exclusive OR i (i) IFIX (x) Integer i (r) Index (A1, A2) INDEX (A2 in A1) I (X) INTEGER I (X, Y) Inclusive or i (i) ISHA (X, Y) Shift X Arithmetical Left Y Bits I (i) ISHC (X, Y) Rotate X Left Y Bits I (i) ISHFT (x, y) = ISHLISHL (X, Y) Shift X Logical Left Y Bits I (i) ISign (x, y) | x | * SIGN (Y) i (i) jfix (x) Long Integer J (...) LEN (A) Lex (> =) LEX (>) LGT (A, B) Lex (>) LEX (>) LEX (>) LEX (>) LEX (>) LEX (>) LLE (a, b) lex (<=
) L (CHAR) LLT (A, B) LEX (<) L (X) Ln (X) R (R) (?) LOG10 (X) LG (X) R (R) (?) MAX (x, y, ...) MAX I (i) (?) MAX0 (X, Y, ...) MAX I (i) Max1 (x, y, ...) max i (r) min (x , Y, ...) min i (i) min0 (x, y, ...) MIN i (i) min1 (x, y, ...) min i (r) mod (x, y ) MOD (x / y) I (i) NINT (x) INT (x 0.5) I (r) Real (x) Real R (i) Sign (X, Y) | X | * SIGN (Y) R ( R) SIN (X) SIN (X) R (R) SINH (X) SINH (X) R (R) SNGL (X) Real R (D, C) SQRT (X) SQRT (X) R (R) TAN (x) TAN (X) R (R) Tanh (x) Tanh (X) R (R) - ☆ Source:. Green bbs.dartmouth.edu. [From: mars.bbs@bbs.dartmou]