ID# : C00530I303300 RSIC# : CCC-530 TRANSMITTED ON 1 DS/HD DISKETTE CODE PKG NAME : RADSYS COMPUTER : IBM 3033 PACKAGED : 06/10/88 DOWNLOADED TO DISKETTE: 07/92 ************************************************************************ LOGICAL DCB DESCRIPTION MODE RECORDS PARAMETERS ************************************************************************ F01 JCL ASCII 114 FB 80 6400 F02 RADATA5 - sample input | 303 | | | F03 RADATA7 - sample input | 303 | | | F04 RADDATA - sample input | 303 | | | F05 RSSAMPLE - sample input | 303 | | | F06 MAIN - FORTRAN main source | 416 | | | F07 BCONST subroutine | 28 | | | F08 BKU subroutine | 20 | | | F09 BLOCK DATA subprogram | 49 | | | F10 CLDSRT subroutine | 20 | | | F11 COMP subroutine | 111 | | | F12 DISCH subroutine | 5 | | | F13 DOWN1 subroutine | 23 | | | F14 EXPON function subroutine | 9 | | | F15 FCT subroutine (FCT5) | 198 | | | F16 FCT subroutine (FCT6) | 200 | | | F17 FCT subroutine (FCT7) | 198 | | | F18 FCT subroutine (FCT8) | 205 | | | F19 miscellaneous subroutines FORS | 141 | | | F20 INCPRN subroutine | 15 | | | F21 JOD subroutine | 35 | | | F22 miscellaneous subroutines MATH | 55 | | | F23 OUTP subroutine (OUL2) | 40 | | | F24 OUTP subroutine (OUT2) | 57 | | | F25 miscellaneous subroutines PPNG | 28 | | | F26 PRIN subroutine | 10 | | | F27 RESET subroutine | 18 | | | F28 RGDC subroutine | 37 | | | F29 RKGS subroutine (RKG1) | 174 | | | F30 RKGS subroutine (RKG2) | 194 | | | F31 SOL subroutine | 336 | | | F32 SWITCH subroutine (SWIT) | 27 | | | F33 SWITCH subroutine (SWI1) | 54 | | | F34 VOL subroutine | 9 | | | F35 VOL123 subroutine | 45 | | | F36 RKGS dummy (HRKDUMMY) | 4 | | | F37 MINV subroutine | 55 | | | F38 GMTRA subroutine | 30 | | | F39 SGEFA/SGESL subroutines | 407 | | | F40 RADSYS output using RSSAMPLE | 2790 FBA 133 5320 F41 RADTRAN output using RADATA7 | 760 | | | ***** TOTAL 8129 NOTE: RADSYS and RADTRAN were compiled, linked and executed by RSIC on the IBM 3033 under MVS using the VS compiler with LANGLVL=66.