ID#: P00192D0VAX00 RSIC# PSR-192 TRANSMITTED ON 1 DS/HD DISKETTE CODE PKG NAME: GLUCS COMPUTER: PDP-10; VAX PACKAGED: 8/13/82 MOST RECENT UPDATE: DOWNLOADED TO DISKETTE: 08/92 ************************************************************************ LOGICAL DCB DESCRIPTION MODE RECORDS PARAMETERS ************************************************************************ F01 FOR01.ONE - Experimental data ASCII 27 FB 3200 80 a) Absolute measurement of Fe56(n,p) | | | | b) Ratios of cross sections | | | | Cu65(n,2n) / Fe56(n,p) | | | | c) Correlation matrix for the data | | | | F02 FOR01.TWO - Experimental data | 330 | | | a) Ratios of cross sections | | | | Fe56(n,p) / S32(n,p) | | | | b) Ratios of cross sections | | | | Cu65(n,2n) / S32(n,p) | | | | c) Ratios of Fe56(n,p) cross sections | | | | to the cross sections of the | | | | same reaction at the fixed energy | | | | value of 14.5 MeV | | | | d) Similar ratios for Cu65(n,2n) | | | | e) Relative covariance matrix | | | | F03 INPUT.F4 source (FORTRAN IV) | 831 | | | F04 GLUCS.F4 source (FORTRAN IV) | 1288 | | | F05 OUTPUT.F4 source (FORTRAN IV) | 899 | | | F06 FE56.DAT - Fe56(n,p) ENDF/B-V data | 150 | | | F07 Cu65.DAT - Cu65(n,2n) ENDF/B-V data | 98 | | | F08 S32.DAT - S32(n,p) ENDF/B-V data | 90 | | | F09 FOR11.ONE - Information output | 352 | 2394 133 about the evaluated data sets | | | | F10 FOR14.ONE - Printout of measured data, | 262 | | | evaluated energies, cross sections, | | | | theoretical cross sections, and | | | | non-zero sensitivity matrix elements | | | | F11 FOR17.ONE - Printout of final thinned | 214 | | | adjusted data for the two sets | | | | F12 FOR18.ONE - ENDF/B-V formatted updated | 333 | 3120 80 cross sections and covariances Fe56(n,p) | | | | F13 FOR19.ONE - ENDF/B-V formatted updated | 210 | | | cross sections and covariances Cu65(n,2n) | | | | F14 FOR11.TWO - Information output | 971 | 2394 133 about the evaluated data sets | | | | F15 FOR14.TWO - Printout of measured data, | 830 | | | evaluated energies, cross sections, | | | | theoretical cross sections, and | | | | non-zero sensitivity matrix elements | | | | F16 FOR17.TWO - Printout of final thinned | 345 | | | adjusted data for the three sets | | | | F17 FOR18.TWO - ENDF/B-V formatted updated | 464 | 3120 80 cross sections and covariances Fe56(n,p) | | | | F18 FOR19.TWO - ENDF/B-V formatted updated | 247 | | | cross sections and covariances Cu65(n,2n) | | | | F19 FOR20.TWO - ENDF/B-V formatted updated | 343 | | | cross sections and covariances S32(n,p) | ***** TOTAL 8284 NOTES - The PDP-10 assigns logical disk units to files FOR??.DAT. In this list names FOR??.ONE and FOR??.TWO are used to attempt to clarify input/output for sample problems #1 and #2. - All cross sections and covariances are generally available (ENDF/B-V Special Purpose Data) NOTES added 12/16/88 to implement the code on VAX VMS computers: Changes required to INPUT.F4 (File 3) ************ Statement 77 should be changed from "DOUBLE PRECISION IFILE" to 77 CHARACTER*128 IFILE ************ Statements 103 - 104 should be modified as follows 103 20 FORMAT(A) 104 OPEN(UNIT=IRD,FILE=IFILE,STATUS='UNKNOWN') 105 TYPE 25 ************ ************ Changes required to OUTPUT.F4 (File 5) on VAX VMS computers: ****** 2 statements must be added as listed in the following section of code 744 MF=33 NEW 745 DO 150 I=1,NEVSET 746 IWF=IWF+1 747 WRITE(IWF,160)DUM,DUM,L0,L0,L0,L0,MAT(I),MF,L0 NEW 748 150 WRITE(IWF,160)DUM,DUM,L0,L0,L0,L0,MAT(I),L0,L0 ************ Statement 866 should be deleted or commented 866 C IF(NEVR.EQ.NEVM1)WRITE(IWR,30)DUM,DUM,L0,L0,L0,L0,MATR,MF,L0 867 C ** NOW WRITE TRANSPOSE OF ABOVE ****** Statement 897 should be deleted or commented 897 C IF(NEVC.EQ.NEVSET)WRITE(IWT,30)DUM,DUM,L0,L0,L0,L0,MATC,MF,L0 898 RETURN