Table of Contents
Advertisement
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
Advertisement
Table of Contents
