This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revision Both sides next revision | ||
cdc6500_survival_guide [2019/09/11 03:58] cvena325 [Program source files] add FTNTS example |
cdc6500_survival_guide [2019/09/23 01:08] papa old revision restored (2019/09/11 04:22) |
||
---|---|---|---|
Line 143: | Line 143: | ||
| '' | | '' | ||
RNH\\ | RNH\\ | ||
- | RUN, | + | RUN, |
- | ** FTNTS Example | + | ** FORTRAN subsystem example** |
+ | Here the FORTRAN subsystem is selected, an existing program is loaded, listed, and run. | ||
+ | < | ||
+ | FORTRAN | ||
+ | READY. | ||
+ | |||
+ | OLD,TEST2 | ||
+ | LIST | ||
+ | |||
+ | | ||
+ | PROGRAM | ||
+ | |||
+ | 00100 PROGRAM TEST2(OUTPUT) | ||
+ | 00110 INTEGER J | ||
+ | 00120 REAL Z, | ||
+ | 00130 Z=0.0 | ||
+ | 00140 Q=0.0 | ||
+ | 00150 DO 210 J=1,25 | ||
+ | 00160 Z=SQRT(Q)+Z | ||
+ | 00170 W=SQRT(Q) | ||
+ | 00180 Q2=Q*Q | ||
+ | 00190 Q3=Q*Q*Q | ||
+ | 00200 PRINT 190, | ||
+ | 00210 190 FORMAT(1X, | ||
+ | 00220 Q=Q+1.0 | ||
+ | 00230 210 CONTINUE | ||
+ | 00240 W=Z/25.0 | ||
+ | 00250 PRINT 230,W | ||
+ | 00260 230 FORMAT(1X, | ||
+ | 00270 END | ||
+ | |||
+ | READY. | ||
+ | |||
+ | RUN | ||
+ | |||
+ | | ||
+ | PROGRAM | ||
+ | |||
+ | | ||
+ | | ||
+ | | ||
+ | ... | ||
+ | 24 | ||
+ | 25 | ||
+ | | ||
+ | | ||
+ | |||
+ | SRU 0.447 UNTS. | ||
+ | |||
+ | RUN COMPLETE. | ||
+ | |||
+ | READY. | ||
+ | </ | ||
+ | |||
+ | ** FTNTS subsystem example | ||
Here the FTNTS subsystem is selected, an existing program is loaded, listed, and run. Note the way the FORTRAN line numbers 190, 210, and 230 as specified in addition to the editing line numbers which do not make up part of the program. | Here the FTNTS subsystem is selected, an existing program is loaded, listed, and run. Note the way the FORTRAN line numbers 190, 210, and 230 as specified in addition to the editing line numbers which do not make up part of the program. | ||
< | < |