入力
$JOB QUADRATIC EQUATION
$EXECUTE FORTRAN
* ID QUAD
* XEQ
C SOLUTION OF QUADRATIC EQUATION
C (P. 122 OF A FORTRAN PRIMER BY E. ORGANICK)
1 READ INPUT TAPE 5, 51, ANAME, N
51 FORMAT(A6,I2)
WRITE OUTPUT TAPE 6, 52, ANAME
52 FORMAT(1H1,33HROOTS OF QUADRATIC EQUATIONS FROM A6)
DO 21 I = 1, N
READ INPUT TAPE 5, 53, A, B, C
53 FORMAT(3F10.2)
WRITE OUTPUT TAPE 6, 54, I, A, B, C
54 FORMAT(1H0,8HSET NO. I2/5H A = F8.2,12X,4HB = F8.2,12X,4HC = F8.2)
IF (A) 10, 7, 10
7 RLIN = -C/B
WRITE OUTPUT TAPE 6, 55, RLIN
55 FORMAT(7H LINEAR,25X,4HX = F10.3)
GO TO 21
10 D = B**2 - 4.*A*C
IF (D) 12, 17, 17
12 COMPR = -B/(2.*A)
COMP1 = SQRTF(-D)/(2.*A)
COMP2 = -COMP1
WRITE OUTPUT TAPE 6, 56, COMPR, COMP1, COMPR, COMP2
56 FORMAT(8H COMPLEX,21X,7HR(X1)= F10.3,11X,7HI(X1)= F10.3,/1H ,28X,
17HR(X2)= F10.3,11X,7HI(X2)= F10.3)
16 GO TO 21
17 REAL1 = (-B + SQRTF(D))/(2.*A)
REAL2 = (-B - SQRTF(D))/(2.*A)
20 WRITE OUTPUT TAPE 6, 57, REAL1, REAL2
57 FORMAT(6H REAL 25X,5HX1 = F10.3,13X,5HX2 = F10.3)
21 CONTINUE
WRITE OUTPUT TAPE 6, 58, ANAME
58 FORMAT(8H0END OF A6)
GOTO 1
END
* DATA
J.DOE 4
2. 4. 1.
2. 4. 3.
0. 5.67 -11.83
536.28 -275.61 2.11
sim> do do_ibsys.txt quad.job out
date.txt
quad.job
eof.dat
ibsys.ctl
1 個のファイルをコピーしました。
CDR: unit is read only
CDP: creating new file
LPT: creating new file
MTA: creating new file
MTA: creating new file
MTA: creating new file
MTA: creating new file
MTA: creating new file
MTA: creating new file
MTA: creating new file
HALT instruction, PC: 07465 (SXA 7510,4)
sim>
全出力
$LIST
$DATE 051819
$JOB QUADRATIC EQUATION
$EXECUTE FORTRAN
* ID QUAD
* XEQ
SOLUTION OF QUADRATIC EQUATION 5/18/19 PAGE 1
C (P. 122 OF A FORTRAN PRIMER BY E. ORGANICK)
1 READ INPUT TAPE 5, 51, ANAME, N
51 FORMAT(A6,I2)
WRITE OUTPUT TAPE 6, 52, ANAME
52 FORMAT(1H1,33HROOTS OF QUADRATIC EQUATIONS FROM A6)
DO 21 I = 1, N
READ INPUT TAPE 5, 53, A, B, C
53 FORMAT(3F10.2)
WRITE OUTPUT TAPE 6, 54, I, A, B, C
54 FORMAT(1H0,8HSET NO. I2/5H A = F8.2,12X,4HB = F8.2,12X,4HC = F8.2)
IF (A) 10, 7, 10
7 RLIN = -C/B
WRITE OUTPUT TAPE 6, 55, RLIN
55 FORMAT(7H LINEAR,25X,4HX = F10.3)
GO TO 21
10 D = B**2 - 4.*A*C
IF (D) 12, 17, 17
12 COMPR = -B/(2.*A)
COMP1 = SQRTF(-D)/(2.*A)
COMP2 = -COMP1
WRITE OUTPUT TAPE 6, 56, COMPR, COMP1, COMPR, COMP2
56 FORMAT(8H COMPLEX,21X,7HR(X1)= F10.3,11X,7HI(X1)= F10.3,/1H ,28X,
17HR(X2)= F10.3,11X,7HI(X2)= F10.3)
16 GO TO 21
17 REAL1 = (-B + SQRTF(D))/(2.*A)
REAL2 = (-B - SQRTF(D))/(2.*A)
20 WRITE OUTPUT TAPE 6, 57, REAL1, REAL2
57 FORMAT(6H REAL 25X,5HX1 = F10.3,13X,5HX2 = F10.3)
21 CONTINUE
WRITE OUTPUT TAPE 6, 58, ANAME
58 FORMAT(8H0END OF A6)
GOTO 1
END(1,0,0,0,0,0,1,0,0,1,0,0,0,0,0)
SOLUTION OF QUADRATIC EQUATION 5/18/19 PAGE 2
STORAGE NOT USED BY PROGRAM
DEC OCT DEC OCT
228 00344 32561 77461
STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT
DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT
ANAME 227 00343 A 226 00342 B 225 00341 COMP1 224 00340 COMP2 223 00337
COMPR 222 00336 C 221 00335 D 220 00334 I 219 00333 N 218 00332
REAL1 217 00331 REAL2 216 00330 RLIN 215 00327
SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS
EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC
8)1J 51 00323 8)1K 52 00321 8)1L 53 00311 8)1M 54 00307 8)1N 55 00275
8)1O 56 00270 8)1P 57 00250 8)1Q 58 00240
LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM
DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT
1) 212 00324 2) 146 00222 3) 150 00226 4) 32767 77777 6) 152 00230
C)200 214 00326 E)5 80 00120
LOCATIONS OF NAMES IN TRANSFER VECTOR
DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT
SQRT 5 00005 (FIL) 4 00004 (FPT) 0 00000 (RTN) 2 00002 (STH) 3 00003
(TSH) 1 00001
ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY
SQRT (FIL) (FPT) (RTN) (STH) (TSH)
EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS
EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC
1 10 00013 7 20 00070 10 24 00104 12 26 00121 16 31 00156
17 32 00157 20 34 00200 21 36 00210
LIBRARY ENTRY POINTS,
(FPT) (TSHM) (RTN) (STHM) (FIL) SQRT
LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING
TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS
1 A1 0 31 0 0 0 0 0
2 A6 69 66 0 0 0 0 0
3 A9 15 15 0 0 0 0 0
4 A5 45 46 0 0 0 0 0
5 A3 0 39 0 0 0 0 0
6 A4 56 1 0 0 0 0 0
7 A8 16 13 0 0 0 0 0
EXECUTION
ROOTS OF QUADRATIC EQUATIONS FROM J.DOE
SET NO. 1
A = 2.00 B = 4.00 C = 1.00
REAL X1 = -0.293 X2 = -1.707
SET NO. 2
A = 2.00 B = 4.00 C = 3.00
COMPLEX R(X1)= -1.000 I(X1)= 0.707
R(X2)= -1.000 I(X2)= -0.707
SET NO. 3
A = 0. B = 5.67 C = -11.83
LINEAR X = 2.086
SET NO. 4
A = 536.28 B = -275.61 C = 2.11
REAL X1 = 0.506 X2 = 0.008
END OF J.DOE
93 LINES OUTPUT THIS JOB.
FORTRAN MONITOR RETURNING TO IBSYS
$STOP
PERIPHERAL UNIT POSITIONS AT END OF JOBS
SYSPP1 IS A8 REC. 00000, FILE 00002
SYSOU1 IS A4 REC. 00083, FILE 00000
SYSIN1 IS A3 REC. 00002, FILE 00001
END OF JOBS
EOF END OF OUTPUT