ID#: C00413ICL0000 RSIC: CCC-413 Code Package Name: FISPIN Computer: ICL 2982 Packaged: 9/21/81 Most Recent Update: Downloaded to diskette: 04/93 ***************************************************************************** Logical DCB PARAMETERS File Description Mode Numbers RECFM BLKSIZE LRECL ***************************************************************************** 1 MAIN2-controling subroutine ASCII 771 FB 3200 80 2 INCROSS-subroutine inputs | 75 | | | irradiation dependent cross sections 3 INPUT-subroutine inputs | 200 | | | library data on cards 4 INTERP-subroutine provides | 203 | | | print-out of library data set 5 OUTPUT-subroutine arranges for | 408 | | | results to be printed 6 OVERID-subroutine allows for library | 250 | | | data to be temporarily overwritten 7 TNCROS-subroutine writes library | 91 | | | data 8 WRITE-subroutine writes library data | 32 | | | 9 INTEGR-subroutine performs | 295 | | | integration of differential equations 10 BLOCK DATA Q23 | 48 | | | 11 COR-subroutine to correct items of | 67 | | | fission product library 12 ENDFB-subroutine converts data | 726 | | | input in ENDF/B4 format 13 PLOTO-subroutine produces graphs | 369 | | | 14 READD-subroutine reads library data | 31 | | | 15 CHAIN-subroutine prepares data for | 245 | | | integration solution 16 CONV-subroutine gives relation | 74 | | | between 2 types of nuclide identifer 17 CROSST-subroutine inputs data which | 163 | | | updates the cross sections of a group of nuclides present in the main library 18 CROSSU-subroutine updates flux | 222 | | | Spectra and cross-sections of certain nuclides 19 IDNTFY subroutine provides pointers | 41 | | | to the library data 20 Sample input data | 82 | | | 21 Sample output | 207 | 2660 133 ***** 4600