ID#: C00514IBMPC00 RSIC#: CCC-514 MICRO DATA PKG NAME: ANISN-PC COMPUTER (Dev.): IBM PC COMPUTER (Test): IBM PC-AT PACKAGED: 7/24/87 MOST RECENT UPDATES: 9/27/89; 8/15/90 ****** 1 HD DISKETTE *********************************************************************** MODE FILE DESCRIPTION (FILE TYPE) # OF FILES ******************************************************************************** A. TEXT FILES 1) READ.ME - General information and ASCII 1 execution instructions. Users are advised to read before proceeding. 2) AHP1.F - FORTRAN source files for | 4 AHP2.F the UNIX based workstation AHP3.F version (can handle up to AHP4.F 121 groups). B. COMPRESSED, SELF-UNPACKING FILES 1) ANISN_PC.EXE - Contains the executable Binary 21 ** module and all files required to run ANISN/PC, three sample problems, an interactive input generator (APE32), and a library editing program LMOD for handling the ISOTXS cross sections. ** Denotes the number of reconstructed files; refer to READ.ME for DOS file name and contents. C. Auxiliary programs for cross-section processing. ANTOPC.FOR - source to convert ANISN-formatted ASCII 1 cross sections to a format accepted by ANISN/PC. ANTOPC.EXE - executable BINARY 1 ANTOAPE.FOR - source to convert ANISN-formatted ASCII 1 cross sections to a format accepted by APE. (Does not use the repeat option.) ANTOAPE.EXE - executable BINARY 1 NOTES: This edition of ANISN-PC is contained on one high-density (1.2Mb) diskette. Files for the PC version have been compressed using the PKware data compression utilities. Only the ANISN FORTRAN source is provided for the UNIX based workstation version. Sample problem 3 requires IBUF = 1184. (see READ.ME) Installation - Copy the .EXE file to a subdirectory on your hard disk and execute it. June 1993 There is an error in Subroutine WATE in file ANISN4.FOR. It is a problem with cross section weighting and removing upscatter cross sections while retaining multiple thermal groups. The correction is to add the following 2 lines where indicated below. CXF(IHST,IIG,NNN)=CXF(IHST,IIG,NNN) + CXF(IH,IIG,NNN) CXF(IHST, K,NNN)=CXF(IHST, K,NNN) + CXF(IH,IIG,NNN) CXF(I06 , K,NNN)=CXF(I06 , K,NNN) - CXF(IH,IIG,NNN) 22 CONTINUE 21 CONTINUE 59 CONTINUE