1.6.056_Plot_Subroutine_for_FORTRAN_with_Format 1.6.056 Plot Subroutine For FORTRAN With Format

1.6.056_Plot_Subroutine_for_FORTRAN_with_Format 1.6.056_Plot_Subroutine_for_FORTRAN_with_Format

User Manual: 1.6.056_Plot_Subroutine_for_FORTRAN_with_Format

Open the PDF directly: View PDF .
Page Count: 12

W

1620

GENERAL

PROGRAM

LIBRARY

Pl

ot

Subr

o

utine

for FOR'IRA N

with

Format

1. 6. 056

,.I

n

---

-

1

************

~

.

***********

*

IBft

* * * * * * * * * * *

"")wc-J~

*

~

~

* * * * * * * * * * *

*************

*************

*************

*************

*~)****~)****'**

r"

DISCLAIMER

Although each"

program

has

been

tested

by

its

contributor,

no

warranty,

express

or

implied,

is

made by the

contributor

or

1620 USERS Group,

as

to the

accuracy

and functioning

of

the

program

and

related

program

material,

nor

shall

the fact

of

distribution

constitute

any such

warranty,

and

no

responsibility

o

~

is

assumed

by the

contributor

or

1620 USERS Group,

in

con-

0

nection therewith.

""

Modifications

or

revisions

to

this

program,

as

they

occur,

will

be announced

in

the

appropriate

Catalog of

Programs

for

IBM

Data

Processing

Systems.

When

such

an

announce-

ment

occurs,

users

should

order

a complete new

program

from

the

Program

Information

Department.

o

..

c,

0

o

1620 USERS GROUP Pl\OORAM REVIEW

AND

EVALUATION

"

(fill out

in

typewriter

or

pencil,'

do

not

use

ink)

Program

NOe

_______

_

Da~

____________

__

Pro

qr

am

Name:_'

__

----------------------------

________________________

___

1.,

Does the

abstract

adequately

describe

what the

program

is

and what

it

does?

'

,Comment~

______________________________________

~----

2.

Does the

program

do

what the

abstract

says?

Comment

3.

Is

the

Description

clear,

understandable, and adequate?

Comment'

4.

Are'the

Operating

Instructions

understandable and

in

sufficient

detail?

Comment

Are

the Sense Switch options adequately

described

(if

applicable)?

Are

the mnemonic

labels

identified

or

sufficiently

understandable?

Comment

5.

Does the

source

program

compile

satisfactorily

(if

applicable)?

Comment

6.

Pees

the

object

program

run

satisfactorily?

Comment

7.

Number of

test

cases

run

•

Are

any

restrictions

as

to data,

Size,

range,

etc.

covered

adequately

in

description?

Comment

8. Does the

Program

Meet

the

minimal

standards

of the 1620

Users

Group?

Comment

--------------~------------------------------

9. Were

all

necessary

parts

of the

program

received?

Comment

----------------------------------------------

Yes_

No

-

Yes

No

--

Yes_

No

-

Yes

No

-

Yes_

No

-

Yes_

No

-

Yes_

No_

Yes_

No_' _

10.

Please

list

on the

back

any suggestions to

improve

the

usefulness

of

the

program.

These

will

be

passed

onto the author

for

his

consideration.

Please

return

to:

Mr.

Richard

1..

Pratt

Data Corporation

7500 Old Xenia

Pike

)

Dayton, Ohio 45432

Your Name

Company

Address

User

Group

Code

_____________

_

THIS REVIEW FORM

IS

PART OF THE 1620

USER

GROUP ORGANIZATION'S PROGRAM

REVIEW

AND

EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED

TO

PARTICIPATE

1N

THIS

EVALUATION.

11/09/64

II

o

o

o

Plot

Subroutine

for

FORTRAN

W/Format

John

H.

Reynolds

Sprague

Electric

Company

Marshall

Street

North

Adams,

Massachusetts

(Formerly Worcester Polytechnic

Institute)

August 31, 1962

Direct

Inquiries

to:

Kurt

V. Schoeni

Senior

Mathematician,

Sprague

Electric

Company

Marshall

Street

North

Adams,

Massachusetts

~

o

DECK KEY

1.

Source

Deck

2. Sample

Problem

Deck

o

TABIB

OF

COltTDJ.'S

Abstract

Description

of

Program

Operating

Instructions

Plot

Subroutine

Sample Problem

Program

Listing

Core Layout

Adding

the

Subroutine

to

the

System

Page

o

1-2

2

3-4

5-6

7-8

9

9

c)

-0-

.

l6Z0

USERS

Group

Library

Program

Abstract

Title

(If

subroutine

state

in

Title)

Plot

Subroutine

for

FORTRAJf

"With

Format

-

Subject

Classification

1.6

Author;

Organization:

John

H.

Reynolds SPrague

Electric

CODIDan.V,·

formallY

Po~echnic

Institute

Direct

Inquires

to:

Name

lOlrt V.

Schoeni

2

Senior

Mathematician

Addre

ssSprague

Electric

Co.

YB~sha]]

St~et,

BQ~

Adama.

MB&fi~ug~~t§

Phone

EXtension

~

Purpose/Description:

This

subroutine

produces

output

on

the

on

line

typewriter

rapidl.v

and

in

gra,1Jhical form.

It

1Jlots

UD

to

six

functions

with

an

accuracy

UD

to

0.7'1>.

Mathematical

Method:

B A.

Restrictions,

Range:

First

two

statements

of

soUrce

pro~

are

apecified.

~

function

IIIIlSt

be

normalized

so

that·

its

rarure

is

"Within.

the

. number o.f_sD&ces

available

on

the

typewriter.

Begati

ve

numbers

are

aCCepted

but

are

notlllotted.

Storage

Requirements:

R1?

lliritR

Equipment

Specifications:

Memory

ZOK

l

40K

__

60K

__

K

__

Automatic

Divide:

Yes

__

No

X

Indirect

Addressing:

Yes

__

No

--X....

Other

Special

Features

Required_

Additional

Remarks

(Include

at

author's-

descretion:

Language;

Fixed/Float.

Relocat-

ability)

(Optional:

Running

time;

Approximate

numbers

of

times

run

successfully;

Pro-

gramming

Hours)

T ....

nD"lIA

....

•

SPS

(Card)

FloatlIu!:

Point

Relocatable

RurininP.:

Time·

AD1Jraximate~v

2/3

the

time

reauired

for

a

similar

FORTRAN

print

statement.

c

o

-1-

Description

of

Program

'lhe

plot

subroutine

will

plot

up

to

six

functions

of

a

single

independent

variable

on

the

on-line

typewriter.

Tbe

independent

variable

must

be

challged

-

by

constant

increments.

'lhe

function

must

be

n0I'lll&1ized

so

that

its

range

does

not

exceed

the

number

of

spaces

in

the

plot

area.

'lhis

places

an

upper

limit

of

86.

on

the

normalized

function.

The

function

~

be

any

negative

number.

-BUt

~-

in

this

case

it

will

not

be

plotted.

Tbe

subroutine

is

called

by

a

statement

in

the

FORTRAJf

source

program

which

has

the

form:

Y =

PLT(X)

'lhe

argument,

X,

may

be

anyfioating

point

constant,

variable,

or

expression.

'lhe

subroutine

rounds

off

the

argument

to

its

integral

value.

The symbol

associated

with

this

statement

is

typed

If

spaces

to

the

right

of

margin

of

the

plot

area.

1f

is

the

rounded

off

value

of

the

argument.

Tbe symbol

is

chosen

by

the

progranrner.

Y

is

also

set

equal

to

X.

Several

functions

may

be

plotted

by

the

use

of

multiple

plot

statements.

Each

statement

is

independent

of

the

others.

'lhey

may

be

placed

aDYWhere

in

the

program

and

need

not

be

consecutive.

'lhe

arguments

do

not

need

to

be

ordered.

Tbe

subroutine

will

round

off

the

argument and

store

it.

If

there

are

further

:f'unctions

to

be

plotted,

it

will

return

to

the

next

statement.

If

there

are

no

further

functions,

the

subroutine

will

plot

the

entire

group

in

one

continuous

operation.

'lhe

subroutine

does

not

produce

a

carriage

return.

Therefore,

the

last

plot

statement

must

be

preceeded

by

a

pri:&t

-

statement.

The

format

of

the

print

statement

must

produce

blank

spaces

to

the

right

of

any

numerical

output.

If

no

numerical

output

is

required,

a

statement

of

the

form:

FRDIT

X,

will

cause

a

carriage

return.

'lhe

first

two

statements

in

the

source

program

have

the

.form:

n1 M = j

~

FORMAT(jBS

1

S2S3

···S

j)

where n 1

and

n2

are

statement

numbers. M

is

a

fixed

point

variable

which

is

set

equal

to

the

number

of

function

to

be

plotted.

M may

be

modified

later

in

the

program

but,

this

may

not

be

done

within

any

group

of

plot

statements.

o o

-2-

The

format

statement

defines

the

symbols

to

be

plotted.

They

msy

be

any

alphanumeric

symbols

except

the

period

and

close

parenthesis.

'lhe symbols

may

be

changed

after

the

object

program

is

loaded

by

using

this

format

in

an

input

statement.

However,

this

must

be

done

before

the

first

plot

statement

is

executed.

Operating

Instructions

Tab

stops

must

be

set

every

ten

spaces

to

the

:z:oight

of

the

margin

of

the

plot

area.

--I

rr1n

nO

:r:~

Z-o

OC

.--1.

O,~

G)

-<

o

~

ROil,. 0

on,

f.'X

t£TOU

~

....

-

-3-

Plot

SUbrcNtiM

i

...

,,,

T

S1M8el.

."

OVlPU

T

---,--

'tlp£

.

~OUTPtJT

.

CLC"R

OUTPUT

~

c··

.....

UnoA!

SII8

f!OUi'S,

6

ft~It(."

'o~"I~

PftO(;ft'>1I:\

~-~

~

o

"

~

o

-6-

-5-

SalQpl.e Probl.em.

25.00*R5

I·

2O.00f

I

19.55 s I

19.45~5

I

ENTER

S~URCE

PR~GRAM,

PUSH

START

50.00*R5

10.00*R5

-10.00*R-S

l)8300

1

N=1

88324 9

F~RMAT(~HISC)

25.00*R5

8354 2

ACCEPT

,~

08478 8

F~RMAT(F10.1)

l)8

00

DUM=PLT(X)

l)8424

IF(SENSE

SWITCH

1)2,3

+0

S C

l)8444

3

N=3

+10

I S C

l)8468

D~

4

M=1~361jtO

+20

I S C

08480

AXIS=PLT

25.

+30

I S C

l)8504

X=M-1

+40

I S C

l)8552

S=PLT(25.*SIN(X*.01745)+25.)

+50

I C S

l)8636

MPR=M-1

+60

I c S

08672

PRINT

7,MPR

+70

I C S

08696 7

F~RMAT(15

5X)

+80

I C S

08736 4

C=PLT(25.*C~S(X*.01745)+25.}

+90

c S

08856

ST~P

+100

C I S

08904

END

+110

C I S

+120

C I S

PR~G

SW

1

~NF~R

SYMB~L

TABLE,

PUSH

START

+130

C I S

SW

1

~FF T~

IGN~RE

SUBR~UTINES,

PUSH

START

+140

C I S

1620

F~RTRAN

SUBR.

9/30/61

+150

C I S

+160

c I S

PR~CESSING

C~MPLETE

+170

C I S

+180 C S

+190

C S I

+200

C S I

+210

C S I

+220

C S I

+230

S C I

+240

S C I

+250

S C I

+260

S C I

+270

S C

+280

s I C

+290

S I C

+300

S I C

+310

S I C

+320

S I C

+330

S I C

+340

S I c

+350. s f C

+360

S C

ST~P

,,-

-7-

Plot

SubroIIt1De

w/Foz:at

-8-

03090PRINT

BNF

*+15*12,X+4,0 , 05528

1i4

05708 19873

01010

O~RG

5000 05000

03091

TFM

*+23,~UTPUT+17,07

05540

T605563

00096

01020ENTER

AM

X+

7,

3*12

,

10

05000

11

19876 00036 03092

BO

*+36,~UTPUT+17,07

05552

1+3

05588

00~~6

01030

TF

O~L~~P,N,O

05012.~6

05119 19849

03093

SM

*-1 2,010 05564

T2

05563 000 2

01040

TF

L~~P

,N,O 05024 26

05371

19849 03094 B

*-24,,0

05576

1+9

05552 00000

01070REAOIN

SM

O!:L!:!:P,l,01O

050~6

T2

05119

00001

03095

CM

*-25,92,07

05588

T4

05563 00092

01080

TF

'T~FACI-l,X

050 8

26

0123719869 03095

BNL

*+5*12, 0 05600

1+6

05660 01300

01090

TFM

T:FAC~+6,*+5*12,

17

05060

lb

0130405120 03096

AM

*-4*12-1,3,010

0561'2

T1

05563

00003

01100

TOM

T: FAC:+l, 9

05072

15

01299 00009 03097

TF

*+18,*-5*12-1

01

05624

~

05642

05563

01110

TOM

FAO~UT+l,9

05084

15

01195

00009 03098

TR

~UTPUT+17,~UTPUT+20

05636

~

00096

00099

01111

TFM

FAO~UT+6,*+6*12,17

05096

lb

01200 05168 03099

Bo

*+24,LCCP,01 05648 3 05672

05371

01130 B

T~FAC

I 05108

49

01238 00000 03010

CF·

X+4

05660

3319873

00000

01131

TFM

FAOIN-l

,C:NST,

17

05120

1b

00517 05407 03115

WATY

CUTPUT

05672 3f 00079

00100

01131

BNF

FAOIN,FAC-2

05132

44

00518

000~8

03120

TR

CUTPUT-2,CLEAR-2,1

05684

~

00077

05787

01132

SM

L~:P,

1,010 05144

T2

05371

00001

03130

BNF

*+36,X+4,0 05696 4 05732

19873

01140

SF

FAC-3,

,10

05156

22

00057 00000 03140

TBTY

05708

34

00000

00108

01141

TO

*-1,FAC-2,0 05168

25

05167

000~8

03141

CF

x+4

05720

~

19873 00000

01142

CM

*-13,5,010

05180

T4

05167

000

5 03150

BO

SETUP,LCCP,Ol

05732 3 05288 0531'

01143

BL

*+24,,0

05192

Ii7

05216 01300

03151

SM

X+7,3*12,10 05744

12

19876

00036

01144

AM

FAC-3,1,10 05204

11

0005700001 03160

TOM

TCFACC+1,2

0575615

01299 00002

01150

SF

FAC-4

05216

i2

00056 00000

03161

TOM

FAOCUT+l,2

05768

15

01195

00002

01160

SM

*+18,2,010 05228 2 05246 00002

03170ENO

B

TCFACI

05780

49

01238 00000

01170

TF

XSAVE

FAC-3

05240

26

08344 00057

03180CLEAR

OAC

11

,

~,*-2

05789

00011X2

J'-.

01180

BD

END-24,DCL!:CP,01

05252

Ii3'

05756 05119

031900CLCCP

OS

,READ

I

N+6*12+11

05119 00000

01190

TFM

*-18,XSAVE,07 05264

T6

05246 08344

03200LCCP

os

,TRANS-13

05371

00000

01200

TR

~UTPUT-2,CLEAR-2.1

05276

21

00077 05787

040100C

OS

,PRINT+5*12-1 . 05587 00000

02010SETUP

TF

O:,N,O 05288

26

05587 19849

04020CCNST

OS

,TRANS+23

05407 00000

02020

TFM

*+3*12+",XSAVE,07 05300 16 05347 08344

04030X

OS

,19869 19869 00000

02030

SM

0:,1,010

05312

T2

05587

00001

04050N

OS

,19849 19849 00000

02040

SM

*+23,2,010 05324

T2

05347 00002

04140XTEMP

OS

,PRINT+12*12-1

05671

00000

02050

TF

XTEMP,XSAVE,07

05336 26

05671

08344

04060XSAVE

OS

,8344 08344 00000

02051

BNF

*+24,XTEMP,01

05348

IiIi

05372

05671

04070CUTPUT

OS

,79 00079 .00000

02052 B

PR

I

NT-12"

0 05360

Ii2

05516 00000

04080TCFACI

OS

j 1238 01238

OOOOO~

02060

BO

SUB,XTEMP-l,Ol

05372

Ii3

05480

05

610

·04090TCFACC

OS

,1298 01298 00000

020-70TRANS

SM

L::P,1,01O

05384

T2

05371 00001

04100FADIN

os ,518 00518 00000

02100

SF

X+4,7,210 05396

22

T9873

00007

04110FAOCUT

OS

,1194 01194 00000

02110

TFM

sUB-6,:UTPUT,07 05408

16

05474 00079

04120FAC

OS

,60

00060 00000

02126

TFM

SUB-l,SYMB:L+XSAVE-2,07

05420

T6

05479

T6686

04130SYMBCL

os ,8344

08344-

00000

02130 S SUB-l,TRANS-3*12-1,Ol 05432

22

05479 05347 04150

OEND

5000 05000

02140 A *+24+6,

XTEMP,

01

05444

2T

05474

05671

02150 A

*+18,XTEMP,01

05456

2T

05474

05671

02160

TF

:UTPUT,SYMS:L+XSAVE-2

05468

26

0007916686

03060SUB

SM

XTEMP.l0,010 05480

T2

05671

oooTo

03070

TF

*+18,TRANS-3*12-1,01 05492

2b0551

0 05347

03071

TF

.

XSAVE,

XTEMP,

1 05504

2b

08344

05671

03080

BO

SETUP+24,DC.Ol

05516

Ii3'

05312

05587 .

. j

o

-A

~~/J

o·

o

-9-

Core

Layout

The

location

of

the

subroutine

is

determined

by

the

FOR'l'RAK

compiler.

The symbols

start

at

location

8343

and

continue

to

higher

order

locations.

The numbers

to

be

plotted

are

stored

in

two

digit

fields

starting

at

location

8342

and

continuing

to

lower

order

locations.

Adding

the

Subroutine

to

the

System

The

symbols,

TOFACI

and

TOFACO,

in

the

program

list

refer

respectively

to

the

locations

of

first

executib1e

statement

and

the

exit

statement

of

the

TOFAC

subroutine.

FADIN

and

FADOUT

are

the

locations

of

the'

corresponding

statements

of

the

FAD

subroutine.

The

location

of

these

statements

in

users

.

system

should

be

determined.

X

is

the

location

of

the

address

of

the

argument.

It

is

found from

the

formula:

X = 19989 -

2O(NH

-

1)

where

NN

is

the

plot

subroutine

number.

N

is

the

address

of

the

second

item

in

the

symbol

table

following

the

subroutine

1iDkages.

It

is

found from

the

formula:

N = 19989 -20 •

MM

where

MM

is

the

subroutine

number

of

the

~

subroutine

in

the

system.

~

~ o •

j,

__________________________________________

IIIiII

______

_

COMPUTER

TECHNOLOGY

411

~

...

Ci

o

o

THE

COMPUTER

MUSEUM

HIST

1111111111111111111111

I111I

111111111111111

~~~lllrTER

1 026 2031 8