Part 4 - Analysis of the
FORTRAN
Program
Subroutines
58
This
part
of
the
manual
is
intended
to assist experienced programmers
in
under-
standing, modifying,
and
testing
FORTRAN
programs.
It
is assumed
that
the
reader
has
had
previous experience
in
programming,
and
has some knowledge
of
the
1620 Symbolic Programming System,
if
subroutines
other
than
those
provided
by
FORTRAN
are
to
be
added.
The
FORTRAN
subroutine
deck
or
tape
contains thirty-one subroutines.
Up
to
nineteen additional subroutines
may
be
added
at
the
user's option.
It
is entirely
feasible for several subroutine decks
or
tapes to
be
maintained
by
an
installation
when
it
is desirable to
have
several sets of optional subroutines available.
Four
different subroutine sets
are
available:
Option A
(Set
2)
For
systems with Automatic Divide feature.
Option B
(Set
3)
For
systems with Automatic Divide and Automatic Floating
Point special features.
Option C
(Set
4)
For
systems with Automatic Divide, Automatic Floating
Point,
Indirect
Addressing,
and
Additional Instructions special
features.
Option D
(Set
1)
For
systems without Automatic
Divide,Automatic
Floating
Point,
Indirect
Addressing,
and
Additional Instructions special
features.
The
subroutines
are
classified
as
follows:
Type 1: Automatically compiled, used
by
the
FORTRAN
system only;
not
directly available to
the
programmer.
Type 2: Automatically compiled if used in
the
source program, or
used
by
the
system; available to
the
programmer.
Type
3: Not used
by
the
system, automatically compiled if used
by
the
programmer.
Symbolic
Subroutine Name Operation
Type
Floating
Add
FAD
A + B
1
Floating Subtract
FSB
A - B
1
Floating Multiply
FMP
A * B
1
Floating Divide
FDV
A/B
1
Reverse Floating Divide
FDVR
B/A
1
Floating
A**B
FAXB
A**B
1
Floating A
**B(-B)
FAXBN
A **(-
B)
1
Fixed
Add
FXA
1 + J
1
Fi
xed Subtract
FXS
I - J
1
Fixed Multiply
FXM
1 * J
1
Fixed Divide
FXD
I/J
1
Load
Into
FAC
TOFAC
1
Store
from
FAC
FMFAC
1
Reverse Fixed Divide
FXDR
J / I
1
A**I
FAXI
A**I
1
A **(-1)
FAXIN
A **(-1)
1
Convert Sign
RSGN
-A 1
Floating Natural
Log
FLN
LOG(A) 2
Floating
Exp(A)
FEXP
EXP(A)
2
Floating Square
Root
FSQR
SQRT(A)
3
Floating Sine
FSIN
SIN(A) 3
Floating Cosine
FCOS
COS(A)
3
Floating Arctangent
FATN
ATAN(A)
3
Convert: float-to-fi x
FIX
FIX(A)
1
Convert:
fi
x-to-float
FLOAT
FLOAT(I)
1
Read
Card
RACD
1
Read
Tape
RAPT
1
Read
Typewriter
RATY
1
Write Card
WACD
1
Write Tape
WAPT
1
Write Typewriter
WATY
1
To Next Page
Loading...
Need help?
General
