*deck readme 
REM List of WLUP DOS Batch Procedures
REM ---------------------------------
REM
REM readme   : This readme file
REM bnchall  : Run all benchmarks
REM bnchone  : Run one standard benchmark
REM compile  : Example of compilation using LF95
REM d2ogd    : Run D2O Gd benchmark
REM d2orunb  : Run a D2O benchmark serie
REM d2orunw  : Run a D2O benchmark serie
REM dosmat1  : Generate one dosimetry material. Called by wlupdosm.bat
REM mtrb     : Run MTR OWR burnup benchmark
REM pltlib   : Prepare PLOTTAB input files for plotting XS data
REM pseudo1  : Process one actinide. Called for pseudofp.bat
REM pseudofp : Generate the pseudo fission product
REM qval     : Plot k-eff trends of WLUP benchmarks
REM rpin     : Run Rowlands pin cell benchmark
REM runall   : Generate & benchmark a WIMSD library(Main WLUP procedure)
REM rundop   : Run Doppler benchmarks
REM runone   : Run NJOY for one material (MAT)
REM runrtc   : Run RTC benchmarks
REM setwlup  : Set WLUP environment variables
REM supbench : Run all supplementary benchmarks
REM thb      : Run Th-supplementary benchmark
REM wimsone  : Run one criticality benchmark
REM wlupdosm : Generate all the dosimetry materials.
REM wrtdck   : Add a deck to a file.
REM wrtsrc   : Merge decks to a source file (loop call to wrtdck).
REM ---------------------------------------------------------------------
*deck bnchall  
@ECHO OFF
ECHO.
ECHO Initiate Execution of All WIMS-D Benchmarks
ECHO -------------------------------------------
ECHO.
REM Author : Andrej Trkov, Institute Jozef Stefan, Ljubljana, Slovenia
REM Version: 1990 Original code
REM
REM V YY/MM
REM V 00/06  A.Trkov:
REM V        - Rename reference D2OBONE to WIMSONE
REM V        - Add Rn/100H, Hiss and PNL6 criticality benchmarks
REM V 01/01  - Use BNCHONE/SMRDIF to analyse WWER benchmarks
REM V 01/05  F.Leszczynski, A.Trkov:
REM V        - Expand the list of U and Pu benchmarks
REM V        - Add BNL-ThO2 benchmarks
REM V 01/08  D.L. Aldama:
REM V        - Change and expand WWER benchmarks
REM V 01/09  F.Leszczynski
REM V        - Expand the list of U (U-metal) and Pu (MOX) benchmarks
REM V 01/12  F.Leszczynski
REM V        - split U-metal and UO2 benchmarks
REM V        - Order of criticality benchmarks by U235-enrichment
REM V 02/02  F.Leszczynski
REM V        - Delete UO2 dimpla benchmark
REM V        - Change order of UO2 rn100h benchmarks
REM V 02/04  A.Trkov (minor modifications)
REM V 03/02  A.Trkov - Reactivate dimp1a benchmark
REM V 03/03  T.Zagar (IRPhE benchmarks)
REM V        - Add CRITD2O heavy water critical benchmarks
REM V 04/11  D. L. Aldama (minor modifications)
REM V 05/07  D. L. Aldama (re-ordering criticality benchmarks)
REM
REM Check parameter
    IF %1.==?.    GOTO USAGE
    IF %1.==-h.   GOTO USAGE
    IF NOT %1.==. GOTO SET
:USAGE
ECHO.
ECHO   Incorrect entry: BNCHALL %1 %2
ECHO.
ECHO   USAGE: BNCHALL lib [bnc]
ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
ECHO     bnc  Benchmark set which may be
ECHO            blank   : all benchmarks
ECHO            critume : Uranium-metal criticality benchmarks
ECHO            crituo2 : Uranium-uo2 criticality benchmarks
ECHO            wwercr  : WWER-type lattice criticality benchmarks
ECHO            critmox : MOX criticality benchmarks
ECHO            critisp : intermediate spectrum criticality benchmarks
ECHO            crithth : criticality benchmarks for BNL-Th2-U3-H2O
ECHO            critdth : criticality benchmarks for BNL-Th2-U3-D2O
ECHO            d2ocrit : Heavy water criticality benchmarks
ECHO            critd2o : IRPhE D2O benchmarks
ECHO            d2oe3   : Burnup E3-D2O benchmark
ECHO            bucr1a  : Burnup credit criticality prediction
ECHO            bucr1b  : Burnup credit isotopic composition prediction
ECHO            purecy  : Plutonium recycling numerical benchmarks
ECHO            rowlands: Rowlands pin cell numerical benchmarks
ECHO.
    GOTO END
REM
REM Required external files:
REM
REM Programs and batch files
REM    BNCHONE Dos Batch procedure to run a single LWR criticality benchmark.
REM    D2ORUNW Dos Batch procedure to run all D2O criticality benchmarks.
REM    D2ORUNB Dos Batch procedure to run D2O E3 burnup benchmark.
REM    WIMSONE Dos Batch procedure to run a single WIMS-D benchmark.
REM    RPIN    Dos Batch procedure to run Rowlands Pin Cell Benchmarks.
REM    WEDOG2  Program to analyse criticality benchmarks (called from BNCHONE).
REM    E1T1    Program to analyse critic HWR-E1T1 benchms. (called from D2ORUNW).
REM    E1T2    Program to analyse critic HWR-E1T2 benchms. (called from D2ORUNW).
REM    E1T3    Program to analyse critic HWR-E1T3 benchms. (called from D2ORUNW).
REM    E1T4    Program to analyse critic HWR-E1T4 benchms. (called from D2ORUNW).
REM    E2T1    Program to analyse critic HWR-E2T1 benchms. (called from D2ORUNW).
REM    E3      Program to analyse Burnup HWR-E3 benchmark (called from D2ORUNB).
REM    SMRDIF  Program to compare criticality benchmarks to reference.
REM    SMRDI2  Program to compare critic BNL benchmarks to reference.
REM    D2OSMR  Program to compare critic HWR benchmarks to reference.
REM    D2OE3B  Program to compare Burnup HWR E3 benchmark to reference.
REM    WEDB1A  Program to analyse the Burnup Credit Part-1A Benchmark.
REM    WEDB1B  Program to analyse the Burnup Credit Part-1B and
REM            Plutonium Recycling Benchmarks.
REM    RPINKE  Program to analyse K-eff of the Rowlands Pin Cell Benchmark.
REM    WEDRU   Program to analyse the Rowlands UO2 Pin Cell Benchmark.
REM    WEDRPU  Program to analyse the Rowlands MOX Pin Cell Benchmark.
REM
REM Inputs:
REM  critume : Uranium-metal criticality benchmarks
REM    AECL_UM.WIN
REM    AERE_UMA.WIN
REM    HW_UMA.WIN
REM    HW_UMB.WIN
REM    BNL_UMA.WIN
REM    BNL_UMB.WIN
REM    AERE_UMB.WIN
REM    BNL_UMC.WIN
REM    BNL_UMD.WIN
REM    TRX_UM.WIN
REM    HW_UMC.WIN
REM    SRL_UM.WIN
REM  crituo2 : Uranium-uo2 criticality benchmarks
REM    BAPL1_3.WIN
REM    BAPL_TRX.WIN
REM    NAIG_NCA.WIN
REM    CURL_ZPR.WIN
REM    BAWBAY2A.WIN
REM    BAW_CX10.WIN
REM    AERL_OCF.WIN
REM    JAERITCA.WIN
REM    WAPDCRXA.WIN
REM    AEEWJUNO.WIN
REM    RN100H.WIN
REM    dimp1a.WIN
REM    BNLUO2.WIN
REM    ANLZPR7A.WIN
REM    NPY_NORA.WIN
REM    WAPDCRXB.WIN
REM    SCKVENUS.WIN
REM    BAWBAY2B.WIN
REM    WAPDCRXC.WIN
REM    ANLZPR7B.WIN
REM    WAPDCRXD.WIN
REM    LEMUR.WIN <-- Withdrawn from the list
REM    PNL6.WIN  <-- Withdrawn from the list
REM  wwercr  : WWER-type lattice criticality benchmarks
REM    WWERCRA.WIN
REM    WWERCRB.WIN
REM    WWERCRC.WIN
REM  critmox : MOX criticality benchmarks
REM    GE_PU.WIN
REM    WCRX_PU.WIN
REM    JTCA_PU.WIN
REM    BNW_PUA.WIN
REM    BNW_PUB.WIN
REM    BNW_PUC.WIN
REM    BNW_PUD.WIN
REM  critisp : intermediate spectrum criticality benchmarks
REM    HISS.WIN
REM  crithth : criticality benchmarks for BNL-Th2-U3-H2O
REM    BNLTH2O.WIN
REM  critdth : criticality benchmarks for BNL-Th2-U3-D2O
REM    BNLTD2O.WIN
REM  d2ocrit : Heavy water criticality benchmarks
REM    E1T1AIRD.WIN
REM    E1T1D2OD.WIN
REM    E1T1THER.WIN
REM    E1T2P24D.WIN
REM    E1T2P40D.WIN
REM    E1T3000D.WIN
REM    E2T1A22D.WIN
REM    E2T1A25D.WIN
REM    E2T1D22D.WIN
REM    E2T1D25D.WIN
REM    E2T1H22D.WIN
REM    E2T1H25D.WIN
REM    E1T4A22D.WIN
REM    E1T4A28D.WIN
REM    E1T4D22D.WIN
REM    E1T4D28D.WIN
REM  critd2o : IRPhE D2O benchmarks
REM    MINOR1.WIN
REM    MINOR2.WIN
REM    MINOR3.WIN
REM    MINOR4.WIN
REM    SRLUR.WIN
REM    NORAHW.WIN
REM    WLRX.WIN
REM    DIMPSGHW.WIN
REM  d2oe3   : Burnup E3-D2O benchmark
REM    E300D2OD.WIN
REM  bucr1a  : Burnup credit criticality prediction
REM    BUCR1A.WIN
REM  bucr1b  : Burnup credit isotopic composition prediction
REM    BUCR1B1.WIN
REM    BUCR1B2.WIN
REM    BUCR1B3.WIN
REM  purecy  : Plutonium recycling numerical benchmarks
REM    PURECYA.WIN
REM    PURECYB.WIN
REM  rowlands: Rowlands pin cell numerical benchmarks
REM    RPINU.WIN
REM    RPINPU.WIN
REM
REM Reference results files
REM    EXPCRUME.REF LWR Uranium-metal Criticality benchmarks
REM    EXPCRUO2.REF LWR Uranium-UO2 Criticality benchmarks
REM    WWERCR.REF   WWER benchmarks
REM    EXPCRMOX.REF LWR MOX Criticality benchmarks
REM    EXPCRISP.REF Intermediate spectrum criticality benchmarks
REM    EXPBNLH.REF  Criticality benchmarks for BNL-TH2-U3-H2O
REM    EXPBNLD.REF  Criticality benchmarks for BNL-TH2-U3-D2O
REM    E1T1.REF     HWR-E1T1 Criticality benchmarks
REM    E1T2.REF     HWR-E1T2 Criticality benchmarks
REM    E1T4.REF     HWR-E1T4 Criticality benchmarks
REM    CRITD20.REF  IRPhE D2O benchmarks
REM    E3.REF       HWR-E3 Burnup benchmark
REM    BUCR1BA.REF  Burnup Credit Part-1A Benchmark
REM    BUCR1BM.REF  Burnup Credit Part-1B Benchmark
REM    PURECYA.REF  Physics of Plutonium Recycling Benchmark Part-A
REM    PURECYB.REF  Physics of Plutonium Recycling Benchmark Part-A
REM    RPINU.REF    Rowlands UO2 benchmark
REM    RPINPU.REF   Rowlands MOX benchmark
REM
:SET
REM Check WLUP settings
rem if errorlevel 1 goto USAGE
    if %WLUPP%.==.             ECHO *** ERROR *** Undefined WLUP settings
    if %WLUPP%.==.             goto USAGE
    if not exist %WLUPL%%1.bin ECHO *** ERROR *** File %WLUPL%%1.bin not found
    if not exist %WLUPL%%1.bin GOTO USAGE
    copy         %WLUPL%%1.bin WIMSDLIB
REM
REM Clear the output list file
    if exist %1.lst   copy %1.lst %1.bak
    if exist %1.lst   del  %1.lst
    echo  #                                   >%1.lst
    echo  # WLUP STANDARD BENCHMARK SEQUENCE >>%1.lst
    echo  # -------------------------------- >>%1.lst
    IF %2.==.         GOTO CRITUME
    IF %2.==critume.  GOTO CRITUME
    IF %2.==CRITUME.  GOTO CRITUME
    IF %2.==Critume.  GOTO CRITUME
    IF %2.==crituo2.  GOTO CRITUO2
    IF %2.==CRITUO2.  GOTO CRITUO2
    IF %2.==Crituo2.  GOTO CRITUO2
    IF %2.==wwercr.   GOTO WWERCR
    IF %2.==WWERCR.   GOTO WWERCR
    IF %2.==Wwercr.   GOTO WWERCR
    IF %2.==critmox.  GOTO CRITMOX
    IF %2.==CRITMOX.  GOTO CRITMOX
    IF %2.==Critmox.  GOTO CRITMOX
    IF %2.==critisp.  GOTO CRITISP
    IF %2.==CRITISP.  GOTO CRITISP
    IF %2.==Critisp.  GOTO CRITISP
    IF %2.==crithth.  GOTO CRITHTH
    IF %2.==CRITHTH.  GOTO CRITHTH
    IF %2.==Crithth.  GOTO CRITHTH
    IF %2.==critdth.  GOTO CRITDTH
    IF %2.==CRITDTH.  GOTO CRITDTH
    IF %2.==Critdth.  GOTO CRITDTH
    IF %2.==d2ocrit.  GOTO D2OCRIT
    IF %2.==D2OCRIT.  GOTO D2OCRIT
    IF %2.==D2Ocrit.  GOTO D2OCRIT
    IF %2.==CRITD2O.  GOTO CRITD2O
    IF %2.==critd2o.  GOTO CRITD2O
    IF %2.==Critd2o.  GOTO CRITD2O
    IF %2.==d2oe3.    GOTO D2OE3
    IF %2.==D2OE3.    GOTO D2OE3
    IF %2.==D2oe3.    GOTO D2OE3
    IF %2.==bucr1a.   GOTO BUCR1A
    IF %2.==BUCR1A.   GOTO BUCR1A
    IF %2.==Bucr1a.   GOTO BUCR1A
    IF %2.==bucr1b.   GOTO BUCR1B
    IF %2.==BUCR1B.   GOTO BUCR1B
    IF %2.==Bucr1b.   GOTO BUCR1B
    IF %2.==purecy.   GOTO PURECY
    IF %2.==PURECY.   GOTO PURECY
    IF %2.==Purecy.   GOTO PURECY
    IF %2.==rowlands. GOTO ROWLANDS
    IF %2.==ROWLANDS. GOTO ROWLANDS
    IF %2.==Rowlands. GOTO ROWLANDS
    GOTO USAGE
REM
:CRITUME
ECHO.
ECHO Run all LWR METAL criticality benchmarks
ECHO ----------------------------------------
ECHO.
    if   exist %1.smr   DEL      %1.smr
    call %WLUPP%bnchone aecl_um  %1
    call %WLUPP%bnchone aere_uma %1
    call %WLUPP%bnchone hw_uma   %1
    call %WLUPP%bnchone hw_umb   %1
    call %WLUPP%bnchone bnl_uma  %1
    call %WLUPP%bnchone bnl_umb  %1
    call %WLUPP%bnchone aere_umb %1
    call %WLUPP%bnchone bnl_umc  %1
    call %WLUPP%bnchone bnl_umd  %1
    call %WLUPP%bnchone trx_um   %1
    call %WLUPP%bnchone hw_umc   %1
    call %WLUPP%bnchone srl_um   %1
REM
REM Compare to the reference results
    ECHO expcrume.ref          >INP
    ECHO %1.smr               >>INP
    ECHO critum.lst           >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                     >>%1.lst
    echo  # Uranium criticality benchmarks      >>%1.lst
    echo  # ------------------------------      >>%1.lst
    type critum.lst                             >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  critum.lst
REM
:CRITUO2
ECHO.
ECHO Run all LWR UO2 criticality benchmarks
ECHO --------------------------------------
ECHO.
    if   exist %1.smr   DEL      %1.smr
    call %WLUPP%bnchone bapl1_3  %1
    call %WLUPP%bnchone bapl_trx %1
    call %WLUPP%bnchone naig_nca %1
    call %WLUPP%bnchone curl_zpr %1
    call %WLUPP%bnchone bawbay2a %1
    call %WLUPP%bnchone baw_cx10 %1
    call %WLUPP%bnchone aerl_ocf %1
    call %WLUPP%bnchone jaeritca %1
    call %WLUPP%bnchone wapdcrxa %1
    call %WLUPP%bnchone aeewjuno %1
    call %WLUPP%bnchone rn100h   %1
    call %WLUPP%bnchone dimp1a   %1
    call %WLUPP%bnchone bnluo2   %1
    call %WLUPP%bnchone anlzpr7a %1
    call %WLUPP%bnchone npy_nora %1
    call %WLUPP%bnchone wapdcrxb %1
    call %WLUPP%bnchone sckvenus %1
    call %WLUPP%bnchone bawbay2b %1
    call %WLUPP%bnchone wapdcrxc %1
    call %WLUPP%bnchone anlzpr7b %1
    call %WLUPP%bnchone wapdcrxd %1
rem call %WLUPP%bnchone Lemur    %1         ! Change EXPCRUO2.REF to re-activate
rem call %WLUPP%bnchone PNL6     %1         ! Temporarily suspended
REM
REM Compare to the reference results
    ECHO expcruo2.ref          >INP
    ECHO %1.smr               >>INP
    ECHO crituo2.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                     >>%1.lst
    echo  # Uranium UO2 criticality benchmarks  >>%1.lst
    echo  # ----------------------------------  >>%1.lst
    type crituo2.lst                            >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  crituo2.lst
REM
:WWERCR
ECHO.
ECHO Run WWER lattice criticality benchmarks
ECHO ---------------------------------------
ECHO.
    if   exist %1.smr      DEL  %1.smr
    call %WLUPP%bnchone wwercra %1
    call %WLUPP%bnchone wwercrb %1
    call %WLUPP%bnchone wwercrc %1
REM
REM Compare to the reference results
    ECHO wwercr.ref            >INP
    ECHO %1.SMR               >>INP
    ECHO wwercr.lst           >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                  >>%1.lst
    echo  # WWER criticality benchmarks      >>%1.lst
    echo  # ---------------------------      >>%1.lst
    type wwercr.lst                          >>%1.lst
    DEL  *.WED
    DEL  *.SMR
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  wwercr.lst
REM
:CRITMOX
ECHO.
ECHO Run all LWR MOX criticality benchmarks
ECHO --------------------------------------
ECHO.
    if   exist %1.smr   DEL      %1.smr
    call %WLUPP%bnchone ge_pu    %1
    call %WLUPP%bnchone wcrx_pu  %1
    call %WLUPP%bnchone jtca_pu  %1
    call %WLUPP%bnchone bnw_pua  %1
    call %WLUPP%bnchone bnw_pub  %1
    call %WLUPP%bnchone bnw_puc  %1
    call %WLUPP%bnchone bnw_pud  %1
REM
REM Compare to the reference results
    ECHO expcrmox.ref          >INP
    ECHO %1.smr               >>INP
    ECHO critmox.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                  >>%1.lst
    echo  # LWR MOX criticality benchmarks   >>%1.lst
    echo  # ------------------------------   >>%1.lst
    type critmox.lst                         >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  critmox.lst
REM
:CRITISP
ECHO.
ECHO Run intermediate spectrum criticality benchmarks
ECHO ------------------------------------------------
ECHO.
    if   exist %1.smr   DEL      %1.smr
    call %WLUPP%bnchone hiss     %1
REM
REM Compare to the reference results
    ECHO expcrisp.ref          >INP
    ECHO %1.smr               >>INP
    ECHO critisp.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                                >>%1.lst
    echo  # Intermediate spectrum criticality benchmarks   >>%1.lst
    echo  # --------------------------------------------   >>%1.lst
    type critisp.lst                                       >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  critisp.lst
REM
:CRITHTH
ECHO.
ECHO Run all BNL-Th2-U3-H2O criticality benchmarks
ECHO ---------------------------------------------
ECHO.
    if   exist %1.smr   DEL     %1.smr
    call %WLUPP%bnchone bnlth2o %1
    ECHO expbnlh.ref           >INP
    ECHO %1.SMR               >>INP
    ECHO bnlth2o.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdi2<INP
    echo  #                                         >>%1.lst
    echo  # BNL-Th2-U3-H2O criticality benchmarks   >>%1.lst
    echo  # -------------------------------------   >>%1.lst
    type bnlth2o.lst                                >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  bnlth2o.lst
REM
:CRITDTH
ECHO.
ECHO Run all BNL-Th2-U3-D2O criticality benchmarks
ECHO ---------------------------------------------
ECHO.
    if   exist %1.smr   DEL     %1.smr
    call %WLUPP%bnchone bnltd2o %1
REM
REM Compare to the reference results
    ECHO expbnld.ref           >INP
    ECHO %1.SMR               >>INP
    ECHO bnltd2o.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdi2<INP
    echo  #                                         >>%1.lst
    echo  # BNL-Th2-U3-D2O criticality benchmarks   >>%1.lst
    echo  # -------------------------------------   >>%1.lst
    type bnltd2o.lst                                >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  bnltd2o.lst
REM
:D2OCRIT
ECHO Run all D2O criticality Benchmarks
ECHO ----------------------------------
ECHO.
    call %WLUPP%d2orunw %1
REM
REM Summarize the criticality results
    echo D2OSMR.LST   >inp
    echo e1t1.lis    >>inp
    echo e1t2.lis    >>inp
    echo e1t3.lis    >>inp
    echo e1t4.lis    >>inp
    echo e2t1.lis    >>inp
    call %WLUPP%d2osmr<inp
    echo  #                                         >>%1.lst
    echo  # Uranium D2O criticality benchmarks      >>%1.lst
    echo  # ----------------------------------      >>%1.lst
    type D2OSMR.LST                                 >>%1.lst
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  D2OSMR.LST
    DEL  *.LIS
REM
:CRITD2O
ECHO.
ECHO Run all IRPhE D2O criticality benchmarks
ECHO ----------------------------------------
ECHO.
    if   exist %1.smr   DEL      %1.smr
    call %WLUPP%bnchone minor1   %1
    call %WLUPP%bnchone minor2   %1
    call %WLUPP%bnchone minor3   %1
    call %WLUPP%bnchone minor4   %1
    call %WLUPP%bnchone srlur    %1
    call %WLUPP%bnchone norahw   %1
    call %WLUPP%bnchone wlrx     %1
    call %WLUPP%bnchone dimpsghw %1
REM
REM Compare to the reference results
    ECHO critd2o.ref           >INP
    ECHO %1.smr               >>INP
    ECHO critd2o.lst          >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                     >>%1.lst
    echo  # IRPhE D2O criticality benchmarks    >>%1.lst
    echo  # --------------------------------    >>%1.lst
    type critd2o.lst                            >>%1.lst
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    if exist critd2o.lst DEL  critd2o.lst
REM
:D2OE3
ECHO Run D2O E3 Burnup Benchmark
ECHO ---------------------------
ECHO.
    call %WLUPP%d2orunb %1
REM
REM Summarize the criticality results
    echo D2OE3B.LST   >inp
    echo e3.lis    >>inp
    call %WLUPP%d2oe3b<inp
    echo  #                                         >>%1.lst
    echo  # Uranium D2O burnup benchmark            >>%1.lst
    echo  # ----------------------------            >>%1.lst
    type D2OE3B.LST                                 >>%1.lst
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  D2OE3B.LST
    DEL  *.LIS
REM
:BUCR1A
ECHO.
ECHO Run NEA/CRP Burnup Credit Criticality Benchmarks
ECHO ------------------------------------------------
ECHO.
ECHO Part-1A: Criticality prediction
ECHO.
    call %WLUPP%wimsone bucr1a
REM Compare to reference calculated values
    ECHO bucr1a.OUT            >INP
    ECHO WEDB1A.LST           >>INP
    ECHO bucr1a.RRT           >>INP
    %WLUPP%wedb1a<INP
    echo  #                                              >>%1.lst
    echo  # NEA/CRP Burnup Credit Criticality Benchmarks >>%1.lst
    echo  # Part-1A: Criticality prediction              >>%1.lst
    echo  # -------------------------------------------- >>%1.lst
    type WEDB1A.LST                                      >>%1.lst
    del  WEDB1A.LST
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
REM
:BUCR1B
ECHO.
ECHO Part-1B: Isotopic composition prediction
ECHO.
ECHO          Burnup  27.35 MWd/tU
ECHO.
    call %WLUPP%wimsone bucr1b1
REM Compare to measured values
    ECHO bucr1b1.OUT           >INP
    ECHO WEDB1B1M.LST         >>INP
    ECHO BUCR1BM.REF          >>INP
    %WLUPP%wedb1b<INP
    echo  #                                              >>%1.lst
    echo  # NEA/CRP Burnup Credit Criticality Benchmarks >>%1.lst
    echo  # Part-1B: Isotopic composition prediction     >>%1.lst
    echo  # -------------------------------------------- >>%1.lst
    type WEDB1B1M.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  WEDB1B1M.LST
REM Compare to reference calculated values
    ECHO bucr1b1.OUT           >INP
    ECHO WEDB1B1A.LST         >>INP
    ECHO BUCR1BA.REF          >>INP
    %WLUPP%wedb1b<INP
    type WEDB1B1A.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  WEDB1B1A.LST
ECHO.
ECHO          Burnup  37.12 MWd/tU
ECHO.
    call %WLUPP%wimsone bucr1b2
REM Compare to measured values
    ECHO bucr1b2.OUT           >INP
    ECHO WEDB1B2M.LST         >>INP
    ECHO BUCR1BM.REF          >>INP
    %WLUPP%wedb1b<INP
    type WEDB1B2M.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  WEDB1B2M.LST
REM Compare to reference calculated values
    ECHO bucr1b2.OUT           >INP
    ECHO WEDB1B2A.LST         >>INP
    ECHO BUCR1BA.REF          >>INP
    %WLUPP%wedb1b<INP
    type WEDB1B2A.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  WEDB1B2A.LST
REM
ECHO.
ECHO          Burnup  44.34 MWd/tU
ECHO.
    call %WLUPP%wimsone bucr1b3
REM Compare to measured values
    ECHO bucr1b3.OUT           >INP
    ECHO WEDB1B3M.LST         >>INP
    ECHO BUCR1BM.REF          >>INP
    %WLUPP%wedb1b<INP
    type WEDB1B3M.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  WEDB1B3M.LST
REM Compare to reference calculated values
    ECHO bucr1b3.OUT           >INP
    ECHO WEDB1B3A.LST         >>INP
    ECHO BUCR1BA.REF          >>INP
    %WLUPP%wedb1b<INP
    type WEDB1B3A.LST         >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    del  WEDB1B3A.LST
REM
    IF EXIST WEDB1B.LST DEL   WEDB1B.LST
    IF EXIST WEDB1B.PLT DEL   WEDB1B.PLT
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
REM
:PURECY
ECHO.
ECHO Run Plutonium Recycling Benchmarks
ECHO ----------------------------------
ECHO.
ECHO.
    call %WLUPP%wimsone purecya
REM Compare to reference calculated values
    ECHO purecya.OUT           >INP
    ECHO purecya.LST          >>INP
    ECHO purecya.REF          >>INP
    %WLUPP%wedb1b<INP
    echo  #                                              >>%1.lst
    echo  # NEA/CRP Plutonium Recycling Benchmarks       >>%1.lst
    echo  # --------------------------------------       >>%1.lst
    type purecya.LST          >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    echo  #                  >>%1.lst
    del  purecya.LST
REM Case B
    call %WLUPP%wimsone purecyb
REM Compare to reference calculated values
    ECHO purecyb.OUT           >INP
    ECHO purecyb.LST          >>INP
    ECHO purecyb.REF          >>INP
    %WLUPP%wedb1b<INP
    type purecyb.LST          >>%1.lst
    echo  #                  >>%1.lst
    type WEDB1B.PLT           >>%1.lst
    del  purecyb.LST
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
REM
:ROWLANDS
REM
REM Run Rowlands Pin Cell Benchmarks
REM --------------------------------
    echo  #                                   >>%1.lst
    echo  # Rowlands PinCell Benchmarks       >>%1.lst
    echo  # ---------------------------       >>%1.lst
REM
REM  RPIN called without second parameter
REM  number of groups could be 69 or 172
REM
    call %WLUPP%rpin  %WLUPL%%1
REM
REM  ROWLANDS ending
REM
    type     WEDRU.LOG        >>%1.lst
    type     WEDRPU.LOG       >>%1.lst
    del      WEDRU.LOG
    del      WEDRPU.LOG
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
:EXIT
IF EXIST *.PLT      DEL *.PLT
IF EXIST *.RRT      DEL *.RRT
IF EXIST *.TEM      DEL *.TEM
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
IF EXIST WIMSDINP   DEL WIMSDINP
IF EXIST WIMSDOUT   DEL WIMSDOUT
IF EXIST WIMSDLIB   DEL WIMSDLIB
IF EXIST INP        DEL INP
IF EXIST TMP        DEL TMP
:END
*deck bnchone 
@ECHO OFF
REM Run WIMS-D Criticality Benchmark
REM ================================
REM
REM Assumed settings (defined in SETWLUP batch procedure):
REM   WLUPP  WLUP programs directory
REM   WLUPW  WIMS-D libraries directory
REM
    GOTO RUN
:ERR
    ECHO.
    ECHO Usage: BNCHONE inp [smr] [lib]
    ECHO   inp  WIMS input filename (no extension, assumed WIN)
    ECHO   smr  Summary filename (no extension, assumed SMR)
    ECHO   lib  WIMS library filename (full path, no extension - assumed BIN)
    ECHO.
    GOTO END
:RUN
    IF %1.==. GOTO ERR
    IF NOT EXIST %1.WIN ECHO %1.WIN WIMS input file does not exist
    IF NOT EXIST %1.WIN GOTO ERR
REM Further parameter checking is done within WIMSONE procedure
REM
    CALL %WLUPP%WIMSONE %1 %3
REM
REM Analyse the WIMSD5B output
    IF NOT EXIST %1.OUT GOTO EXIT
    ECHO %1.OUT  >INP
    %WLUPP%WEDOG2<INP
    IF NOT EXIST %1.SMR ECHO ERROR Processing benchmark %1
    IF NOT EXIST %1.SMR PAUSE
    IF NOT EXIST %2.SMR GOTO COP1
REM Append to summary list
    COPY %2.SMR + %1.SMR  BNC.TMP
    IF EXIST %2.SMR   DEL %2.SMR
    COPY BNC.TMP %2.SMR
    DEL  BNC.TMP
    GOTO EXIT
REM New summary list
:COP1
    COPY %1.SMR %2.SMR
REM
:EXIT
*deck compile 
@echo off
if %1.==LF95. goto LAHEY
if %1.==Lf95. goto LAHEY
if %1.==lf95. goto LAHEY
if %1.==lF95. goto LAHEY
rem
rem  ifort compiler (Intel visual compiler 15.0 for Windows)
rem
echo IFORT compiler
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  avrfpy.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  chkspc.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  d2oe3b.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  d2osmr.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  DOPBEN.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  dckspl.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  DOPBENCH.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e1t1.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e1t2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e1t3.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e1t4.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e2t1.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  E2T2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  E2T2P.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  E2T2W86.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  e3.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  enfiss.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  fidlam.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  getmf2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  getzam.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  mrgmat.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  Mtrb2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  Mtrburn.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  njbfp.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  njinjb.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  njispl.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  njrrat.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  pintcr.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  pltwli.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  pseudo.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  qvalue.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  qvalue_w.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  qval_k.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  RTCBEN.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  RPINKE.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  smrdi2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  smrdif.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  smrlib.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  THBURN.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  updbrn.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  WEDB1A.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  wedb1b.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  wedkin.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  wedog2.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  WEDRPU.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  WEDRU.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  wedspe.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  willie.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  wimsie.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  WWERCR.for
 ifort /O3 /QxHost /Qparallel /Qdiag-disable:warn  xspmix.for
GOTO END
rem
rem Lahey Fortran LF95 for Windows
rem
:LAHEY
echo LF95 compiler
 LF95 avrfpy.for
 LF95 chkspc.for
 LF95 d2oe3b.for
 LF95 d2osmr.for
 LF95 DOPBEN.for
 LF95 dckspl.for
 LF95 DOPBENCH.for
 LF95 e1t1.for
 LF95 e1t2.for
 LF95 e1t3.for
 LF95 e1t4.for
 LF95 e2t1.for
 LF95 E2T2.for
 LF95 E2T2P.for
 LF95 E2T2W86.for
 LF95 e3.for
 LF95 enfiss.for
 LF95 fidlam.for
 LF95 getmf2.for
 LF95 getzam.for
 LF95 mrgmat.for
 LF95 Mtrb2.for
 LF95 Mtrburn.for
 LF95 njbfp.for
 LF95 njinjb.for
 LF95 njispl.for
 LF95 njrrat.for
 LF95 pintcr.for
 LF95 pltwli.for
 LF95 pseudo.for
 LF95 qvalue.for
 LF95 qvalue_w.for
 LF95 qval_k.for
 LF95 RTCBEN.for
 LF95 RPINKE.for
 LF95 smrdi2.for
 LF95 smrdif.for
 LF95 smrlib.for
 LF95 THBURN.for
 LF95 updbrn.for
 LF95 WEDB1A.for
 LF95 wedb1b.for
 LF95 wedkin.for
 LF95 wedog2.for
 LF95 WEDRPU.for
 LF95 WEDRU.for
 LF95 wedspe.for
 LF95 willie.for
 LF95 wimsie.for
 LF95 WWERCR.for
 LF95 xspmix.for
:END
if exist *.obj del *.obj
if exist *.map del *.map

*deck d2ogd 
@ECHO OFF
REM Run WIMS-D D2O-Gd Benchmark (use e2t2 program for analysis)
REM ===========================================================
REM Author : Francisco Leszczynski
REM Version: 2002 Original code
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      blank - execute all benchmarks.
REM      ex2t2 - EX2-Task 2 (DCA-54 Gd-poisoned UO2 rod cluster)
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM    All *.WIN files of D2O-Gd benchmarks or the selected ones
REM    E2T2.REF file of D2O-Gd benchmarks
REM
REM Programs
REM    E2T2*.EXE file of D2O-Gd benchmarks
REM              for analysis of WIMS results
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: D2OGD %1 %2
    ECHO.
    ECHO   USAGE: D2OGD lib [bnc]
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     bnc  Benchmark set which may be
    ECHO      blank - execute all benchmarks.
    ECHO      ex2t2 - EX2-Task 2 (DCA-54 Gd-poisoned UO2 rod cluster)
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
REM
    IF %2.==.      GOTO EX2T2
    IF %2.==ex2t2. GOTO EX2T2
    IF %2.==EX2T2. GOTO EX2T2
    GOTO ERR
REM
:EX2T2
ECHO.
ECHO Run all WIMS-D EX2-Task 2 (DCA 54 Gd-poisoned UO2 rod cluster) benchmarks
ECHO -------------------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e2t2h00d
    call %WLUPP%wimsone e2t2a00d
    call %WLUPP%wimsone e2t2h12d
    call %WLUPP%wimsone e2t2d00d
    call %WLUPP%wimsone e2t2d01d
    call %WLUPP%wimsone e2t2d05d
    call %WLUPP%wimsone e2t2d10d
    if not exist e2t2.ref copy %WLUPI%e2t2.ref
    call %WLUPP%e2t2
REM  if exist e2t2.lis del e2t2*.out
REM  copy e2t2.lis %1e2t2.lis
    IF NOT %2.==. GOTO EXIT
REM
REM
:EXIT
                    DEL *.TMP
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
:END
*deck d2orunb 
@ECHO OFF
REM Run WIMS-D D2O Benchmark (use E3 program for analysis)
REM ======================================================
REM Author : Francisco Leszczynski
REM Version: 1999 Original code
REM V  00/06 Rename call D2OBONE to WIMSONE (A.Trkov)
REM V  00/08 Allow processing results with w86 library option
REM V  02/04 Minor revision (A.Trkov)
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      blank - execute all benchmarks.
REM      ex3   - EX3        (NPD    19 UO2 rod cluster with burnup)
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM    All *.WIN files of D2O benchmarks or the selected ones
REM    All *.REF files of D2O benchmarks or the selected ones
REM
REM Programs
REM    All *.EXE files of D2O benchmarks or the selected ones
REM    for analysis of WIMS results
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: D2ORUNB %1 %2
    ECHO.
    ECHO   USAGE: D2ORUNW lib [bnc]
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     bnc  Benchmark set which may be
    ECHO      blank - execute all benchmarks.
    ECHO      ex3   - EX3        (NPD    19 UO2 rod cluster with burnup)
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %WLUPL%%1.bin ECHO *** ERROR *** File %WLUPL%%1.bin not found
    if not exist %WLUPL%%1.bin GOTO ERR
    copy         %WLUPL%%1.bin WIMSDLIB
REM
    IF %2.==.      GOTO EX3
    IF %2.==ex3.   GOTO EX3
    IF %2.==EX3.   GOTO EX3
    GOTO ERR
REM
:EX3
ECHO.
ECHO Run WIMS-D EX3 (NPD 19 UO2 rod cluster with burnup) benchmark
ECHO -------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e300d2od
    if not exist e3.ref copy %WLUPI%e3.ref
    call %WLUPP%e3
REM   if exist e3.lis del e3*.out
REM   copy e3.lis %1e3.lis
    IF NOT %2.==. GOTO EXIT
REM
:EXIT
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
:END
*deck d2orunw 
@ECHO OFF
REM Run All WIMS-D D2O Benchmarks
REM =============================
REM Author : Francisco Leszczynski
REM Version: 1999 Original code
REM V  00/06 Rename call D2OBONE to WIMSONE (A.Trkov)
REM V  00/08 Allow processing results with w86 library option
REM V  02/04 Minor revision (A.Trkov)
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM           Special treatment for "w86" (assumed WIMS-D "1986" library).
REM 2. Benchmark series to be executed. Valid entries are:
REM      blank - execute all benchmarks.
REM      ex1t1 - EX1-Task 1 (ZED-2  37 UO2 rod cluster)
REM      ex1t2 - EX1-Task 2 (ZED-2  28 UO2 hexagonal rod cluster)
REM      ex1t3 - EX1-Task 3 (ZED-2  28 UO2 square rod cluster)
REM      ex1t4 - EX1-Task 4 (ZED-2  19 ThO2-UO2 rod cluster)
REM      ex2t1 - EX2-Task 1 (DCA    19 sl.enriched UO2 rod cluster)
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM    All *.WIN files of D2O benchmarks or the selected ones
REM    All *.REF files of D2O benchmarks or the selected ones
REM
REM Programs
REM    All *.EXE files of D2O benchmarks or the selected ones
REM    for analysis of WIMS results
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: D2ORUNW %1 %2
    ECHO.
    ECHO   USAGE: D2ORUNW lib [bnc]
    ECHO     lib  WIMS-D library filename (no path, no extension - assumed .bin)
    ECHO     bnc  Benchmark set which may be
    ECHO      blank - execute all benchmarks.
    ECHO      ex1t1 - EX1-Task 1 (ZED-2  37 UO2 rod cluster)
    ECHO      ex1t2 - EX1-Task 2 (ZED-2  28 UO2 hexagonal rod cluster)
    ECHO      ex1t3 - EX1-Task 3 (ZED-2  28 UO2 square rod cluster)
    ECHO      ex1t4 - EX1-Task 4 (ZED-2  19 ThO2-UO2 rod cluster)
    ECHO      ex2t1 - EX2-Task 1 (DCA    19 sl.enriched UO2 rod cluster)
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %WLUPL%%1.bin ECHO *** ERROR *** File %WLUPL%%1.bin not found
    if not exist %WLUPL%%1.bin GOTO ERR
    copy         %WLUPL%%1.bin WIMSDLIB
REM
    IF %2.==.      GOTO EX1T1
    IF %2.==ex1t1. GOTO EX1T1
    IF %2.==EX1T1. GOTO EX1T1
    IF %2.==ex1t2. GOTO EX1T2
    IF %2.==EX1T2. GOTO EX1T2
    IF %2.==ex1t3. GOTO EX1T3
    IF %2.==EX1T3. GOTO EX1T3
    IF %2.==ex1t4. GOTO EX1T4
    IF %2.==EX1T4. GOTO EX1T4
    IF %2.==ex2t1. GOTO EX2T1
    IF %2.==EX2T1. GOTO EX2T1
    GOTO ERR
REM
:EX1T1
ECHO.
ECHO Run all WIMS-D EX1-Task 1 (ZED-2 37 UO2 rod cluster) benchmarks
ECHO ---------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e1t1aird
    call %WLUPP%wimsone e1t1d2od
    call %WLUPP%wimsone e1t1ther
    if not exist e1t1.ref copy %WLUPI%e1t1.ref
    call %WLUPP%e1t1
REM    if exist e1t1.lis del e1t1*.out
REM copy e1t1.lis %1e1t1.lis
    IF NOT %2.==. GOTO EXIT
REM
:EX1T2
ECHO.
ECHO Run all WIMS-D EX1-Task 2 (ZED-2 28 UO2 hexagonal rod cluster) benchmarks
ECHO -------------------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e1t2p24d
    call %WLUPP%wimsone e1t2p40d
    if not exist e1t2.ref copy %WLUPI%e1t2.ref
    call %WLUPP%e1t2
REM    if exist e1t2.lis del e1t2*.out
REM    copy e1t2.lis %1e1t2.lis
    IF NOT %2.==. GOTO EXIT
REM
:EX1T3
ECHO.
ECHO Run all WIMS-D EX1-Task 3 (ZED-2 28 UO2 square rod cluster) benchmarks
ECHO ----------------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e1t3000d
    call %WLUPP%e1t3
REM    if exist e1t3.lis del e1t3*.out
REM    copy e1t3.lis %1e1t3.lis
    IF NOT %2.==. GOTO EXIT
REM
:EX1T4
ECHO.
ECHO Run all WIMS-D EX1-Task 4 (ZED-2 19 ThO2-UO2 rod cluster) benchmarks
ECHO --------------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e1t4a22d
    call %WLUPP%wimsone e1t4a28d
    call %WLUPP%wimsone e1t4d22d
    call %WLUPP%wimsone e1t4d28d
    if not exist e1t4.ref copy %WLUPI%e1t4.ref
    call %WLUPP%e1t4
REM    if exist e1t4.lis del e1t4*.out
REM    copy e1t4.lis %1e1t4.lis
    IF NOT %2.==. GOTO EXIT
REM
:EX2T1
ECHO.
ECHO Run all WIMS-D EX2-Task 1 (DCA 19 sl.enriched UO2 rod cluster) benchmarks
ECHO -------------------------------------------------------------------------
ECHO.
    call %WLUPP%wimsone e2t1a22d
    call %WLUPP%wimsone e2t1a25d
    call %WLUPP%wimsone e2t1d22d
    call %WLUPP%wimsone e2t1d25d
    call %WLUPP%wimsone e2t1h22d
    call %WLUPP%wimsone e2t1h25d
    call %WLUPP%e2t1
REM    if exist e2t1.lis del e2t1*.out
REM    copy e2t1.lis %1e2t1.lis
    IF NOT %2.==. GOTO EXIT
REM
:EXIT
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
:END
*deck dosmat1 
@echo off
rem
rem Procedure: dosmat1.bat
rem
rem Purpose: Prepare one WIMSD formatted dosimetry file
rem
rem Created: 08/2001
rem
rem Author: D. L. Aldama
rem         IAEA WIMS Library Update Project
rem
rem
rem  Usage:  dosmat1  endfdos  ZA  MF  MT  NG  wimsxs  WIMSID IOUT
rem
rem         endfdos: full name of the endfb-6 formatted dosimetry file
rem              ZA: ZA number (6 character string), Ex. 092235, 001001, 026056
rem              MF: MF ENDFB-6 file (2 character string), Ex. 03, 10
rem              MT: MT ENDFB-6 section (3 character string), Ex., 018, 102, 001
rem                  (note that the use of zeros is needed)
rem              NG: number of groups (69 or 172)
rem          wimsxs: WIMS cross section file without extension (.xsw assumed)
rem          WIMSID: WIMS identification number for this material, Ex. 1525
rem            IOUT: trigger to control the output files
rem                   IOUT = all: all files are kept at the end
rem                   IOUT = blank: only WIMSD cross section file (default)
rem                   IOUT = anything else: WIMSD cross section file plus
rem                                         some intermediate files.
rem
rem        Examples: dosmat1 Mn55 025055 03 102  69 Mn55ng   1055 all
rem                  dosmat1 Mn55 025055 03 102 172 Mn55ngx  1055
rem                  dosmat1 U235 092235 03 018 172 U235nfx  1003
rem
rem                  dosmat1 or dosmat1 /h or dosmat1 /? for HELP!
rem
rem    Called codes: merger, linear, sigma1, groupie, diction from PREPRO system
rem                  wimsie from the WIMS Library Update Project
rem
rem        Comments: The following environment variables should be set:
rem                  prepro: directory of the PREPRO code system.
rem                  wlupdl: directory of the evaluated dosimetry files.
rem                  wlupd : directory of the WIMSD dosimetry materials.
rem                  wlupp: directory of wimsie program.
rem                  dosimetry material files are created on the
rem                  %wlupd% directory.
rem
rem                  It can be automatically done if your setwlup.bat
rem                  procedure and the WLUP enviroment variable are
rem                  correctly defined. (see comment cards)
rem
rem                  Maybe you should increase the size of
rem                  Memory/Initial Environment on the MSDOS Window.
rem
rem                  The evaluated data should include the resonance
rem                  contribution from file MF=2 into file MF=3.
rem
rem  References:
rem
rem  PREPRO2002 : "PREPRO2002 : 2002 ENDF/B Pre-processing Codes",
rem                IAEA-NDS-39, Rev. 11, Feb. 5, 2003
rem
rem  JENDL/D-99 : JENDL/D-99: JAERI Nuclear Data Center:
rem               "JENDL Dosimetry File 99 (JENDL/D-99)",
rem               private comunication, 1999
rem
rem  POINT2000  : UCRL-ID-127776, Rev.1: "A Temperature
rem               Dependent ENDF/D-VI, Release 7 Cross
rem               Section Library" , Dermott E. Cullen,
rem               University of California,
rem               LLNL, November 22, 2000
rem
if %1.==.        goto HELP
if %1.==/h.      goto HELP
if %1.==/H.      goto HELP
if %1.==/?.      goto HELP
if %1.==?.       goto HELP
if %1.==help.    goto HELP
if %1.==HELP.    goto HELP
if %1.==Help.    goto HELP
if %1.==/help.   goto HELP
if %1.==/HELP.   goto HELP
if %1.==/Help.   goto HELP
if %1.==-h.      goto HELP
if %1.==-H.      goto HELP
rem
rem   Setting environment
rem
rem  notes:  You should check your setwlup.bat procedure
rem          and eventually define correctly the environment
rem          variable WLUP below.
rem
if .%wlupp%==.       echo Environment setting error !!!
if .%wlupp%==.       goto END
if exist merger.inp  del merger.inp
if exist linear.inp  del linear.inp
if exist sigma1.inp  del sigma1.inp
if exist groupie.inp del groupie.inp
if exist diction.inp del diction.inp
if exist wimsie.inp  del wimsie.inp
if exist merger.lst  del merger.lst
if exist linear.lst  del linear.lst
if exist sigma1.lst  del sigma1.lst
if exist groupie.lst del groupie.lst
if exist diction.lst del diction.lst
if exist wimsie.lst  del wimsie.lst
if exist tape20      del tape20
if exist tape21      del tape21
if exist tape22      del tape22
if exist tape23      del tape23
if exist tape24      del tape24
rem
rem  merger: retrieve evaluated data from the source evaluations
rem
rem  notes: Source files should be on the %wlupdl% directory.
rem
echo =======================================================================
echo  %6 MF=%3 MT=%4 ZA=%2 WIMSID=%7 NG=%5
echo =======================================================================
echo.
echo module merger ...
echo tape20                                                                    >merger.inp
echo WLUP Dosimetry File                                                  0 1 >>merger.inp
echo %wlupdl%%1                                                               >>merger.inp
echo end                                                                      >>merger.inp
echo %201451%201451                                                           >>merger.inp
echo %2%3%4%2%3%4                                                             >>merger.inp
echo.                                                                         >>merger.inp
%prepro%merger
rem
rem  linear: linearize cross sections
rem
rem  notes: The use of linear is required because some pointwise
rem         dosimetry files could not be linearized above the
rem         resonance range (as in JENDL/D-99).
rem         According to evaluators the resonance range was
rem         linearized and the resonance contribution from file 2
rem         was included on file 3.
rem         See JENDL/D-99 documentation.
rem
echo.
echo module linear
echo           1          0 1.0000E-14          1  >linear.inp
echo tape20                                       >>linear.inp
echo tape21                                       >>linear.inp
echo %201451%201451                               >>linear.inp
echo %2%3%4%2%3%4                                 >>linear.inp
echo.                                             >>linear.inp
echo      0.0000      0.001                       >>linear.inp
echo.                                             >>linear.inp
echo.
%prepro%linear
rem
rem  sigma1: doppler broaden cross sections
rem
rem  notes: doppler broaden data to 300. K
rem
echo module sigma1 ...
echo           1                300.00 1.0000e-14  >sigma1.inp
echo tape21                                       >>sigma1.inp
echo tape22                                       >>sigma1.inp
echo      %2     %2                               >>sigma1.inp
echo.                                             >>sigma1.inp
echo.                                             >>sigma1.inp
%prepro%sigma1
rem
rem  groupie: group average cross sections
rem
rem  notes: 69 and 172 groups are allowed.
rem         Energy boundaries are entered explicitly
rem         even for the 69-group energy structure to
rem         avoid minor discrepancies.
rem         The WLUP log-log interpolable spectrum
rem         was linearized using the code linear.
rem         745 (e, flux) pairs are entered from
rem         9.9999999-6 to 20 000 000 eV to cover all
rem         the energy range.
rem         Unshielded (Sigma0=infinity) group cross
rem         sections are saved  in endfb-6 histogram
rem         format (interpolation law 1).
rem
echo.
echo module groupie ...
if %5.==172.  goto G172
rem
rem 69 Groups
rem
echo           1         -6          0        745                     1  >groupie.inp
goto CDAT
:G172
rem
rem 172 Groups
rem
echo           1        172          0        745                     1  >groupie.inp
rem
rem Common data
rem
:CDAT
echo tape22                                                             >>groupie.inp
echo tape23                                                             >>groupie.inp
echo           0          0          0          1          0            >>groupie.inp
echo WLUP Dosimetry File: %6  ZA: %2  WIMS ID: %7                       >>groupie.inp
echo %201451%201451                                                     >>groupie.inp
echo %2%3%4%2%3%4                                                       >>groupie.inp
echo.                                                                   >>groupie.inp
rem
rem  69 group energy boundaries
rem
if %5.==69. goto SPECT
rem
rem  172 group energy boundaries
rem
echo  1.0000E-05 3.0000E-03 5.0000E-03 6.9000E-03 1.0000E-02 1.5000E-02 >>groupie.inp
echo  2.0000E-02 2.5000E-02 3.0000E-02 3.5000E-02 4.2000E-02 5.0000E-02 >>groupie.inp
echo  5.8000E-02 6.7000E-02 7.7000E-02 8.0000E-02 9.5000E-02 1.0000E-01 >>groupie.inp
echo  1.1500E-01 1.3400E-01 1.4000E-01 1.6000E-01 1.8000E-01 1.8900E-01 >>groupie.inp
echo  2.2000E-01 2.4800E-01 2.8000E-01 3.0000E-01 3.1450E-01 3.2000E-01 >>groupie.inp
echo  3.5000E-01 3.9100E-01 4.0000E-01 4.3300E-01 4.8500E-01 5.0000E-01 >>groupie.inp
echo  5.4000E-01 6.2500E-01 7.0500E-01 7.8000E-01 7.9000E-01 8.5000E-01 >>groupie.inp
echo  8.6000E-01 9.1000E-01 9.3000E-01 9.5000E-01 9.7200E-01 9.8600E-01 >>groupie.inp
echo  9.9600E-01 1.0200E+00 1.0350E+00 1.0450E+00 1.0710E+00 1.0970E+00 >>groupie.inp
echo  1.1100E+00 1.1253E+00 1.1500E+00 1.1700E+00 1.2350E+00 1.3000E+00 >>groupie.inp
echo  1.3375E+00 1.3700E+00 1.4450E+00 1.4750E+00 1.5000E+00 1.5900E+00 >>groupie.inp
echo  1.6700E+00 1.7550E+00 1.8400E+00 1.9300E+00 2.0200E+00 2.1000E+00 >>groupie.inp
echo  2.1300E+00 2.3600E+00 2.5500E+00 2.6000E+00 2.7200E+00 2.7679E+00 >>groupie.inp
echo  3.3000E+00 3.3807E+00 4.0000E+00 4.1293E+00 5.0435E+00 5.3464E+00 >>groupie.inp
echo  6.1601E+00 7.5240E+00 8.3153E+00 9.1898E+00 9.9056E+00 1.1224E+01 >>groupie.inp
echo  1.3710E+01 1.5928E+01 1.9455E+01 2.2603E+01 2.4980E+01 2.7608E+01 >>groupie.inp
echo  3.0511E+01 3.3720E+01 3.7266E+01 4.0169E+01 4.5517E+01 4.8252E+01 >>groupie.inp
echo  5.1578E+01 5.5595E+01 6.7904E+01 7.5674E+01 9.1661E+01 1.3674E+02 >>groupie.inp
echo  1.4863E+02 2.0399E+02 3.0433E+02 3.7170E+02 4.5400E+02 6.7729E+02 >>groupie.inp
echo  7.4852E+02 9.1424E+02 1.0104E+03 1.2341E+03 1.4338E+03 1.5073E+03 >>groupie.inp
echo  2.0347E+03 2.2487E+03 3.3546E+03 3.5266E+03 5.0045E+03 5.5308E+03 >>groupie.inp
echo  7.4659E+03 9.1188E+03 1.1138E+04 1.5034E+04 1.6616E+04 2.4788E+04 >>groupie.inp
echo  2.7394E+04 2.9283E+04 3.6979E+04 4.0868E+04 5.5166E+04 6.7380E+04 >>groupie.inp
echo  8.2298E+04 1.1109E+05 1.2277E+05 1.8316E+05 2.4724E+05 2.7324E+05 >>groupie.inp
echo  3.0197E+05 4.0762E+05 4.5049E+05 4.9787E+05 5.5023E+05 6.0810E+05 >>groupie.inp
echo  8.2085E+05 9.0718E+05 1.0026E+06 1.1080E+06 1.2246E+06 1.3534E+06 >>groupie.inp
echo  1.6530E+06 2.0190E+06 2.2313E+06 2.4660E+06 3.0119E+06 3.6788E+06 >>groupie.inp
echo  4.4933E+06 5.4881E+06 6.0653E+06 6.7032E+06 8.1873E+06 1.0000E+07 >>groupie.inp
echo  1.1618E+07 1.3840E+07 1.4918E+07 1.7333E+07 1.9640E+07            >>groupie.inp
:SPECT
rem
rem    lin-lin WLUP averaging spectrum. 745 (e,flux) pairs.
rem
echo  9.999999-6 5.250000-4 1.414213-5 7.317249-4 2.000000-5 1.019850-3 >>groupie.inp
echo  2.828427-5 1.421428-3 4.000000-5 1.981132-3 5.656854-5 2.761225-3 >>groupie.inp
echo  7.999999-5 3.848490-3 1.131371-4 5.363878-3 1.600000-4 7.475967-3 >>groupie.inp
echo  2.262741-4 1.041972-2 3.200000-4 1.452260-2 4.525483-4 2.024105-2 >>groupie.inp
echo  6.399999-4 2.821119-2 9.050966-4 3.931968-2 1.280000-3 5.480226-2 >>groupie.inp
echo  1.810193-3 7.638129-2 2.560000-3 1.064573-1 3.620386-3 1.483761-1 >>groupie.inp
echo  5.119999-3 2.068009-1 6.788225-3 2.709508-1 9.000000-3 3.550000-1 >>groupie.inp
echo  0.01039230 3.964204-1 0.01157614 4.306275-1 0.01360949 4.875514-1 >>groupie.inp
echo  0.01600000 5.520000-1 0.01770691 5.882668-1 0.02061470 6.471831-1 >>groupie.inp
echo  0.02400000 7.120000-1 0.02530000 7.316375-1 0.02900000 7.850000-1 >>groupie.inp
echo  0.03300000 8.290000-1 0.03766962 8.628105-1 0.04300000 8.980000-1 >>groupie.inp
echo  0.05000000 9.180000-1 0.05400000 9.210000-1 0.05900000 9.180000-1 >>groupie.inp
echo  0.07000000 8.920000-1 0.07453910 8.677814-1 0.08190555 8.326808-1 >>groupie.inp
echo  0.09000000 7.990000-1 0.09505750 7.691147-1 0.10318159 7.263695-1 >>groupie.inp
echo  0.11200000 6.860000-1 0.11516799 6.626497-1 0.12092911 6.236829-1 >>groupie.inp
echo  0.12543829 5.959691-1 0.12893019 5.759949-1 0.13435113 5.472818-1 >>groupie.inp
echo  0.14000000 5.200000-1 0.14343930 5.004985-1 0.14966262 4.681142-1 >>groupie.inp
echo  0.15450667 4.452086-1 0.15824233 4.287680-1 0.16401584 4.052384-1 >>groupie.inp
echo  0.17000000 3.830000-1 0.17455015 3.634745-1 0.17863132 3.472081-1 >>groupie.inp
echo  0.18228054 3.335732-1 0.18884699 3.109879-1 0.19392659 2.950582-1 >>groupie.inp
echo  0.19782576 2.836488-1 0.20382201 2.673565-1 0.21000000 2.520000-1 >>groupie.inp
echo  0.21473393 2.390023-1 0.21926886 2.274264-1 0.22360730 2.170837-1 >>groupie.inp
echo  0.22775251 2.078151-1 0.23170842 1.994855-1 0.23547946 1.919799-1 >>groupie.inp
echo  0.24271636 1.786598-1 0.24923087 1.677650-1 0.25507433 1.587785-1 >>groupie.inp
echo  0.26029964 1.513111-1 0.26495952 1.450657-1 0.27331594 1.347502-1 >>groupie.inp
echo  0.27975576 1.274979-1 0.28468500 1.223160-1 0.29224220 1.149353-1 >>groupie.inp
echo  0.30000000 1.080000-1 0.31098439 1.020623-1 0.32092516 9.713524-2 >>groupie.inp
echo  0.32988366 9.301956-2 0.33792724 8.956165-2 0.35247831 8.381674-2 >>groupie.inp
echo  0.36380134 7.975120-2 0.37253169 7.683200-2 0.38602160 7.265231-2 >>groupie.inp
echo  0.40000000 6.870000-2 0.41027684 6.618863-2 0.42890072 6.201262-2 >>groupie.inp
echo  0.44342135 5.905445-2 0.45463354 5.692880-2 0.47198563 5.388292-2 >>groupie.inp
echo  0.49000000 5.100000-2 0.50888046 4.906796-2 0.53857391 4.630626-2 >>groupie.inp
echo  0.57000000 4.370000-2 0.60000000 4.130000-2 0.61946503 4.001534-2 >>groupie.inp
echo  0.65768009 3.771333-2 0.69304728 3.580798-2 0.72555026 3.421992-2 >>groupie.inp
echo  0.75523840 3.288826-2 0.78221035 3.176563-2 0.83174973 2.989245-2 >>groupie.inp
echo  0.87095256 2.856042-2 0.90156258 2.760049-2 0.94950649 2.622076-2 >>groupie.inp
echo  1.00000000 2.491000-2 1.04427378 2.391801-2 1.08755906 2.302392-2 >>groupie.inp
echo  1.12976710 2.221609-2 1.17082366 2.148452-2 1.21066823 2.082056-2 >>groupie.inp
echo  1.28906778 1.963044-2 1.36182102 1.864503-2 1.42884059 1.782345-2 >>groupie.inp
echo  1.49018283 1.713433-2 1.54601378 1.655324-2 1.64879826 1.558334-2 >>groupie.inp
echo  1.73034674 1.489340-2 1.79414423 1.439607-2 1.89427782 1.368103-2 >>groupie.inp
echo  2.00000000 1.300151-2 2.08854756 1.248375-2 2.17511812 1.201709-2 >>groupie.inp
echo  2.25953420 1.159545-2 2.34164732 1.121361-2 2.42133646 1.086707-2 >>groupie.inp
echo  2.57813555 1.024590-2 2.72364204 9.731573-3 2.85768117 9.302762-3 >>groupie.inp
echo  2.98036566 8.943081-3 3.09202756 8.639786-3 3.29759651 8.133561-3 >>groupie.inp
echo  3.46069347 7.773453-3 3.58828846 7.513875-3 3.78855564 7.140669-3 >>groupie.inp
echo  4.00000000 6.786000-3 4.17709513 6.498296-3 4.35023624 6.239662-3 >>groupie.inp
echo  4.51906839 6.006549-3 4.68329464 5.795921-3 4.84267292 5.605170-3 >>groupie.inp
echo  5.15627111 5.264271-3 5.44728407 4.983036-3 5.71536235 4.749307-3 >>groupie.inp
echo  5.96073132 4.553806-3 6.18405512 4.389355-3 6.38631640 4.250340-3 >>groupie.inp
echo  6.75632170 4.017574-3 7.04782703 3.851403-3 7.27468050 3.731301-3 >>groupie.inp
echo  7.62872493 3.558134-3 8.00000000 3.393003-3 8.35419026 3.249151-3 >>groupie.inp
echo  8.70047249 3.119834-3 9.03813678 3.003277-3 9.36658927 2.897963-3 >>groupie.inp
echo  9.68534585 2.802588-3 10.3125422 2.632138-3 10.8945681 2.491520-3 >>groupie.inp
echo  11.4307247 2.374656-3 11.9214626 2.276905-3 12.3681102 2.194680-3 >>groupie.inp
echo  12.7726328 2.125172-3 13.5126434 2.008789-3 14.0956541 1.925703-3 >>groupie.inp
echo  14.5493610 1.865652-3 15.2574499 1.779069-3 16.0000000 1.696503-3 >>groupie.inp
echo  16.7083805 1.624577-3 17.4009450 1.559918-3 18.0762736 1.501640-3 >>groupie.inp
echo  18.7331785 1.448983-3 19.3706917 1.401295-3 20.6250844 1.316070-3 >>groupie.inp
echo  21.7891363 1.245761-3 22.8614494 1.187329-3 23.8429253 1.138454-3 >>groupie.inp
echo  24.7362205 1.097341-3 25.5452656 1.062587-3 27.0252868 1.004395-3 >>groupie.inp
echo  28.1913081 9.628525-4 29.0987220 9.328270-4 30.5148997 8.895351-4 >>groupie.inp
echo  32.0000000 8.482524-4 33.4167610 8.122893-4 34.8018899 7.799599-4 >>groupie.inp
echo  36.1525471 7.508207-4 37.4663571 7.244922-4 38.7413834 7.006483-4 >>groupie.inp
echo  41.2501689 6.580358-4 43.5782726 6.228812-4 45.7228988 5.936651-4 >>groupie.inp
echo  47.6858506 5.692274-4 49.4724409 5.486710-4 51.0905312 5.312940-4 >>groupie.inp
echo  54.0505736 5.021981-4 56.3826162 4.814267-4 58.1974440 4.664139-4 >>groupie.inp
echo  61.0297994 4.447680-4 64.0000000 4.241266-4 66.8335221 4.061450-4 >>groupie.inp
echo  69.6037799 3.899803-4 72.3050943 3.754107-4 74.9327142 3.622464-4 >>groupie.inp
echo  77.4827668 3.503245-4 82.5003377 3.290182-4 87.1565452 3.114409-4 >>groupie.inp
echo  91.4457976 2.968328-4 95.3717012 2.846140-4 98.9448819 2.743358-4 >>groupie.inp
echo  102.181062 2.656473-4 108.101147 2.510993-4 112.765232 2.407136-4 >>groupie.inp
echo  116.394888 2.332072-4 122.059599 2.223842-4 128.000000 2.120635-4 >>groupie.inp
echo  133.667044 2.030727-4 139.207560 1.949904-4 144.610189 1.877055-4 >>groupie.inp
echo  149.865428 1.811234-4 154.965534 1.751624-4 165.000675 1.645093-4 >>groupie.inp
echo  174.313090 1.557206-4 182.891595 1.484166-4 190.743402 1.423071-4 >>groupie.inp
echo  197.889764 1.371680-4 204.362125 1.328238-4 216.202294 1.255498-4 >>groupie.inp
echo  225.530465 1.203569-4 232.789776 1.166037-4 244.119198 1.111922-4 >>groupie.inp
echo  256.000000 1.060319-4 267.334088 1.015365-4 278.415120 9.749527-5 >>groupie.inp
echo  289.220377 9.385286-5 299.730857 9.056178-5 309.931067 8.758128-5 >>groupie.inp
echo  330.001351 8.225470-5 348.626181 7.786038-5 365.783190 7.420835-5 >>groupie.inp
echo  381.486805 7.115362-5 395.779528 6.858407-5 408.724250 6.641194-5 >>groupie.inp
echo  432.404589 6.277494-5 451.060930 6.017851-5 465.579552 5.830191-5 >>groupie.inp
echo  488.238395 5.559616-5 512.000000 5.301598-5 534.668177 5.076828-5 >>groupie.inp
echo  556.830239 4.874768-5 578.440754 4.692647-5 599.461713 4.528093-5 >>groupie.inp
echo  619.862134 4.379068-5 660.002702 4.112739-5 697.252361 3.893022-5 >>groupie.inp
echo  731.566381 3.710421-5 762.973609 3.557685-5 791.559055 3.429207-5 >>groupie.inp
echo  817.448499 3.320600-5 864.809177 3.138750-5 902.121860 3.008928-5 >>groupie.inp
echo  931.159105 2.915098-5 976.476791 2.779810-5 1024.00000 2.650801-5 >>groupie.inp
echo  1069.33635 2.538416-5 1113.66048 2.437386-5 1156.88151 2.346326-5 >>groupie.inp
echo  1198.92343 2.264049-5 1239.72427 2.189536-5 1320.00540 2.056371-5 >>groupie.inp
echo  1394.50472 1.946513-5 1463.13276 1.855212-5 1525.94722 1.778844-5 >>groupie.inp
echo  1583.11811 1.714605-5 1634.89700 1.660302-5 1729.61835 1.569377-5 >>groupie.inp
echo  1804.24372 1.504466-5 1862.31821 1.457550-5 1952.95358 1.389907-5 >>groupie.inp
echo  2048.00000 1.325402-5 2138.67271 1.269209-5 2227.32096 1.218694-5 >>groupie.inp
echo  2313.76302 1.173164-5 2397.84685 1.132025-5 2479.44854 1.094769-5 >>groupie.inp
echo  2640.01081 1.028187-5 2789.00945 9.732574-6 2926.26552 9.276070-6 >>groupie.inp
echo  3051.89444 8.894228-6 3166.23622 8.573033-6 3269.79400 8.301516-6 >>groupie.inp
echo  3459.23671 7.846890-6 3608.48744 7.522335-6 3724.63642 7.287759-6 >>groupie.inp
echo  3905.90716 6.949539-6 4096.00000 6.627016-6 4277.34541 6.346052-6 >>groupie.inp
echo  4454.64191 6.093477-6 4627.52603 5.865826-6 4795.69371 5.660133-6 >>groupie.inp
echo  4958.89707 5.473851-6 5280.02161 5.140938-6 5578.01889 4.866292-6 >>groupie.inp
echo  5852.53105 4.638039-6 6103.78888 4.447118-6 6332.47244 4.286520-6 >>groupie.inp
echo  6539.58799 4.150762-6 6918.47342 3.923449-6 7216.97488 3.761171-6 >>groupie.inp
echo  7449.27284 3.643883-6 7811.81433 3.474773-6 8192.00000 3.313511-6 >>groupie.inp
echo  8642.60701 3.140752-6 9118.00000 2.977000-6 9521.68835 2.857125-6 >>groupie.inp
echo  9916.36352 2.749130-6 10301.2164 2.651595-6 10675.5701 2.563302-6 >>groupie.inp
echo  11038.8729 2.483198-6 11753.7200 2.339689-6 12417.0840 2.220939-6 >>groupie.inp
echo  13028.1685 2.121988-6 13587.4871 2.039028-6 14096.5536 1.969104-6 >>groupie.inp
echo  15033.7425 1.852457-6 15777.3015 1.769528-6 16359.0071 1.709778-6 >>groupie.inp
echo  17272.0252 1.623914-6 18236.0000 1.542361-6 19097.6438 1.476264-6 >>groupie.inp
echo  20000.0000 1.413000-6 21100.5387 1.351266-6 22113.0754 1.299466-6 >>groupie.inp
echo  23038.8237 1.255772-6 24753.1127 1.182814-6 26122.0321 1.130890-6 >>groupie.inp
echo  27198.1781 1.093449-6 28896.0909 1.039598-6 30700.0000 9.884000-7 >>groupie.inp
echo  32036.2386 9.561568-7 33341.7368 9.268848-7 35934.6383 8.743935-7 >>groupie.inp
echo  38368.3130 8.309080-7 40632.6084 7.946359-7 42723.2174 7.641991-7 >>groupie.inp
echo  44640.5507 7.385248-7 46388.6717 7.167684-7 49614.2151 6.802255-7 >>groupie.inp
echo  52179.7227 6.540462-7 56278.8519 6.166542-7 60700.0000 5.814000-7 >>groupie.inp
echo  63341.4828 5.649873-7 68608.0148 5.354520-7 73574.2176 5.108780-7 >>groupie.inp
echo  78213.6586 4.903027-7 82512.5354 4.729802-7 86467.4390 4.583258-7 >>groupie.inp
echo  93850.1041 4.337646-7 99797.8949 4.162114-7 104504.826 4.035143-7 >>groupie.inp
echo  111984.727 3.851911-7 120000.000 3.677000-7 127992.080 3.549089-7 >>groupie.inp
echo  135420.595 3.440822-7 142273.375 3.348802-7 155110.694 3.193648-7 >>groupie.inp
echo  165493.263 3.082018-7 173733.774 3.000864-7 186870.245 2.883122-7 >>groupie.inp
echo  201000.000 2.770000-7 218949.346 2.681333-7 233455.628 2.616700-7 >>groupie.inp
echo  257036.851 2.522660-7 283000.000 2.432000-7 317408.254 2.387595-7 >>groupie.inp
echo  356000.000 2.344000-7 366349.560 2.250120-7 377000.000 2.160000-7 >>groupie.inp
echo  382383.581 2.045751-7 386471.659 1.964048-7 392685.869 1.847570-7 >>groupie.inp
echo  399000.000 1.738000-7 401560.496 1.632720-7 403975.881 1.539819-7 >>groupie.inp
echo  406253.499 1.457531-7 408400.426 1.384385-7 410423.473 1.319147-7 >>groupie.inp
echo  412329.181 1.260782-7 415926.265 1.158217-7 419099.446 1.075341-7 >>groupie.inp
echo  421895.831 1.007704-7 424357.970 9.520211-8 426524.126 9.058282-8 >>groupie.inp
echo  428428.581 8.672517-8 431781.861 8.036538-8 434314.034 7.590352-8 >>groupie.inp
echo  436222.904 7.272045-8 439101.951 6.819438-8 442000.000 6.395000-8 >>groupie.inp
echo  443935.141 6.710233-8 447586.394 7.343779-8 450805.867 7.947012-8 >>groupie.inp
echo  453641.896 8.515352-8 456138.054 9.045894-8 458333.456 9.537164-8 >>groupie.inp
echo  462200.866 1.046196-7 465122.825 1.121394-7 467326.409 1.181318-7 >>groupie.inp
echo  470651.376 1.277263-7 474000.000 1.381000-7 487799.139 1.519550-7 >>groupie.inp
echo  502000.000 1.672000-7 520653.436 1.799164-7 540000.000 1.936000-7 >>groupie.inp
echo  650000.000 1.872000-7 678121.789 1.796278-7 722602.088 1.688400-7 >>groupie.inp
echo  770000.000 1.587000-7 800624.123 1.527765-7 848859.064 1.443033-7 >>groupie.inp
echo  900000.000 1.363000-7 910079.408 1.301743-7 925410.570 1.214980-7 >>groupie.inp
echo  941000.000 1.134000-7 948180.284 1.072663-7 954507.962 1.021721-7 >>groupie.inp
echo  960079.311 9.791350-8 969907.535 9.088363-8 977344.672 8.594448-8 >>groupie.inp
echo  988607.441 7.903445-8 1000000.00 7.268000-8 1012272.23 7.696369-8 >>groupie.inp
echo  1030963.55 8.386722-8 1050000.00 9.139000-8 1084435.34 9.948637-8 >>groupie.inp
echo  1120000.00 1.083000-7 1154469.58 1.153223-7 1190000.00 1.228000-7 >>groupie.inp
echo  1210000.00 1.192000-7 1216020.06 1.135112-7 1221691.07 1.084248-7 >>groupie.inp
echo  1227031.66 1.038635-7 1237108.27 9.582184-8 1245993.16 8.929784-8 >>groupie.inp
echo  1253819.77 8.395477-8 1260708.37 7.954249-8 1266766.93 7.587240-8 >>groupie.inp
echo  1277439.56 6.985249-8 1285503.00 6.565314-8 1291583.97 6.267014-8 >>groupie.inp
echo  1300759.39 5.844783-8 1310000.00 5.451000-8 1320925.69 5.855615-8 >>groupie.inp
echo  1330560.40 6.234215-8 1339048.40 6.585518-8 1346519.80 6.909109-8 >>groupie.inp
echo  1359695.21 7.514122-8 1369661.30 8.002402-8 1384747.56 8.794954-8 >>groupie.inp
echo  1400000.00 9.666000-8 1440927.38 9.238095-8 1480382.78 8.854154-8 >>groupie.inp
echo  1518352.85 8.508714-8 1554833.81 8.197114-8 1589830.37 7.915361-8 >>groupie.inp
echo  1657585.97 7.412915-8 1719236.71 6.999508-8 1775059.18 6.656733-8 >>groupie.inp
echo  1825388.69 6.370604-8 1870596.24 6.130349-8 1952420.17 5.731497-8 >>groupie.inp
echo  2016128.50 5.449483-8 2065270.30 5.247116-8 2141237.98 4.957569-8 >>groupie.inp
echo  2220000.00 4.684000-8 2251809.76 4.944034-8 2300381.04 5.361400-8 >>groupie.inp
echo  2350000.00 5.814000-8 2383300.74 5.514276-8 2412825.76 5.264720-8 >>groupie.inp
echo  2438960.04 5.055641-8 2485378.00 4.709534-8 2520770.31 4.465593-8 >>groupie.inp
echo  2547644.89 4.290966-8 2588494.94 4.041746-8 2630000.00 3.807000-8 >>groupie.inp
echo  2717985.43 3.576377-8 2785900.86 3.412626-8 2890969.14 3.180949-8 >>groupie.inp
echo  3000000.00 2.965000-8 3054428.24 2.855737-8 3159156.81 2.661604-8 >>groupie.inp
echo  3253735.79 2.502595-8 3338812.25 2.371275-8 3415076.98 2.262034-8 >>groupie.inp
echo  3483236.27 2.170585-8 3605804.68 2.019355-8 3700553.15 1.912889-8 >>groupie.inp
echo  3773244.81 1.836739-8 3884968.37 1.728160-8 4000000.00 1.626000-8 >>groupie.inp
echo  4056176.71 1.562927-8 4163643.23 1.451185-8 4260009.54 1.359985-8 >>groupie.inp
echo  4346157.90 1.284898-8 4422965.62 1.222607-8 4491285.04 1.170583-8 >>groupie.inp
echo  4613393.13 1.084813-8 4707147.96 1.024635-8 4778712.34 9.817024-9 >>groupie.inp
echo  4888104.10 9.206529-9 5000000.00 8.634000-9 5057301.34 8.288276-9 >>groupie.inp
echo  5166517.26 7.676919-9 5264014.24 7.179090-9 5350832.17 6.770044-9 >>groupie.inp
echo  5427971.64 6.431294-9 5496380.37 6.148821-9 5618176.74 5.684018-9 >>groupie.inp
echo  5711291.95 5.358623-9 5782139.74 5.126860-9 5890062.68 4.797875-9 >>groupie.inp
echo  6000000.00 4.490000-9 6054183.58 4.305096-9 6107140.49 4.133235-9 >>groupie.inp
echo  6211066.31 3.819534-9 6310102.36 3.547097-9 6404382.37 3.309363-9 >>groupie.inp
echo  6494048.82 3.100979-9 6579250.95 2.917552-9 6660142.90 2.755455-9 >>groupie.inp
echo  6736882.15 2.611678-9 6809628.03 2.483708-9 6878540.56 2.369437-9 >>groupie.inp
echo  6943779.28 2.267087-9 7005502.42 2.175154-9 7122715.94 2.012707-9 >>groupie.inp
echo  7226885.44 1.880549-9 7319282.71 1.772050-9 7401098.86 1.682261-9 >>groupie.inp
echo  7473437.86 1.607435-9 7601736.61 1.484409-9 7699404.03 1.398360-9 >>groupie.inp
echo  7773477.20 1.337112-9 7885925.29 1.250234-9 8000000.00 1.169000-9 >>groupie.inp
echo  8055980.84 1.119730-9 8110585.82 1.073981-9 8217438.46 9.90594-10 >>groupie.inp
echo  8318890.95 9.18308-10 8415139.93 8.55338-10 8506384.47 8.00231-10 >>groupie.inp
echo  8592824.56 7.51798-10 8674659.73 7.09057-10 8752087.89 6.71196-10 >>groupie.inp
echo  8825304.34 6.37540-10 8894500.94 6.07522-10 8959865.42 5.80665-10 >>groupie.inp
echo  9021580.80 5.56566-10 9138445.22 5.14043-10 9241942.75 4.79510-10 >>groupie.inp
echo  9333464.17 4.51201-10 9414288.57 4.27805-10 9485583.87 4.08332-10 >>groupie.inp
echo  9611652.28 3.76361-10 9707301.94 3.54037-10 9779663.32 3.38167-10 >>groupie.inp
echo  9889218.03 3.15686-10 10000000.0 2.94700-10 10071733.5 2.72138-10 >>groupie.inp
echo  10141716.1 2.51930-10 10209975.3 2.33785-10 10276539.6 2.17455-10 >>groupie.inp
echo  10341437.5 2.02724-10 10404698.1 1.89405-10 10466350.9 1.77337-10 >>groupie.inp
echo  10526425.3 1.66381-10 10584951.3 1.56412-10 10641958.6 1.47325-10 >>groupie.inp
echo  10697477.2 1.39026-10 10751537.0 1.31432-10 10804167.9 1.24472-10 >>groupie.inp
echo  10855399.8 1.18080-10 10905262.4 1.12202-10 10953785.1 1.06786-10 >>groupie.inp
echo  11000997.4 1.01789-10 11046928.4 9.71712-11 11091606.9 9.28976-11 >>groupie.inp
echo  11135061.5 8.89369-11 11219739.8 8.17372-11 11299710.5 7.55177-11 >>groupie.inp
echo  11375200.6 7.01174-11 11446430.5 6.54059-11 11513613.6 6.12768-11 >>groupie.inp
echo  11576955.9 5.76428-11 11636655.7 5.44319-11 11692903.8 5.15843-11 >>groupie.inp
echo  11745883.4 4.90502-11 11795769.7 4.67876-11 11842730.5 4.47613-11 >>groupie.inp
echo  11931286.5 4.11955-11 12009316.1 3.83093-11 12078010.4 3.59502-11 >>groupie.inp
echo  12138440.3 3.40055-11 12191564.3 3.23904-11 12285091.5 2.97463-11 >>groupie.inp
echo  12355707.4 2.79058-11 12408935.6 2.66006-11 12489208.2 2.47564-11 >>groupie.inp
echo  12570000.0 2.30400-11 12600000.0 2.23600-11 12649901.2 2.12736-11 >>groupie.inp
echo  12700000.0 2.02400-11 12749902.0 1.92561-11 12800000.0 1.83200-11 >>groupie.inp
echo  12849902.7 1.74283-11 12900000.0 1.65800-11 12949903.5 1.57755-11 >>groupie.inp
echo  13000000.0 1.50100-11 13049904.2 1.42771-11 13100000.0 1.35800-11 >>groupie.inp
echo  13149904.9 1.29189-11 13200000.0 1.22900-11 13249905.7 1.16904-11 >>groupie.inp
echo  13300000.0 1.11200-11 13349906.4 1.05767-11 13400000.0 1.00600-11 >>groupie.inp
echo  13449907.1 9.57217-12 13500000.0 9.10800-12 13549907.7 8.66419-12 >>groupie.inp
echo  13600000.0 8.24200-12 13649908.4 7.84021-12 13700000.0 7.45800-12 >>groupie.inp
echo  13749909.1 7.09412-12 13800000.0 6.74800-12 13849909.7 6.41898-12 >>groupie.inp
echo  13900000.0 6.10600-12 13984741.7 5.60821-12 14070000.0 5.15100-12 >>groupie.inp
echo  14134850.5 4.82626-12 14200000.0 4.52200-12 14249912.3 4.30110-12 >>groupie.inp
echo  14300000.0 4.09100-12 14349912.9 3.89164-12 14400000.0 3.70200-12 >>groupie.inp
echo  14449913.5 3.52108-12 14500000.0 3.34900-12 14549914.1 3.18551-12 >>groupie.inp
echo  14600000.0 3.03000-12 14649914.7 2.88188-12 14700000.0 2.74100-12 >>groupie.inp
echo  14749915.3 2.60671-12 14800000.0 2.47900-12 14849915.8 2.35805-12 >>groupie.inp
echo  14900000.0 2.24300-12 14949916.4 2.13332-12 15000000.0 2.02900-12 >>groupie.inp
echo  15049916.9 1.92956-12 15100000.0 1.83500-12 15149917.5 1.74531-12 >>groupie.inp
echo  15200000.0 1.66000-12 15249918.0 1.57850-12 15300000.0 1.50100-12 >>groupie.inp
echo  15349918.6 1.42771-12 15400000.0 1.35800-12 15449919.1 1.29137-12 >>groupie.inp
echo  15500000.0 1.22800-12 15543813.9 1.17490-12 15609767.0 1.09953-12 >>groupie.inp
echo  15676000.0 1.02900-12 15735780.8 9.61258-13 15794850.2 8.98931-13 >>groupie.inp
echo  15853213.2 8.41527-13 15910874.9 7.88601-13 15967840.5 7.39754-13 >>groupie.inp
echo  16024115.2 6.94627-13 16079704.2 6.52894-13 16134613.1 6.14263-13 >>groupie.inp
echo  16188847.1 5.78469-13 16242411.8 5.45271-13 16295312.6 5.14454-13 >>groupie.inp
echo  16347555.1 4.85820-13 16399144.9 4.59190-13 16450087.6 4.34403-13 >>groupie.inp
echo  16500388.9 4.11310-13 16550054.5 3.89777-13 16599090.0 3.69682-13 >>groupie.inp
echo  16647501.3 3.50913-13 16695294.0 3.33368-13 16742474.0 3.16955-13 >>groupie.inp
echo  16789047.0 3.01587-13 16835018.9 2.87187-13 16880395.3 2.73684-13 >>groupie.inp
echo  16925182.2 2.61013-13 16969385.4 2.49112-13 17013010.7 2.37927-13 >>groupie.inp
echo  17056063.8 2.27408-13 17098550.7 2.17508-13 17140477.0 2.08183-13 >>groupie.inp
echo  17223320.2 1.90977-13 17303956.3 1.75666-13 17382432.6 1.62005-13 >>groupie.inp
echo  17458795.8 1.49785-13 17533092.6 1.38826-13 17605369.2 1.28975-13 >>groupie.inp
echo  17675671.1 1.20099-13 17744043.9 1.12083-13 17810532.2 1.04829-13 >>groupie.inp
echo  17875180.3 9.82487-14 17938031.9 9.22685-14 17999130.1 8.68226-14 >>groupie.inp
echo  18058517.5 8.18535-14 18116235.9 7.73112-14 18172326.5 7.31512-14 >>groupie.inp
echo  18226829.8 6.93349-14 18279785.8 6.58278-14 18331233.7 6.25995-14 >>groupie.inp
echo  18381211.8 5.96232-14 18429758.1 5.68749-14 18476909.6 5.43333-14 >>groupie.inp
echo  18522702.6 5.19795-14 18611749.9 4.77053-14 18695620.4 4.40180-14 >>groupie.inp
echo  18774592.3 4.08205-14 18848931.3 3.80340-14 18918891.5 3.55947-14 >>groupie.inp
echo  18984714.9 3.34501-14 19046632.4 3.15571-14 19104863.4 2.98798-14 >>groupie.inp
echo  19159616.7 2.83884-14 19211090.3 2.70579-14 19259472.5 2.58672-14 >>groupie.inp
echo  19350517.7 2.37741-14 19430535.3 2.20820-14 19500822.0 2.07006-14 >>groupie.inp
echo  19562531.5 1.95629-14 19616687.4 1.86188-14 19711821.3 1.70750-14 >>groupie.inp
echo  19783474.3 1.60017-14 19837385.0 1.52413-14 19918526.5 1.41678-14 >>groupie.inp
echo  20000000.0 1.31700-14                                             >>groupie.inp
%prepro%groupie
rem
rem  dictin: update the section index on MF=1, MT=451
rem
rem  notes: it should not do any harm.
echo.
echo module dictin ...
echo tape23  >dictin.inp
echo tape24 >>dictin.inp
%prepro%dictin
rem
rem wimsie: prepare WIMSD cross section file for dosimetry materials
rem
rem notes: The extension assumed for the WIMSD cross section file is *.xsw.
rem        The cross section data could be introduced into a WIMSD formatted
rem        library using the library managing code willie.
rem
echo.
echo module wimsie ...
if     %5.==172.  goto W172
rem
rem  69 group library
rem
echo 69 14 13        >wimsie.inp
goto WDAT
:W172
rem
rem  172 group library
rem
echo 172 45 47       >wimsie.inp
rem
rem  Common data
rem
:WDAT
echo %7             >>wimsie.inp
echo %2             >>wimsie.inp
echo %wlupd%%6.xsw  >>wimsie.inp
echo.               >>wimsie.inp
echo tape24         >>wimsie.inp
echo %3 %4          >>wimsie.inp
%wlupp%wimsie<wimsie.inp
echo.
echo job ended
echo.
if %8.==.               goto CLEAN
if exist tape24         copy tape24      %6.dat
if exist wimsie.lst     copy wimsie.lst  %6.lst
if not %8.==all.        goto CLEAN
if exist merger.lst     copy merger.lst  %6m.lst
if exist linear.lst     copy linear.lst  %6l.lst
if exist sigma1.lst     copy sigma1.lst  %6s.lst
if exist groupie.lst    copy groupie.lst %6g.lst
if exist dictin.lst     copy dictin.lst  %6d.lst
if exist tape20         copy tape20      %6m.dat
if exist tape21         copy tape21      %6l.dat
if exist tape22         copy tape22      %6s.dat
if exist tape23         copy tape23      %6g.dat
:CLEAN
rem if exist merger.inp  del  merger.inp
if exist linear.inp  del  linear.inp
if exist sigma1.inp  del  sigma1.inp
if exist groupie.inp del  groupie.inp
if exist dictin.inp  del  dictin.inp
if exist wimsie.inp  del  wimsie.inp
if exist merger.lst  del  merger.lst
if exist linear.lst  del  linear.lst
if exist sigma1.lst  del  sigma1.lst
if exist groupie.lst del  groupie.lst
if exist dictin.lst  del  dictin.lst
if exist wimsie.lst  del  wimsie.lst
if exist tape20      del  tape20
if exist tape21      del  tape21
if exist tape22      del  tape22
if exist tape23      del  tape23
if exist tape24      del  tape24
goto END
:HELP
echo Procedure: dosmat1.bat
echo.
echo Purpose: Prepare one WIMSD formatted dosimetry file
echo.
echo   Usage: dosmat1  endfdos  ZA  MF  MT  NG  wimsxs  WIMSID IOUT
echo.
echo         endfdos: full name of the endfb-6 formatted dosimetry file
echo              ZA: ZA number (6 character string), Ex. 092235, 001001, 026056
echo              MF: MF ENDFB-6 file (2 character string), Ex. 03, 10
echo              MT: MT ENDFB-6 section (3 character string), Ex. 018, 102, 001
echo                  (note that the use of zeros is needed)
echo              NG: number of groups (69 or 172)
echo          wimsxs: WIMS cross section file without extension (.xsw assumed)
echo          WIMSID: WIMS identification number for this material, Ex. 1525
echo            IOUT: trigger to control the output files
echo                   IOUT = all: all files are kept at the end
echo                   IOUT = blank: only WIMSD cross section file (default)
echo                   IOUT = anything else: WIMSD cross section file plus
echo                                         some intermediate files.
pause
echo        Examples: dosmat1 lib6 025055 03 102  69 Mn55ng   1055 all
echo                  dosmat1 Mn55 025055 03 102 172 Mn55ngx  1055
echo                  dosmat1 U235 092235 03 018 172 U235nfx  1003
echo.
echo                  dosmat1 or dosmat1 /h or dosmat1 /? for HELP!
echo.
echo    Called codes: merger, linear, sigma1, groupie, diction from PREPRO
echo                  system.
echo                  wimsie from the WIMS Library Update Project
echo.
pause
echo        Comments: The following environment variables should be set:
echo                  prepro: directory of the PREPRO code system.
echo                  wlupdl: directory of the evaluated dosimetry files.
echo                  wlupd : directory of the WIMSD dosimetry materials.
echo                  wlupp: directory of wimsie program.
echo                  dosimetry material files are created on the
echo                  "wlupd" directory.
echo.
echo                  It can be automatically done if your setwlup.bat
echo                  procedure and the WLUP enviroment variable are
echo                  correctly defined. (see comment cards)
echo.
echo                  Maybe you should increase the size of
echo                  Memory/Initial Environment on the MSDOS Window.
echo.
echo                  The evaluated data should include the resonance
echo                  contribution from file MF=2 into file MF=3.
echo.
pause
echo  References:
echo.
echo  PREPRO2002 : "PREPRO2002 : 2002 ENDF/B Pre-processing Codes",
echo                IAEA-NDS-39, Rev. 11, Feb. 5, 2003
echo.
echo  JENDL/D-99 : JENDL/D-99: JAERI Nuclear Data Center:
echo               "JENDL Dosimetry File 99 (JENDL/D-99)",
echo               private comunication, 1999
echo.
echo  POINT2000  : UCRL-ID-127776, Rev.1: "A Temperature
echo               Dependent ENDF/D-VI, Release 7 Cross
echo               Section Library" , Dermott E. Cullen,
echo               University of California,
echo               LLNL, November 22, 2000
echo.
:END
*deck mtrb 
@ECHO OFF
REM Run WIMS-D MTR-OWR Benchmark (use MTRBURN program for analysis)
REM ===============================================================
REM Author : Francisco Leszczynski
REM Version: 2001 Original code
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      mtrburn    (owr mtr with burnup)
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM     MTRBURN.WIN file of MTR-OWR benchmark
REM     MTRBURN.REF file of MTR-OWR benchmark
REM
REM Programs
REM    MTRBURN.EXE file of MTR-OWR benchmark
REM    for analysis of WIMS results
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: MTRB %1 %2
    ECHO.
    ECHO   USAGE: MTRB lib mtrburn
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     mtrburn  Benchmark set
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
REM
    IF %2.==.          GOTO MTRBURN
    IF %2.==mtrburn.   GOTO MTRBURN
    IF %2.==MTRBURN.   GOTO MTRBURN
    GOTO ERR
REM
:MTRBURN
ECHO.
ECHO Run WIMS-D MTR-OWR  burnup benchmark
ECHO ------------------------------------
ECHO.
    call %WLUPP%wimsone mtrburn
    if not exist mtrburn.ref copy %WLUPI%mtrburn.ref
    call %WLUPP%mtrburn
REM   if exist mtrburn.lis del mtrburn.out
    IF NOT %2.==. GOTO EXIT
REM
:EXIT
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
IF EXIST WIMSDINP   DEL WIMSDINP
IF EXIST WIMSDOUT   DEL WIMSDOUT
IF EXIST WIMSDLIB   DEL WIMSDLIB
:END
*deck pltlib 
ECHO.
ECHO Generate intercomparison plots of WIMS-D library cross sections
ECHO ---------------------------------------------------------------
ECHO.
:abs
REM  Prepare PLTWLI input
     echo %wlupl%endfb6.lib         >inp
rem  echo %wlupl%endfb65.lib       >>inp
     echo %wlupl%jendl3.lib        >>inp
     echo %wlupl%jef22.lib         >>inp
     echo %wlupl%jeff31.lib        >>inp
     echo %wlupl%iaea.lib          >>inp
rem  echo %wlupl%endfb6gx.lib      >>inp
rem  echo %wlupl%iaeagx.lib        >>inp
     echo.                  >>inp
     echo ENDF/B-VI R.7     >>inp
rem  echo ENDF/B-VI R.5     >>inp
     echo JENDL-3.2         >>inp
     echo JEFF-2.2          >>inp
     echo JEFF-3.1          >>inp
     echo IAEA              >>inp
rem  echo ENDF/B-VI R.7     >>inp
rem  echo IAEA              >>inp
     echo %WLUPL%matlst.txt >>inp
     echo 4                 >>inp
     %WLUPP%pltwli<inp
     %WLUPP%willie<pltwli.wli
     call pt94 p98  pltwli
:fis
     copy plot.ps absorpt.ps
     echo %wlupl%endfb6.lib         >inp
rem  echo %wlupl%endfb65.lib       >>inp
     echo %wlupl%jendl3.lib        >>inp
     echo %wlupl%jef22.lib         >>inp
     echo %wlupl%jeff31.lib        >>inp
     echo %wlupl%iaea.lib          >>inp
rem  echo %wlupl%endfb6gx.lib      >>inp
rem  echo %wlupl%iaeagx.lib        >>inp
     echo.                  >>inp
     echo ENDF/B-VI R.7     >>inp
rem  echo ENDF/B-VI R.5     >>inp
     echo JENDL-3.2         >>inp
     echo JEFF-2.2          >>inp
     echo JEFF-3.1          >>inp
     echo IAEA              >>inp
rem  echo ENDF/B-VI R.7     >>inp
rem  echo IAEA              >>inp
     echo %WLUPL%matlst.txt >>inp
     echo 6                 >>inp
     %WLUPP%pltwli<inp
     %WLUPP%willie<pltwli.wli
     call pt94 p98  pltwli
     copy plot.ps fission.ps
*deck pseudo1 
@echo off
rem
rem  BATCH file to Process One Actinide Data for the Pseudo Fission Product
rem  ======================================================================
rem
rem  Author:   D.L. Aldama (1999)
rem
rem  Version:  99/03 Original code
rem    01/12   Change GETDATA to GETMF2 (A.Trkov)
rem    05/06   Jeff-3.1 Processing (D. L. Aldama)
rem    06/10   Remove checking of library names as it is done
rem            in the main calling routine (A. Trkov)
rem
rem  Usage:    pseudo1 %1  %2  %3  %4
rem  =====
rem              %1   Evaluated Nuclear Data Library (6 character string)
rem                   (ie. endfb6, jef22, cendl, etc)
rem              %2   ZA number
rem                   ( 92235.0 for U-235,  95242.1 for Am242m, etc )
rem              %3   Output files identification string without extension
rem                   Maximum length = 6 characters
rem                   (U235, Pu239, 92235, 92242m, etc)
rem              %4   INTER output file assumed on %WLUPI% extension .int
rem                   (ie. eaf97, etc). [Optional]
rem
rem            Examples:  pseudo1 jef22 92235.0  U235  eaf97
rem                       pseudo1 jef22 92235.0  92235 eaf97
rem                       pseudo1 jef22 95242.1  95242m eaf97
rem
rem
rem  Purpose:  Generate the following files for the actinide with ZA=%2 from
rem  =======   the %1 library and eventually 2% inter file .
rem            %3.fpy  -- AVRFPY Fission Product yields file.
rem            %3x.out -- AVRFPY Output file for the explicit represented FPs. (ERFP)
rem            %3x.njb -- AVRFPY Intermediate ERFP Burnup data file
rem            %3a.out -- AVRFPY Output file for all F. Ps. (AFP)
rem            %3a.njb -- AVRFPY Intermediate AFP Burnup data file
rem            %3i.njb -- Burnup data block for NJOY input
rem
rem   Required Input files:
rem   ====================
rem
rem   The following files should exist on %WLUPI% directory:
rem    %1nt.dat     containing the general neutron transport data
rem                 (ie. endfb6nt.dat, jef22nt.dat, cendlnt, etc)
rem    %1dy.dat     containing the decay data
rem                 (ie. endfb6dy.dat, jef22dy.dat, cendldy, etc)
rem    %1fp.dat     containing the fission product yield data
rem                 (ie. endfb6fp.dat, jef22fp.dat, cendlfp, etc)
rem    FpLstExp.dat containing the explicitly represented fission products
rem                 (formatted list file for AVRFPY)
rem    FpLstAll.dat containing all selected fission products
rem                 (formatted list file for AVRFPY)
rem    %4.int       [Optional] containing INTER output for an
rem                 evaluated data library, which is not
rem                 necessarily the same as the basic library
rem                 (for example: "eaf97.int").
rem
rem
rem  Programs used:   AVRFPY
rem  =============    GETMF2
rem                   NJBFP
rem
rem  They should be on the directory %WLUPP% defined by setwlup
rem
rem
rem   Description:
rem   ===========
rem
rem   1. Generate the corresponding FPY file using AVRFPY.
rem   2. Generate the primary NJB file using AVRFPY.
rem   3. Generate the burnup data blocks for the NJOY/WIMSR (*.NJB) using NBJFP
rem      for the explicitly represented fission product and the pseudo F.P.
rem
rem
:chk
       if %wlupp%.==.                   goto errset
       if not exist %wlupi%%1nt.dat     goto errinp
       if not exist %wlupi%%1dy.dat     goto errinp
       if not exist %wlupi%%1fp.dat     goto errinp
       if %2.==.                        goto errza
       if not exist %wlupi%FpLstExp.dat goto errinp
       if not exist %wlupi%FpLstAll.dat goto errinp
       if %4.==.                        goto fpy
       if not exist %wlupi%%4.int       goto errinp
:fpy
echo.
echo **********************************************
echo Processing MATERIAL %2 from %1
echo **********************************************
echo.
rem
rem    Generate FPY files for actinides
rem
if exist inp                 del   inp.
echo -                            >inp.
echo %WLUPI%%1dy.dat             >>inp.
echo %WLUPI%%1fp.dat             >>inp.
echo 0                           >>inp.
echo %2                          >>inp.
echo 454                         >>inp.
echo 4.0E8                       >>inp.
if     %4.==. echo.              >>inp.
if not %4.==. echo %WLUPI%%4.int >>inp.
if not %4.==. echo 102           >>inp.
echo %3.FPY                      >>inp.
echo -                           >>inp.
%WLUPP%avrfpy<inp.
if not exist %3.FPY       echo Material %2 has no f.p. yields
if not exist %3.FPY       goto  exit
rem
rem  Generate primary NJB file using AVRFPY for the explicit represented F.Ps.
rem
if exist inp               del  inp.
echo %3.FPY                    >inp.
echo %3x.out                  >>inp.
echo -                        >>inp.
echo %WLUPI%FpLstExp.dat      >>inp.
%WLUPP%avrfpy<inp.
if not exist %3x.njb     echo Error generating Material %2 NJB for exp. F.Ps.
if not exist %3x.njb     goto  exit
rem
rem  Generate primary NJB file using AVRFPY for all the F.Ps.
rem
if exist inp              del   inp.
echo %3.FPY                    >inp.
echo %3a.out                  >>inp.
echo -                        >>inp.
echo %WLUPI%FpLstAll.dat      >>inp.
%WLUPP%avrfpy<inp.
if not exist %3a.njb     echo Error generating Material %2 NJB for all F.Ps.
if not exist %3a.njb     goto  exit
rem
rem    Generate %1.MF2 summmary file
rem
if exist inp              del   inp.
echo %WLUPI%%1nt.dat           >inp.
echo %1.MF2                   >>inp.
echo MF2.log                  >>inp.
%WLUPP%getmf2<inp.
if not exist %1.MF2       echo %1.MF2 file not found
if not exist %1.MF2       goto exit
rem
rem  Generate the NJOY Burnup data block using NJBFP
rem
if exist inp              del   inp.
echo %WLUPI%FpLstExp.dat       >inp.
echo %WLUPI%FpLstAll.dat      >>inp.
echo %1.MF2                   >>inp.
echo %3x.NJB                  >>inp.
echo %3a.NJB                  >>inp.
echo %3i.NJB                  >>inp.
%WLUPP%njbfp<inp.
if not exist %3i.NJB   echo Error creating the NJOY Burnup data blocks for %3
if not exist %3i.NJB   goto exit
echo.
echo Done
echo.
goto exit
rem
rem  Error trapping
rem
:errlib
echo.
echo Evaluated nuclear data library %1 undefined
echo.
goto exit
:errza
echo.
echo ZA number missing
echo.
goto exit
:errset
echo WLUP environment variables undefined
goto exit
:errinp
echo One or more input data files missing
:exit
if exist inp        del inp.
if exist avrfpy.wim del avrfpy.wim
*deck pseudofp 
@echo off
rem
rem  BATCH file to generate the Pseudo Fission Product
rem  =================================================
rem
rem  Author:   D.L. Aldama (1999)
rem
rem  Version:  99/03 Original code
rem    01/06   Extensions for 172-groups (A.Trkov)
rem    01/12   Change GETDATA to GETMF2(A.Trkov)
rem    05/06   Jeff-3.1 processing (D. L. Aldama)
rem    06/10   Remove checking of library names as it is done
rem            in the main calling routine (A. Trkov)
rem
rem  Usage:    pseudofp %1  %2  %3
rem  =====
rem              %1   Evaluated Nuclear Data Library (6 character string)
rem                   (ie. endfb6, jef22, cendl, etc)
rem              %2   inter output file assumed on %WLUPI% (extension .int)
rem                   (ie. eaf97, etc). [Optional]
rem              %3   number of groups [Optional, default=69]
rem                   (Valid entries: 69 or 172)
rem
rem            Example:  pseudofp jef22 eaf97 172
rem
rem
rem  Purpose:  Generate the following files to process the pseudo
rem  =======   fission product of the WIMS Library:
rem            %1fp.nji -- NJOY input options for Pseudo F.P.
rem            %1fp.wli -- WILLIE input options for Pseudo F.P.
rem            %1fp.bat -- BATCH file to run NJOY and WILLIE for Pseudo F.P.
rem            ZAxi.njb -- Burnup data blocks for NJOY inputs
rem                        where x=g for ground state and x=m for metastable
rem                        state
rem
rem   Required Input files:
rem   ====================
rem
rem   The following files should exist on %WLUPI% directory:
rem    %1nt.dat     containing the general neutron transport data
rem                 (ie. endfb6nt.dat, jef22nt.dat, cendlnt, etc)
rem    %1dy.dat     containing the decay data
rem                 (ie. endfb6dy.dat, jef22dy.dat, cendldy, etc)
rem    %1fp.dat     containing the fission product yield data
rem                 (ie. endfb6fp.dat, jef22fp.dat, cendlfp, etc)
rem    FpLstExp.dat containing the explicitly represented fission products
rem                 (formatted list file for AVRFPY)
rem    FpLstAll.dat containing all selected fission products
rem                 (formatted list file for AVRFPY)
rem    %2.int       [Optional] containing INTER output for an
rem                 evaluated data library, which is not
rem                 necessarily the same as the basic library
rem                 (for example: "eaf97.int").
rem
rem
rem  Programs used:   AVRFPY
rem  =============    GETMF2
rem                   NJBFP
rem                   PSEUDO
rem
rem  Batch procedure called:  pseudo1.bat
rem  ======================
rem
rem  They should be on the directory %WLUPP% defined by setwlup
rem
rem   Description:
rem   ===========
rem
rem   1. Generate the corresponding FPY files for all actinides
rem      considered in the WIMS Library using AVRFPY.
rem   2. Generate the primary NJB files for all actinides for the
rem      explicitly and all considered fission products using AVRFPY.
rem   3. Generate the burnup data blocks for the NJOY/WIMSR using NBJFP for
rem      the explicitly represented fission product and the pseudo F.P.
rem   4. Generate the required files to produce the pseudo fission product
rem      using PSEUDO.
rem        %1fp.nji --  Containing the NJOY input options for Pseudo F.P.
rem                     (ie. endfb6fp.nji, jef22fp.nji, cendlfp.nji, etc)
rem        %1fp.wli --  Containing the WILLIE input options for Pseudo F.P.
rem                     (ie. endfb6fp.wli, jef22fp.wli, cendlfp.wli, etc)
rem        %1fp.bat --  BATCH file to run NJOY and WILLIE for Pseudo F.P.
rem                     (ie. endfb6fp.bat, jef22fp.bat, cendlfp.bat, etc)
rem
rem    Running %1fp.bat (endfb6fp.bat, jef22fp.bat, cendlfp.bat, etc) the
rem    file %1fp.xsw (endfb6fp.xsw, jef22fp.xsw, cendlfp.xsw, etc) is
rem    generated on the %WLUPI% directory. A copy of the file named
rem    PFP4902.xsw is also saved on your work directory.
rem    This later file can be included in the WIMS Library running the
rem    wimslib option of the BATCH runall for the corresponding evaluated
rem    nuclear data library or directly using the program WILLIE.
rem
rem
:chk
       if %wlupp%.==.                   goto errset
       if not exist %wlupi%%1nt.dat     goto errinp
       if not exist %wlupi%%1dy.dat     goto errinp
       if not exist %wlupi%%1fp.dat     goto errinp
       if not exist %wlupi%FpLstExp.dat goto errinp
       if not exist %wlupi%FpLstAll.dat goto errinp
       if %2.==.                        goto chk3
       if not exist %wlupi%%2.int       goto errinp
:chk3
       if %3.==.    goto init
       if %3.==69.  goto init
       if %3.==172. goto init
       goto errgr
:init
rem
rem  Generate data for all actinides
rem
call %wlupp%pseudo1 %1 90232.0 90232g %2
call %wlupp%pseudo1 %1 91233.0 91233g %2
call %wlupp%pseudo1 %1 92232.0 92232g %2
call %wlupp%pseudo1 %1 92233.0 92233g %2
call %wlupp%pseudo1 %1 92234.0 92234g %2
call %wlupp%pseudo1 %1 92235.0 92235g %2
call %wlupp%pseudo1 %1 92236.0 92236g %2
call %wlupp%pseudo1 %1 92237.0 92237g %2
call %wlupp%pseudo1 %1 92238.0 92238g %2
call %wlupp%pseudo1 %1 93237.0 93237g %2
call %wlupp%pseudo1 %1 93239.0 93239g %2
call %wlupp%pseudo1 %1 94238.0 94238g %2
call %wlupp%pseudo1 %1 94239.0 94239g %2
call %wlupp%pseudo1 %1 94240.0 94240g %2
call %wlupp%pseudo1 %1 94241.0 94241g %2
call %wlupp%pseudo1 %1 94242.0 94242g %2
call %wlupp%pseudo1 %1 94242.0 94242h %2
call %wlupp%pseudo1 %1 95241.0 95241g %2
call %wlupp%pseudo1 %1 95242.1 95242m %2
call %wlupp%pseudo1 %1 95243.0 95243g %2
call %wlupp%pseudo1 %1 96242.0 96242g %2
call %wlupp%pseudo1 %1 96243.0 96243g %2
call %wlupp%pseudo1 %1 96244.0 96244g %2
call %wlupp%pseudo1 %1 96245.0 96245g %2
call %wlupp%pseudo1 %1 96246.0 96246g %2
call %wlupp%pseudo1 %1 96247.0 96247g %2
call %wlupp%pseudo1 %1 96248.0 96248g %2
call %wlupp%pseudo1 %1 97249.0 97249g %2
call %wlupp%pseudo1 %1 98249.0 98249g %2
call %wlupp%pseudo1 %1 98250.0 98250g %2
call %wlupp%pseudo1 %1 98251.0 98251g %2
call %wlupp%pseudo1 %1 98252.0 98252g %2
call %wlupp%pseudo1 %1 98253.0 98253g %2
call %wlupp%pseudo1 %1 98254.0 98254g %2
rem
rem  Generate pseudo fission product files from U-235, U-238 and Pu-239 data
rem
if not exist 92235gx.NJB   goto errpfp
if not exist 92238gx.NJB   goto errpfp
if not exist 94239gx.NJB   goto errpfp
if not exist 92235ga.NJB   goto errpfp
if not exist 92238ga.NJB   goto errpfp
if not exist 94239ga.NJB   goto errpfp
rem
rem    Generate %1.MF2 summmary file
rem
if exist inp              del   inp.
echo %WLUPI%%1nt.dat           >inp.
echo %1.MF2                   >>inp.
echo MF2.log                  >>inp.
%WLUPP%getmf2<inp.
if not exist %1.MF2        echo %1.MF2 file not found
if not exist %1.MF2        goto exit
if exist inp               del  inp.
echo %WLUPI%FpLstExp.dat       >inp.
echo %WLUPI%FplstAll.dat      >>inp.
echo %1.MF2                   >>inp.
if     %3.==. echo 69         >>inp.
if not %3.==. echo %3         >>inp.
echo 92235gx.NJB              >>inp.
echo 92238gx.NJB              >>inp.
echo 94239gx.NJB              >>inp.
echo 92235ga.NJB              >>inp.
echo 92238ga.NJB              >>inp.
echo 94239ga.NJB              >>inp.
echo %WLUPI%%1fp.NJI          >>inp.
echo %WLUPI%%1fp.WLI          >>inp.
echo %WLUPP%%1fp.BAT          >>inp.
%WLUPP%pseudo<inp.
if not exist %WLUPI%%1fp.NJI  echo Error creating the file %1fp.NJI
if not exist %WLUPI%%1fp.NJI  goto exit
if not exist %WLUPI%%1fp.WLI  echo Error creating the file %1fp.WLI
if not exist %WLUPI%%1fp.WLI  goto exit
if not exist %WLUPP%%1fp.BAT  echo Error creating the file %1fp.BAT
if not exist %WLUPP%%1fp.BAT  goto exit
rem
rem  Copy required files to the current working directory
rem
copy %WLUPI%%1nt.dat tape20
copy %WLUPI%%1fp.NJI
copy %WLUPI%%1fp.WLI
copy %WLUPP%%1fp.BAT
echo.
echo PSEUDOFP Completed
echo.
goto exit
rem
rem  Error trapping
rem
:errlib
echo.
echo PSEUDOFP ERROR - Evaluated nuclear data library %1 undefined
echo.
goto exit
:errpfp
echo.
echo PSEUDOFP ERROR - Not enough data to prepare pseudo fission product
echo.
goto exit
:errset
echo.
echo PSEUDOFP ERROR - WLUP environment variables undefined
echo.
goto exit
:errinp
echo.
echo PSEUDOFP ERROR - One or more input data files missing
echo.
goto exit
:errgr
echo Invalid number of groups
:exit
if exist inp        del inp.
if exist avrfpy.wim del avrfpy.wim
if exist avrfpy.log del avrfpy.log
*deck qval 
@echo off
echo QVAL - Plot k-eff trends of WLUP benchmarks
echo -------------------------------------------
echo.
echo Generate trend plots of k-eff as a function of the slowing down
echo power "q" for different fuel types, enrichments and moderators.
REM
REM Test for valid conditions to execute the procedure
     if .%WLUPP%==.     goto usage
     if not exist *.out goto usage
     goto start
:usage
echo *** QVAL ERROR ***
echo To execute the procedure the following conditions must be satisfied:
echo - WLUP settings must be active (see SETWLUP procedure).
echo - The default directory must contain the WIMS outputs so that
echo   q-values can be calculated by the QVALUE program.
echo.
echo To run the procedure:
echo   qval [ngr]
echo     ngr is the number of groups (69, 172 or td).
echo.
echo Instructions:
echo.
echo  1.  Run "smrlib" to compare the selected benchmark summary files.
echo      Save the output to "smrlib.lst".
echo.
echo  2.  Copy "qvalue.inp" from the "programs" subdirectory. Edit the
echo      to match the number of groups and libraries to compare.
echo.
echo  3.  Run "qvalue" program.
echo.
echo  4.  Run "qval_k" program.
echo.
echo  5.  Copy "qval_k.p92" file from the inputs subdirectory. Edit
echo      this PLOTTAB input file as necessary.
echo.
echo  6.  Run PLOTTAB.
echo.
     goto end
:start
REM Generate the SMRLIB file
     if .%1==.    goto 69
     if .%1==.69  goto 69
     if .%1==.172 goto 172
     if .%1==.td  goto td
     echo QVAL ERROR - Illegal number of groups %1
     goto end
:69
REM 69-group libraries (7)
     set gx=
echo smrlib.lst             >inp
echo %wlupl%iaea.lst       >>inp
echo %wlupl%endfb7.lst     >>inp
echo %wlupl%jeff31.lst     >>inp
echo %wlupl%jendl3.lst     >>inp
echo %wlupl%endfb6.lst     >>inp          
echo %wlupl%jef22.lst      >>inp
echo %wlupl%wdn29.lst      >>inp
     goto tab
:172
REM 172-group libraries (6):
     set gx=gx
echo smrlib.lst             >inp
echo %wlupl%iaeagx.lst     >>inp
echo %wlupl%endfb7gx.lst   >>inp
echo %wlupl%jeff31gx.lst   >>inp
echo %wlupl%jendl3gx.lst   >>inp
echo %wlupl%endfb6gx.lst   >>inp          
echo %wlupl%jef22gx.lst    >>inp
     goto tab
:td
REM Printout for TecDoc (3):
     set gx=td
echo smrlib.lst             >inp
echo %wlupl%iaeagx.lst     >>inp
echo %wlupl%iaea.lst       >>inp
echo %wlupl%wdn29.lst      >>inp
:tab
echo Running smrlib ...
     %wlupp%smrlib          <inp
REM Generate tables of k-eff as a function of q
echo Running qvalue ...
REM  copy %wlupl%smrlib.lst     smrlib.lst
     copy %wlupi%qvalue%gx%.inp qvalue.inp
     %wlupp%qvalue
REM
REM Prepare PLOTTAB files of results
echo Running qval_k ...
     %wlupp%qval_k
REM
REM Use PLOTTAB to generate the pictures
echo Running plottab ...
     copy %wlupi%qval_k%gx%.p92 qval_k.p92
     call pt94 p98 qval_k
     copy smrlib.lst %wlupl%smrlib%gx%.lst
     copy plot.ps    %wlupl%qval_k%gx%.ps
:end
*deck rpin 
@ECHO OFF
ECHO.
ECHO Run Rowlands Pin-Cell Benchmarks
ECHO --------------------------------
ECHO.
    GOTO CHK
:ERR
    ECHO.
    ECHO   USAGE: RPIN   lib [ng]
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     [ng] Number of groups (69 or 172)
    ECHO.
    GOTO END
:CHK
REM Check parameter
    IF .%WLUPP%==. ECHO *** ERROR *** WLUP Settings undefined
    IF .%WLUPP%==. GOTO ERR
    IF %1.==.      GOTO ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
ECHO.
ECHO 1. Run Uranium Pin-Cell Benchmark
ECHO    ------------------------------
ECHO.
    call %WLUPP%wimsone rpinu
    if not exist rpinu.out goto ERR
REM
    if %2.==172. find /I "172 groups....." wimsdout >rpinu.k
    if %2.==69. find /I "69 groups....." wimsdout >rpinu.k
    if %2.==. find /I " groups....." wimsdout >temp.k
    if %2.==. find /V /I "  2 groups....." <temp.k >rpinu.k
    if exist temp.k del temp.k
REM
REM Prepare the reference solution
    echo rpinu.ref >inp.
    %WLUPP%rpinke<inp.
REM
    %WLUPP%wedru
    copy   wedru.log   RPIN.LST
ECHO.
ECHO.
ECHO 2. Run Plutonium Pin-Cell Benchmark
ECHO    --------------------------------
ECHO.
    call %WLUPP%wimsone rpinpu
REM
    if %2.==172. find /I "172 groups....." wimsdout >rpinpu.k
    if %2.==69. find /I "69 groups....." wimsdout >rpinpu.k
    if %2.==. find /I " groups....." wimsdout >temp.k
    if %2.==. find /V /I "  2 groups....." <temp.k >rpinpu.k
    if exist temp.k del temp.k
REM
REM Prepare the reference solution
    echo rpinpu.ref >inp.
    %WLUPP%rpinke<inp.
REM
    %WLUPP%wedrpu
    echo.                  >>RPIN.LST
    echo                  >>RPIN.LST
    type  wedrpu.log       >>RPIN.LST
    goto END
:END
    if exist wimsdlib del wimsdlib
    if exist wimsdout del wimsdout
    if exist wimsdinp del wimsdinp
*deck runall 
@echo off
ECHO.
ECHO       NJOY PROCESSING FOR WLUP
ECHO       ------------------------
ECHO.
ECHO       Processing option [lbl] : %1
ECHO       Processing name   [nme] : %2
ECHO       Processing eaf    [eaf] : %3
ECHO       Processing groups [ngr] : %4
REM
REM Version:
REM V 2001/01 Upgrade related to JENDL-3.2 (C.S.Gil)
REM V 2001/06 Include fiss.yield and lumped fission product data.
REM V         Extensions for 172-group library preparation.
REM V 2001/09 Extension for updating dosimetry reactions (D.L.Aldama)
REM V 2001/11 Add "IAEA" to the library list (A.Trkov)
REM V 2002/04 Add supplementary benchmarks.
REM V         Split individual WIMS inputs from a merged file to the
REM V         local directory.
REM V 2002/08 Simplify testing for 69/172 group cases (A.Trkov).
REM V 2003/05 Print parameters from command line to output.
REM V 2006/10 Upgrade to process the ENDF/B-VII library 
REM V 2006/12 Update on-line energy released by fission and decay 
REM           data as required in NJOY inputs (D.L.Aldama)
REM
REM Description:
REM A complete update of the WIMS-D library is performed. If the source
REM library is specified as the first parameter, the final WIMS-D library
REM files are saved to the "wimslib" directory and benchmark test cases
REM are executed.
REM
REM Instructions:
REM 1. Run the WLUP settings procedure SETWLUP.
REM 2. Copy the "runall.bat" batch file to the local directory.
REM 3. Run "runall" with optional parameters.
REM    The first parameter may be used to select the processing step.
REM    The second parameter options depend on the processing step,
REM    selected with the first parameter.
REM    For the list of settings and options see "Usage" below.
REM
       goto CHCK
:USAGE
REM In case of input errors print user instructions
ECHO.
ECHO Usage: Runall [lbl] [nme] [eaf] [ngr]
ECHO        lbl - option label to identify the processing step (default all)
ECHO        nme - specific NJOY input to be generated (default all),
ECHO              applicable only with "njoyinp" option, OR
ECHO            - library name for which the full update is requested,
ECHO              applicable with the "library", the "bnchmrk"
ECHO              and the "dosmat" option (see example of valid library
ECHO              names below).
ECHO        eaf - INTER output filename (default: "eaf97" with implied
ECHO              extension ".int"), with the "library" option  OR
ECHO            - Number of energy groups (ngr) with the "dosmat" option
ECHO        ngr - number of groups for the WIMS-D library (default: 69,
ECHO              valid entries: 69 or 172), applicable with the "library"
ECHO              option only (see below).
ECHO.
ECHO        List of valid labels [lbl]:
ECHO            library  - Perform a full library update (execute all options
ECHO                       below) for the library defined with the
ECHO                       "nme" parameter.
ECHO            njoyinp  - Generate NJOY inputs.
ECHO                       The additional parameter "nme" (when specified)
ECHO                       implies the name of the nuclide to be processed as
ECHO                       appears in the master input file (case sensitive).
REM                        It must match the name in the comment preceeding
REM                        actual input commands and is of the form:
REM                        "-- Ssaaax" where "Ss" is the chemical symbol
REM                        (use underscore on the second place for single
REM                        character symbols), "aaa" is three-digit mass
REM                        number (left-padded with zeroes, if necessary)
REM                        and "x" is the type designator (s for
REM                        structural materials, g, m or h for general
REM                        materials, etc.).
REM                      NOTE: Make sure that the following files are present
REM                      from a previous run or by copying manually to the
REM                      working directory:
REM                          Tape20
REM                          Tape30
REM                          WLUPNJI.INP
ECHO            primmat  - Primary reactor materials.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            fisprod  - Fission products.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            majactn  - Remaining major Actinides.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            minactn  - Minor Actinides.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            absorbr  - Absorber materials.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            structr  - Structural materials.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            modertr  - Other moderators.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            varmatr  - Various other materials.
REM                      NOTE: same as for the "njoyinp" option.
ECHO            fisspct  - Mix fission spectrum contributions.
REM                      NOTE: the following processed files must
REM                      be available:
REM                          U_235g.XSP
REM                          U_238g.XSP
REM                          Pu239g.XSP
ECHO            wimslib  - Update the library.
REM                      NOTE: the following files must be available:
REM                          WLUPWLI.INP input for WILLIE.
REM                          WDN29.ASC   source WIMS-D library to be updated.
REM                          pfp4902.xsw pseudo fission product cross
REM                                      sections file.
ECHO            dosmat  - Update a WIMSD Library with the dosimetry material
ECHO                      files availables on the "wlupd" directory
REM                     Parameters:
REM                     "nme" defines the name of the library:
REM                           "nme".lib    for the 69-group library or
REM                           "nme"gx.lib  for the 172-group library.
REM                           When updating the dosimetry materials it is
REM                           assumed that the formatted library with the
REM                           above defined name is available in the "wimslib"
REM                           directory.
REM                     "eaf" not used (dummby parameter, must be present)
REM                     "ngr" number of energy groups (69 or 172).
ECHO            bnchmrk  - Run all benchmark test cases for the library
ECHO                       defined by the "nme" parameter.
REM                      NOTE: the binary library defined by the
REM                        "nme" parameter must be available in the
REM                        "wimslib" directory.
ECHO.
ECHO        Examples of "nme" parameter used with the "library" option
ECHO        defining library names for a full library update:
ECHO            endfb6   - ENDF/B-VI             brond2   - BROND-2.2
ECHO            jef22    - JEF-2.2               jeff3t   - JEFF-3.1
ECHO            jendl3   - JENDL-3.2             iaea     - WLUP selection
ECHO            cendl2   - CENLDL-2.2            endfb7   - ENDF/B-VII
ECHO        NOTE: for a 172-group library the "gx" string
ECHO              is appended to the name automatically.
ECHO.
GOTO ERR
:CHCK
REM Check WLUP settings
rem  if errorlevel 1 goto ERR
     if .%WLUPP%==.           ECHO *** ERROR *** Undefined WLUP settings
rem  if .%LFDIR%==.           ECHO *** ERROR *** Lahey Compiler settings
     if .%WLUPP%==.  goto ERR
rem  if .%LFDIR%==.  goto ERR
REM The fourth parameter defines the energy group scheme (69 or 172)
     set  gx=
     if .%4==.172 set gx=gx
REM
REM Select the processing option according to the first parameter
REM
     if %1.==.         goto library
     if %1.==library.  goto library
     if %1.==njoyinp.  goto njoyinp
     if %1.==primmat.  goto primmat
     if %1.==fisprod.  goto fisprod
     if %1.==majactn.  goto majactn
     if %1.==minactn.  goto minactn
     if %1.==absorbr.  goto absorbr
     if %1.==structr.  goto structr
     if %1.==modertr.  goto modertr
     if %1.==varmatr.  goto varmatr
     if %1.==fisspct.  goto fisspct
     if %1.==wimslib.  goto wimslib
     if %1.==dosmat.   goto dosmat
     if %1.==bnchmrk.  goto bnchmrk
REM
     ECHO.
     ECHO ERROR  Invalid label %1
     goto USAGE
REM
:library
REM The second parameter implies a library name
REM
     set  WLUPR=all
     if %2.==. goto njoyinp
     echo.
     echo ------------------------------------
     echo Process Library   %2
     if not %3.==. echo INTER output      %3.int
     if     %3.==. echo INTER output      eaf97.int
     if not %4.==. echo No.of WIMS Groups %4
     if     %4.==. echo No.of WIMS Groups 69
     echo ------------------------------------
     echo.
REM
REM Process fission product yield
REM
     call %wlupp%pseudofp %2 %3 %4
ECHO Copy files to the working directory  for source data %1
     if exist Tape20.             del  Tape20.
     if exist Tape30.             del  Tape30.
     if exist wlupnji.inp         del  wlupnji.inp
     if exist wlupwli.inp         del  wlupwli.inp
     if exist fission.xsp         del  fission.xsp
     if exist pfp4902.xsw         del  pfp4902.xsw
REM
     if exist %wlupi%%2nt.dat     copy %wlupi%%2nt.dat     Tape20.
     if exist %wlupi%%2sl.dat     copy %wlupi%%2sl.dat     Tape30.
     if exist %wlupl%wdn29.asc    copy %wlupl%wdn29.asc
REM
     if exist %wlupi%%2%gx%.nji     copy %wlupi%%2%gx%.nji     wlupnji.inp
     if exist %wlupi%%2%gx%.wli     copy %wlupi%%2%gx%.wli     wlupwli.inp
:chkfil
REM Check for necessary files
     if not exist tape20       ECHO *** ERROR *** Tape20      file missing
     if not exist tape30       ECHO *** ERROR *** Tape30      file missing
     if not exist wlupnji.inp  ECHO *** ERROR *** wlupnji.inp file missing
     if not exist wlupwli.inp  ECHO *** ERROR *** wlupwli.inp file missing
     if not exist %wlupi%ActLst.dat ECHO *** ERROR *** %wlupi%ActLst.dat missing
rem  if not exist pfp4902.xsw  ECHO *** WARNING *** pfp4902.xsw file missing
     if not exist wdn29.asc    ECHO *** WARNING *** wdn29.asc   file missing
     if not exist %wlupd%*.xsw ECHO *** WARNING *** Dosimetry Files are missing
REM Terminate execution on missing settings or files
     if not exist Tape20       goto USAGE
     if not exist Tape30       goto USAGE
     if not exist wlupnji.inp  goto USAGE
     if not exist wlupwli.inp  goto USAGE
     if not exist %wlupd%*.xsw goto USAGE
rem  if not exist pfp4902.xsw  goto USAGE
     if not exist wdn29.asc    goto USAGE
rem
rem  Updating decay data and energy released per
rem  fission in master NJOY input file (*.nji)
rem  
     echo Tape20                >enfiss.inp
     copy %wlupi%%2%gx%.nji   original.nji
     %wlupp%enfiss <enfiss.inp
     echo enfiss.lst           >updbrn.inp
     echo %wlupi%%2dy.dat     >>updbrn.inp    
     echo Tape20              >>updbrn.inp
     echo original.nji        >>updbrn.inp
     %wlupp%updbrn <updbrn.inp >updbrn.log
     if exist updated.nji copy updated.nji %wlupi%%2%gx%.nji
     if exist updated.nji copy updated.nji wlupnji.inp
     if exist enfiss.inp del enfiss.inp
     if exist updbrn.inp del updbrn.inp
REM     
REM Generate cross sections for lumped fission product components
REM
     call %2fp %2
REM Update the f.p. yields in the NJOY input file
     echo %wlupi%ActLst.dat    >inp.
     echo %wlupi%%2%gx%.nji   >>inp.
     echo wlupnji.inp         >>inp.
     %wlupp%njinjb<inp.
REM Save the updated NJOY input file
echo on
     copy wlupnji.inp         %wlupi%%2%gx%.nji
echo off
REM
REM All required files present, proceed with processing
REM
:njoyinp
ECHO.
ECHO       Generate NJOY Input Files from the Master File
ECHO       ----------------------------------------------
REM Check for necessary files
     if not exist wlupnji.inp ECHO *** ERROR *** wlupnji.inp file missing
     if not exist tape20      ECHO *** ERROR *** Tape20      file missing
     if not exist tape30      ECHO *** ERROR *** Tape30      file missing
     if not exist wlupnji.inp goto USAGE
     if not exist tape20      goto USAGE
     if not exist tape30      goto USAGE
REM
     if not %1.==njoyinp.     goto njall
     if     %2.==.            goto njall
:njone
REM Single material NJOY run
     ECHO WLUPNJI.INP          >INP.
     ECHO %2                  >>INP.
     if exist %2.nji          del %2.nji
     %WLUPP%NJISPL<INP.
     call %WLUPP%runone %2
     goto END
:njall
REM Generate NJOY inputs for all materials
     ECHO WLUPNJI.INP          >INP.
     ECHO.                    >>INP.
     del  *.nji
     %WLUPP%NJISPL<INP.
     if not %WLUPR%.==all. goto END
REM
:primmat
ECHO.
ECHO       Primary Reactor Materials
ECHO       -------------------------
call %WLUPP%runone H_H2Os
call %WLUPP%runone O_016s
call %WLUPP%runone Al027s
REM        Data for U-235 on U_235a are the same as those on U_235g
REM        except that FP yields are omitted.
if %1.==primmat.   call %WLUPP%runone U_235a
REM        Data for U-238 on U_238a are the same as those on U_238g
REM        except that FP yields are omitted.
if %1.==primmat.   call %WLUPP%runone U_238a
     if not %WLUPR%.==all. goto END
REM
:fisprod
ECHO.
ECHO       Fission Products
ECHO       ----------------
call %WLUPP%runone Kr083g
call %WLUPP%runone Mo095g
call %WLUPP%runone Tc099g
call %WLUPP%runone Ru101g
call %WLUPP%runone Ru103g
call %WLUPP%runone Ru106g
call %WLUPP%runone Rh103g
call %WLUPP%runone Rh105g
call %WLUPP%runone Pd105g
call %WLUPP%runone Pd107g
call %WLUPP%runone Pd108g
call %WLUPP%runone Ag109g
call %WLUPP%runone Cd113g
call %WLUPP%runone In115g
call %WLUPP%runone Sb125g
call %WLUPP%runone Te127m
call %WLUPP%runone I_127g
if exist I_135g.nji call %WLUPP%runone I_135g
call %WLUPP%runone Xe131g
call %WLUPP%runone Xe134g
call %WLUPP%runone Xe135g
call %WLUPP%runone Xe136g
call %WLUPP%runone Cs133g
call %WLUPP%runone Cs134g
call %WLUPP%runone Cs135g
call %WLUPP%runone Cs137g
call %WLUPP%runone Nd143g
call %WLUPP%runone Nd145g
call %WLUPP%runone Pm147g
call %WLUPP%runone Pm147h
call %WLUPP%runone Pm148g
if exist Pm148m.nji call %WLUPP%runone Pm148m
call %WLUPP%runone Pm149g
call %WLUPP%runone Sm147g
call %WLUPP%runone Sm148g
call %WLUPP%runone Sm149g
call %WLUPP%runone Sm150g
call %WLUPP%runone Sm151g
call %WLUPP%runone Sm152g
call %WLUPP%runone Eu151g
call %WLUPP%runone Eu152g
call %WLUPP%runone Eu153g
call %WLUPP%runone Eu154g
call %WLUPP%runone Eu155g
call %WLUPP%runone Gd154g
call %WLUPP%runone Gd155g
call %WLUPP%runone Gd156g
call %WLUPP%runone Gd157g
call %WLUPP%runone Gd158g
call %WLUPP%runone Dy160g
call %WLUPP%runone Dy161g
call %WLUPP%runone Dy162g
call %WLUPP%runone Dy163g
call %WLUPP%runone Dy164g
call %WLUPP%runone Ho165g
if exist Er166g.nji call %WLUPP%runone Er166g
if exist Er167g.nji call %WLUPP%runone Er167g
     if not %WLUPR%.==all. goto END
REM
:majactn
ECHO.
ECHO       Major Actinides
ECHO       ---------------
call %WLUPP%runone Th232g
call %WLUPP%runone U_233g
call %WLUPP%runone U_235g
call %WLUPP%runone U_238g
call %WLUPP%runone Pu239g
call %WLUPP%runone Pu240g
call %WLUPP%runone Pu241g
REM  If processing of U_235a and U_238a (primmat) was skipped
REM  then copy the U_235g and U_238g cross section entries (majactn).
     if not exist  U_235a.xsw   copy U_235g.xsw U_235a.xsw
     if not exist  U_238a.xsw   copy U_238g.xsw U_238a.xsw
REM
     if not %WLUPR%.==all. goto END
REM
:minactn
ECHO.
ECHO       Minor Actinides
ECHO       ---------------
call %WLUPP%runone U_232g
call %WLUPP%runone U_234g
call %WLUPP%runone U_236g
call %WLUPP%runone U_237g
call %WLUPP%runone Np237g
call %WLUPP%runone Np239g
call %WLUPP%runone Pa231g
call %WLUPP%runone Pa233g
call %WLUPP%runone Pu242g
call %WLUPP%runone Pu242h
call %WLUPP%runone Pu238g
call %WLUPP%runone Am241g
call %WLUPP%runone Am242g
call %WLUPP%runone Am242m
call %WLUPP%runone Am243g
call %WLUPP%runone Cm242g
call %WLUPP%runone Cm243g
call %WLUPP%runone Cm244g
if exist Cm245g.nji call %WLUPP%runone Cm245g
if exist Cm246g.nji call %WLUPP%runone Cm246g
if exist Cm247g.nji call %WLUPP%runone Cm247g
if exist Cm248g.nji call %WLUPP%runone Cm248g
if exist Bk249g.nji call %WLUPP%runone Bk249g
if exist Cf249g.nji call %WLUPP%runone Cf249g
if exist Cf250g.nji call %WLUPP%runone Cf250g
if exist Cf251g.nji call %WLUPP%runone Cf251g
if exist Cf252g.nji call %WLUPP%runone Cf252g
if exist Cf253g.nji call %WLUPP%runone Cf253g
if exist Cf254g.nji call %WLUPP%runone Cf254g
     if not %WLUPR%.==all. goto END
REM
:absorbr
ECHO.
ECHO       Absorbers Materials
ECHO       -------------------
if exist B_010g.nji call %WLUPP%runone B_010g
if exist B_011g.nji call %WLUPP%runone B_011g
call %WLUPP%runone B_010s
call %WLUPP%runone B_011s
call %WLUPP%runone Ag107s
call %WLUPP%runone Ag109s
if exist InNats.nji call %WLUPP%runone InNats
if exist In113s.nji call %WLUPP%runone In113s
if exist In115s.nji call %WLUPP%runone In115s
if exist CdNats.nji call %WLUPP%runone CdNats
if exist Cd106s.nji call %WLUPP%runone Cd106s
if exist Cd108s.nji call %WLUPP%runone Cd108s
if exist Cd110s.nji call %WLUPP%runone Cd110s
if exist Cd111s.nji call %WLUPP%runone Cd111s
if exist Cd112s.nji call %WLUPP%runone Cd112s
if exist Cd113s.nji call %WLUPP%runone Cd113s
if exist Cd114s.nji call %WLUPP%runone Cd114s
if exist Cd116s.nji call %WLUPP%runone Cd116s
call %WLUPP%runone Hf176g
call %WLUPP%runone Hf177g
call %WLUPP%runone Hf178g
call %WLUPP%runone Hf179g
call %WLUPP%runone Hf180g
if exist HfNats.nji call %WLUPP%runone HfNats
if exist Hf174s.nji call %WLUPP%runone Hf174s
if exist Hf176s.nji call %WLUPP%runone Hf176s
if exist Hf177s.nji call %WLUPP%runone Hf177s
if exist Hf178s.nji call %WLUPP%runone Hf178s
if exist Hf179s.nji call %WLUPP%runone Hf179s
if exist Hf180s.nji call %WLUPP%runone Hf180s
if exist EuNats.nji call %WLUPP%runone EuNats
if exist Eu151s.nji call %WLUPP%runone Eu151s
if exist Eu153s.nji call %WLUPP%runone Eu153s
     if not %WLUPR%.==all. goto END
REM
:structr
ECHO.
ECHO       Structural Materials
ECHO       --------------------
call %WLUPP%runone Co059s
if exist CrNats.nji call %WLUPP%runone CrNats
if exist Cr050s.nji call %WLUPP%runone Cr050s
if exist Cr052s.nji call %WLUPP%runone Cr052s
if exist Cr053s.nji call %WLUPP%runone Cr053s
if exist Cr054s.nji call %WLUPP%runone Cr054s
if exist CuNats.nji call %WLUPP%runone CuNats
if exist Cu063s.nji call %WLUPP%runone Cu063s
if exist Cu065s.nji call %WLUPP%runone Cu065s
if exist FeNats.nji call %WLUPP%runone FeNats
if exist Fe054s.nji call %WLUPP%runone Fe054s
if exist Fe056s.nji call %WLUPP%runone Fe056s
if exist Fe057s.nji call %WLUPP%runone Fe057s
if exist Fe058s.nji call %WLUPP%runone Fe058s
if exist MgNats.nji call %WLUPP%runone MgNats
if exist Mg024s.nji call %WLUPP%runone Mg024s
if exist Mg025s.nji call %WLUPP%runone Mg025s
if exist Mg026s.nji call %WLUPP%runone Mg026s
call %WLUPP%runone Mn055s
if exist MoNats.nji call %WLUPP%runone MoNats
if exist Mo092s.nji call %WLUPP%runone Mo092s
if exist Mo094s.nji call %WLUPP%runone Mo094s
if exist Mo095s.nji call %WLUPP%runone Mo095s
if exist Mo096s.nji call %WLUPP%runone Mo096s
if exist Mo097s.nji call %WLUPP%runone Mo097s
if exist Mo098s.nji call %WLUPP%runone Mo098s
if exist Mo100s.nji call %WLUPP%runone Mo100s
if exist Nb093s.nji call %WLUPP%runone Nb093s
if exist NiNats.nji call %WLUPP%runone NiNats
if exist Ni058s.nji call %WLUPP%runone Ni058s
if exist Ni060s.nji call %WLUPP%runone Ni060s
if exist Ni061s.nji call %WLUPP%runone Ni061s
if exist Ni062s.nji call %WLUPP%runone Ni062s
if exist Ni064s.nji call %WLUPP%runone Ni064s
if exist SiNats.nji call %WLUPP%runone SiNats
if exist Si028s.nji call %WLUPP%runone Si028s
if exist Si029s.nji call %WLUPP%runone Si029s
if exist Si030s.nji call %WLUPP%runone Si030s
if exist TiNats.nji call %WLUPP%runone TiNats
if exist Ti046s.nji call %WLUPP%runone Ti046s
if exist Ti047s.nji call %WLUPP%runone Ti047s
if exist Ti048s.nji call %WLUPP%runone Ti048s
if exist Ti049s.nji call %WLUPP%runone Ti049s
if exist Ti050s.nji call %WLUPP%runone Ti050s
if exist V_Nats.nji call %WLUPP%runone V_Nats
if exist V_050s.nji call %WLUPP%runone V_050s
if exist V_051s.nji call %WLUPP%runone V_051s
if exist ZrNats.nji call %WLUPP%runone ZrNats
if exist Zr090s.nji call %WLUPP%runone Zr090s
if exist Zr091s.nji call %WLUPP%runone Zr091s
if exist Zr092s.nji call %WLUPP%runone Zr092s
if exist Zr094s.nji call %WLUPP%runone Zr094s
if exist Zr096s.nji call %WLUPP%runone Zr096s
call %WLUPP%runone Sn112s
call %WLUPP%runone Sn114s
call %WLUPP%runone Sn115s
call %WLUPP%runone Sn116s
call %WLUPP%runone Sn117s
call %WLUPP%runone Sn118s
call %WLUPP%runone Sn119s
if exist Sn120s.nji call %WLUPP%runone Sn120s
if exist Sn122s.nji call %WLUPP%runone Sn122s
if exist Sn124s.nji call %WLUPP%runone Sn124s
     if not %WLUPR%.==all. goto END
REM
:modertr
ECHO.
ECHO       Other Moderators
ECHO       ----------------
call %WLUPP%runone H_ZrHs
call %WLUPP%runone D_D2Os
call %WLUPP%runone BeNats
call %WLUPP%runone C_Grfs
     if not %WLUPR%.==all. goto END
REM
:varmatr
ECHO.
ECHO       Various Other Materials
ECHO       -----------------------
call %WLUPP%runone He003s
call %WLUPP%runone He004s
call %WLUPP%runone N_014s
call %WLUPP%runone N_015s
call %WLUPP%runone F_Nats
if exist P_031s.nji call %WLUPP%runone P_031s
if exist P_Nats.nji call %WLUPP%runone P_Nats
if exist S_032s.nji call %WLUPP%runone S_032s
if exist S_033s.nji call %WLUPP%runone S_033s
if exist S_034s.nji call %WLUPP%runone S_034s
if exist S_036s.nji call %WLUPP%runone S_036s
if exist S_Nats.nji call %WLUPP%runone S_Nats
if exist ClNats.nji call %WLUPP%runone ClNats
if exist Cl035s.nji call %WLUPP%runone Cl035s
if exist Cl037s.nji call %WLUPP%runone Cl037s
call %WLUPP%runone Li006s
call %WLUPP%runone Li007s
call %WLUPP%runone NaNats
if exist CaNats.nji call %WLUPP%runone CaNats
if exist Ca040s.nji call %WLUPP%runone Ca040s
if exist Ca042s.nji call %WLUPP%runone Ca042s
if exist Ca043s.nji call %WLUPP%runone Ca043s
if exist Ca044s.nji call %WLUPP%runone Ca044s
if exist Ca046s.nji call %WLUPP%runone Ca046s
if exist Ca048s.nji call %WLUPP%runone Ca048s
call %WLUPP%runone Ta181s
if exist W_Nats.nji call %WLUPP%runone W_Nats
if exist W_182s.nji call %WLUPP%runone W_182s
if exist W_183s.nji call %WLUPP%runone W_183s
if exist W_184s.nji call %WLUPP%runone W_184s
if exist W_186s.nji call %WLUPP%runone W_186s
call %WLUPP%runone Sb121s
call %WLUPP%runone Sb123s
if exist PbNats.nji call %WLUPP%runone PbNats
if exist Pb204s.nji call %WLUPP%runone Pb204s
if exist Pb206s.nji call %WLUPP%runone Pb206s
if exist Pb207s.nji call %WLUPP%runone Pb207s
if exist Pb208s.nji call %WLUPP%runone Pb208s
if exist Bi209s.nji call %WLUPP%runone Bi209s
     if not %WLUPR%.==all. goto END
REM
:fisspct
ECHO.
ECHO       Average Fission Spectrum
ECHO       ------------------------
REM Mix fission spectrum from comtributions:
REM  U-235 57 %
REM  U-238  8 %
REM Pu-239 35 %
     ECHO FISSION.XSP  >INP.
     ECHO U_235g.XSP  >>INP.
     ECHO 57          >>INP.
     ECHO U_238g.XSP  >>INP.
     ECHO  8          >>INP.
     ECHO Pu239g.XSP  >>INP.
     ECHO 35          >>INP.
     ECHO.            >>INP.
REM
     %WLUPP%xspmix<INP.
REM
     if not %WLUPR%.==all. goto END
     if not %2.==.  copy  FISSION.XSP %wlupi%%2%gx%.XSP
REM
:wimslib
ECHO.
ECHO       Update the WIMS-D Library
ECHO       -------------------------
REM Check for necessary files
REM Spectrum and pseudo f.p. x.sect. files
     if exist %wlupi%%2%gx%.xsp     copy %wlupi%%2%gx%.xsp     fission.xsp
     if exist %wlupi%U_232f%gx%.xsw copy %wlupi%U_232f%gx%.xsw U_232f.xsw
     if exist %wlupi%U_237f%gx%.xsw copy %wlupi%U_237f%gx%.xsw U_237f.xsw
     if exist %wlupi%%2%gx%.xsw     copy %wlupi%%2%gx%.xsw     pfp4902.xsw
REM Dosimetry and special x.sect. files (from DOSMAT directory)
     set  x=
     if   .%gx%==.gx set x=x
echo on
     copy %wlupd%CDAM%x%.xsw    C_Dmgd.xsw
     copy %wlupd%FE54NP%x%.xsw  Fe054d.xsw
     copy %wlupd%FE58NG%x%.xsw  Fe058d.xsw
     copy %wlupd%NI58NP%x%.xsw  Ni058d.xsw
     copy %wlupd%CO59NG%x%.xsw  Co059d.xsw
     copy %wlupd%KR84NG%x%.xsw  Kr084d.xsw
     copy %wlupd%ZRDAM%x%.xsw   ZrDmgd.xsw
     copy %wlupd%RH103NI%x%.xsw Rh103d.xsw
     copy %wlupd%LU176NG%x%.xsw Lu176d.xsw
     copy %wlupd%AU197NG%x%.xsw Au197d.xsw
echo off
     set  x=
REM Energy group boundaries
     if .%gx%==.gx copy %wlupi%egb172.dat
     if not exist wdn29.asc    ECHO *** ERROR *** wdn29.asc   file missing
     if not exist wlupwli.inp  ECHO *** ERROR *** wlupwli.inp file missing
     if not exist pfp4902.xsw  ECHO *** ERROR *** pfp4902.xsw file missing
     if not exist U_232f.xsw   ECHO *** ERROR *** U_232f.xsw  file missing
     if not exist U_237f.xsw   ECHO *** ERROR *** U_237f.xsw  file missing
     if not exist wdn29.asc    goto USAGE
     if not exist wlupwli.inp  goto USAGE
     if not exist pfp4902.xsw  goto USAGE
     if not exist U_232f.xsw   goto USAGE
     if not exist U_237f.xsw   goto USAGE
REM
       %WLUPP%willie<wlupwli.inp
REM
REM  If running full calc.for a library, save the final WIMS-D library file
       if %2.==. goto END
REM  Trap cases when library update is incomplete
       echo on
       if exist wlupnew.lib del wlupnew.lib
       if exist wlupnew.bin del wlupnew.bin
       if not .%gx%==. ren WLUP04.* wlupnew.*
       if     .%gx%==. ren WLUP10.* wlupnew.*
       echo off
       if exist wlupnew.lib goto savelib
REM
       echo.
       echo RUNALL ERROR - Library update incomplete ...
       echo                Library not saved.
       echo                Dosimetry reactions not updated.
       goto err
REM
:savelib
echo on
       copy wlupnew.lib %wlupl%%2%gx%.lib
       copy wlupnew.bin %wlupl%%2%gx%.bin
echo off
:dosmat
ECHO.
ECHO       Update the WIMS-D Library Dosimetry Files
ECHO       -----------------------------------------
       If not .%4==. call %wlupp%wlupdosm %4  u %2%gx%
       If     .%4==. call %wlupp%wlupdosm 69  u %2
:END
ECHO.
ECHO       All Materials Processed
ECHO       -----------------------
REM
     if not %WLUPR%.==all. goto exit
REM
:bnchmrk
ECHO.
ECHO       Run Benchmark Test Cases
ECHO       ------------------------
REM
     if %1.==. goto exit
     if %2.==. echo Undefined library name to run benchmark tests
     if %2.==. goto USAGE
REM Expand individual WIMSD inputs from the merged file
     if exist win.tmp del win.tmp
     if %4.==.        copy %wlupi%win.src win.tmp
     if %4.==69.      copy %wlupi%win.src win.tmp
     if %4.==172.     copy %wlupi%wgx.src win.tmp
     if %2.==wdn29.   copy %wlupi%w86.src win.tmp
     if not exist win.tmp echo ERROR - merged WIMS input file does not exist
     if not exist win.tmp goto USAGE
     echo win.tmp >inp
     echo WIN    >>inp
     %wlupp%dckspl<inp
REM Expand reference solutions from the merged file
     if not exist %wlupi%ref.src echo ERROR - merged REF file does not exist
     if not exist %wlupi%ref.src goto USAGE
     echo %wlupi%ref.src  >inp
     echo REF            >>inp
     %wlupp%dckspl<inp
REM Expand auxilliary files from the merged file
     if not exist %wlupi%dop.src echo ERROR - merged REF file does not exist
     if not exist %wlupi%dop.src goto USAGE
     echo %wlupi%dop.src  >inp
     echo T              >>inp
     %wlupp%dckspl<inp
REM Other files
     copy %WLUPI%Nora.c
     copy %WLUPI%Vver1.c
     copy %WLUPI%Doppler.e
REM
REM Standard benchmark sequence
     call %wlupp%bnchall  %2%gx%
REM
echo on
     copy %2%gx%.lst %2%gx%st.lst
echo off
REM Supplementary benchmark sequence
     call %wlupp%supbench  %2%gx%
echo on
     copy %2%gx%.lst %2%gx%su.lst
REM
     copy %2%gx%st.lst+%2%gx%su.lst %2%gx%.lst
     copy %2%gx%.lst %wlupl%%2%gx%.lst
     echo off
     goto exit
:ERR
     echo ****** ERRORS in RUNALL encountered ******
:EXIT
     set  gx=
     set  WLUPR=
*deck rundop 
@ECHO OFF
REM Run All WIMS-D DOPPLER Benchmarks
REM =================================
REM Author : Francisco Leszczynski (from A.Trkov d2orunw.bat)
REM Version: 2002 Original code
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      blank - execute all benchmarks.
REM      dop   - Doppler Benchmarks
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM    DOPPLER.WIN
REM    DOPPLER.REF (+ doppler.e,doppler.t)
REM
REM Programs
REM    DOPBENCH.EXE
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: RUNDOP %1 %2
    ECHO.
    ECHO   USAGE: RUNDOP lib [bnc]
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     bnc  Benchmark set which may be
    ECHO      blank - execute all benchmarks.
    ECHO      dop   - Erradi Doppler Benchmarks
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    IF %WLUPP%.==. ECHO *** ERROR *** WLUP Settings undefined
    IF %WLUPP%.==. GOTO ERR
    IF %1.==. GOTO ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
REM
    IF %2.==.      GOTO DOP
    IF %2.==dop.   GOTO DOP
    IF %2.==DOP.   GOTO DOP
    GOTO ERR
REM
:DOP
ECHO.
ECHO Run all WIMS-D DOPPLER benchmarks
ECHO ---------------------------------
ECHO.
    call %WLUPP%wimsone doppler
    if not exist doppler.ref copy %WLUPI%doppler.ref
    if not exist doppler.e copy %WLUPI%doppler.e
    if not exist doppler.t copy %WLUPI%doppler.t
    call %WLUPP%dopbench
    copy entetedop.res+nbdc.res+doppler.res doppler.o
    IF NOT %2.==. GOTO EXIT
REM
:EXIT
DEL *.E
DEL *.RES
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
:END
*deck runone 
@ECHO OFF
ECHO.
ECHO ----------------------
ECHO RunOne NJOY for %1
DATE /T
TIME /T
REM Version : 2000/09 Special case adjusting Am-241 fission cross section
REM Version : 2014/11 Modified to save point data
REM
    IF NOT %1.==.   GOTO RUN
    ECHO.
    ECHO    USAGE:  runone 'name' 
    ECHO            'name' is the generic filename
    ECHO            (default extension ".nji")
    GOTO END
:RUN
    %WLUPN%NJOY<%1.nji
rem IF EXIST TAPE26 COPY TAPE26 %WLUPPT%%1.pnt
rem IF EXIST TAPE26 ECHO Point data copied to %WLUPPT%%1.pnt
    IF NOT EXIST TAPE27 ECHO Error: WIMSR Output not found
    IF EXIST %1.xsw DEL            %1.xsw
    IF EXIST TAPE27 REN  TAPE27    %1.xsw
REM
REM Check if processing Am-241
		IF %1.==Am241G. GOTO AM241
    IF %1.==Am241g. GOTO AM241
    IF %1.==AM241G. GOTO AM241
    IF %1.==AM241g. GOTO AM241
    IF %1.==am241G. GOTO AM241
		IF %1.==am241g. GOTO AM241
	  IF %1.==aM241G. GOTO AM241
		IF %1.==aM241g. GOTO AM241
        GOTO NOTAM
:AM241
REM Force Am-241 fission x-sect proportional to absorption
REM (necessary for correct Am-242g prediction).
        %WLUPP%FIDLAM
:NOTAM
    IF EXIST TAPE28 COPY TAPE28 %1.xsp
		IF EXIST TAPE21 DEL  TAPE21
		IF EXIST TAPE22 DEL  TAPE22
		IF EXIST TAPE23 DEL  TAPE23
		IF EXIST TAPE24 DEL  TAPE24
		IF EXIST TAPE25 DEL  TAPE25
		IF EXIST TAPE26 DEL  TAPE26
		IF EXIST TAPE28 DEL  TAPE28
        IF EXIST TAPE31 DEL  TAPE31	
:END
ECHO ----------------------	
REM
 
*deck runrtc 
@ECHO OFF
REM Run All WIMS-D RTC Benchmarks
REM =================================
REM Author : Francisco Leszczynski (from A.Trkov d2orunw.bat)
REM Version: 2002 Original code
REM V 02/04  Minor changes
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      blank - execute all benchmarks.
REM      rtc   - RTC Benchmarks
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM    KRITZ1.WIN
REM    KRITZ21.WIN
REM    KRITZ213.WIN
REM    KRITZ219.WIN
REM    NORA.WIN
REM    R1100H.WIN
REM    VVER1.WIN
REM    VVER2.WIN
REM    VVER3.WIN
REM    VVER4.WIN
REM    KRITZ1.T
REM    KRITZ21.T
REM    KRITZ213.T
REM    KRITZ219.T
REM    NORA.T
REM    NORA.C
REM    R1100H.T
REM    VVER.T
REM    VVER1.T
REM    VVER1.C
REM    VVER2.T
REM    VVER3.T
REM    VVER4.T
REM
REM Programs
REM    PINTCR.EXE
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: RUNRTC %1 %2
    ECHO.
    ECHO   USAGE: RUNRTC lib [bnc]
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     bnc  Benchmark set which may be
    ECHO       blank - execute all benchmarks.
    ECHO       rtc   - RTC Benchmarks
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
REM
    IF %2.==.      GOTO RTC
    IF %2.==rtc.   GOTO RTC
    IF %2.==RTC.   GOTO RTC
    GOTO ERR
REM
:RTC
ECHO.
ECHO Run all WIMS-D RTC benchmarks
ECHO ---------------------------------
ECHO.
    call %WLUPP%wimsone nora
    call %WLUPP%wimsone kritz1
    call %WLUPP%wimsone kritz21
    call %WLUPP%wimsone kritz213
    call %WLUPP%wimsone kritz219
    call %WLUPP%wimsone r1100h
    call %WLUPP%wimsone vver1
    call %WLUPP%wimsone vver2
    call %WLUPP%wimsone vver3
    call %WLUPP%wimsone vver4
    if not exist nora.c copy %WLUPI%nora.c
    if not exist nora.t copy %WLUPI%nora.t
    if not exist kritz1.t copy %WLUPI%kritz1.t
    if not exist kritz21.t copy %WLUPI%kritz21.t
    if not exist kritz213.t copy %WLUPI%kritz213.t
    if not exist kritz219.t copy %WLUPI%kritz219.t
    if not exist r1100h.t copy %WLUPI%r1100h.t
    if not exist vver.t copy %WLUPI%vver.t
    if not exist vver1.t copy %WLUPI%vver1.t
    if not exist vver1.c copy %WLUPI%vver1.c
    if not exist vver2.t copy %WLUPI%vver2.t
    if not exist vver3.t copy %WLUPI%vver3.t
    if not exist vver4.t copy %WLUPI%vver4.t
    call %WLUPP%pintcr
    if exist rtc.o  del rtc.o
    if exist rtc1.o del rtc1.o
    if exist rtc2.o del rtc2.o
    copy entetetcr.res+ebtcr.res+nora.res+kritz1.res+kritz21.res rtc1.o
    copy rtc1.o+kritz213.res+kritz219.res+r1100h.res+vver1.res   rtc2.o
    copy rtc2.o+vver2.res+vver3.res+vver4.res                    rtc.o
    if exist rtc1.o del rtc1.o
    if exist rtc2.o del rtc2.o
    IF NOT %2.==. GOTO EXIT
REM
:EXIT
DEL *.RES
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
:END
*deck setwlup 
@ECHO OFF
REM Run WLUP Benchmark Settings
REM ===========================
REM
REM Settings: Change path settings to match your configuration
REM           WLUP programs directory
    SET WLUPP=\WLUP\programs\
REM           WLUP inputs directory
    SET WLUPI=\WLUP\inputs\
REM           WIMS-D libraries directory
    SET WLUPL=\WLUP\wimslib\
REM           Directory of WIMSD5B executable
    SET WLUPW=\wimsd5\
REM           Directory of NJOY and UPD executable
    SET WLUPN=\NJOY99\
REM           Directory of WLUP Dosimetry Materials
    SET WLUPD=\WLUP\dosmat\
REM           Directory of PREPRO System
    SET PREPRO=\PREPRO12\
REM           Directory of WLUP evaluated Data (for dosimetry materials)
    SET WLUPDL=\WLUP\dosdat\
REM           Directory of WLUP point-wise data
    SET WLUPPT=\WLUP\point\
*deck supbench 
@ECHO OFF
ECHO.
ECHO Initiate Execution of All Supplementary WIMS-D Benchmarks
ECHO ---------------------------------------------------------
ECHO.
REM Author : Francisco Leszczynski, Centro Atomico Bariloche, CNEA, Argentina
REM Version: 2002 Original code (based on bnchall.bat from A.Trkov)
REM
REM V YY/MM
REM V 02/02  F.leszczynski:
REM V        - Include Be benchmarks from T.Kulikovska
REM V 02/02  F.leszczynski:
REM V        - Include Doppler benchmark from L.Erradi
REM V 02/02  F.leszczynski:
REM V        - Include RTC benchmarks from L.Erradi
REM V 02/02  F.leszczynski:
REM V        - Include D2O-Gd benchmark from F.Leszczynski
REM V 02/03  F.leszczynski:
REM V        - Include MTR-OWR burnup benchmark from F.Leszczynski
REM V 02/04  F.leszczynski:
REM V        - Include PWR-Th burnup benchmark from V.J.Jaganathan
REM
REM Check parameter
    IF %1.==?.    GOTO USAGE
    IF %1.==-h.   GOTO USAGE
    IF NOT %1.==. GOTO SET
:USAGE
ECHO.
ECHO   Incorrect entry: SUPBENCH %1 %2
ECHO.
ECHO   USAGE: SUPBENCH lib [bnc]
ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
ECHO     bnc  Benchmark set which may be
ECHO            blank   : all benchmarks
ECHO            be      : Uranium-H2O-Be numerical criticality benchmarks
ECHO            doppler : numerical DOPPLER Benchmark
ECHO            rtc     : RTC experimental Benchmarks
ECHO            d2ogd   : D2O-Gd experimental Benchmark
ECHO            mtrburn : exp./numer. Burnup MTR-OWR benchmark
ECHO            thburn  : numer. Burnup PWR-Th benchmark
ECHO.
    GOTO END
REM
REM Required external files:
REM
REM Programs and batch files
REM    BNCHONE Dos Batch procedure to run a single criticality benchmark.
REM    WIMSONE Dos Batch procedure to run a single WIMS-D benchmark.
REM    RUNDOP  Dos Batch procedure to run DOPPLER benchmark.
REM    RUNRTC  Dos Batch procedure to run RTC benchmarks.
REM    D2OGD   Dos Batch procedure to run D2O-Gd benchmark.
REM    MTRB    Dos Batch procedure to run MTR-OWR burnup benchmark.
REM    WEDOG2   Program to analyse criticality benchmarks (called from BNCHONE).
REM    SMRDIF   Program to compare criticality benchmarks to reference.
REM    DOPBENCH Program to analyse DOPPLER benchmark (called from RUNDOP).
REM    DOPBEN   Program to compare DOPPLER benchmark to reference.
REM    PINTCR   Program to analyse RTC benchmarks (called from RUNRTC).
REM    RTCBEN   Program to compare RTC benchmarks to reference.
REM    E2T2     Program to analyse D2O-Gd benchmark (called from D2OGD).
REM    E2T2P    Program to compare D2O-GD benchmark to reference.
REM    MTRBURN  Program to analyse Burnup MTR-OWR benchmark (called from MTRB).
REM    MTRB2    Program to compare Burnup MTR-OWR benchmark to reference.
REM    THBURN   Program to analyse Burnup Th benchmark (called from THB).
REM
REM Inputs:
REM  be : Uranium-H2O-Be numerical criticality benchmarks
REM    BERMAR.WIN
REM    BERHOM.WIN
REM  doppler : DOPPLER numerical benchmark
REM    DOPPLER.WIN
REM  rtc : RTC benchmarks
REM    KRITZ1.WIN
REM    KRITZ21.WIN
REM    KRITZ213.WIN
REM    KRITZ219.WIN
REM    NORA.WIN
REM    R1100H.WIN
REM    VVER1.WIN
REM    VVER2.WIN
REM    VVER3.WIN
REM    VVER4.WIN
REM  d2ogd : DWO-GD benchmark
REM    E2T2A00D.WIN
REM    E2T2D00D.WIN
REM    E2T2D01D.WIN
REM    E2T2D05D.WIN
REM    E2T2D10D.WIN
REM    E2T2H12D.WIN
REM  mtrburn : Burnup MTR-OWR benchmark
REM    MTRBURN.WIN
REM  thburn : Burnup Th benchmark
REM    THBURN.WIN
REM
REM Reference results files
REM    BERMAR.REF   U-H2O-Be Numerical Criticality benchmarks
REM    DOPPLER.REF  DOPPLER benchmark
REM    DOPPLER.E
REM    DOPPLER.T
REM    KRITZ1.T     RTC-KRITZ1 benchmark
REM    KRITZ21.T        KRITZ21 benchmark
REM    KRITZ213.T       KRITZ213 benchmark
REM    KRITZ219.T       KRITZ219 benchmark
REM    NORA.C           NORA benchmark
REM    NORA.T
REM    R1100H.T         R1100H benchmark
REM    VVER.T           VVER benchmarks
REM    VVER1.T          VVER1 benchmark
REM    VVER1.C
REM    VVER2.T          VVER2 benchmark
REM    VVER3.T          VVER3 benchmark
REM    VVER4.T          VVER4 benchmark
REM    E2T2.REF     D2O-GD benchmark
REM    MTRBURN.REF  MTR-OWR Burnup benchmark
REM    THBURN.REF   Th-Burnup benchmark
REM
:SET
REM Check WLUP settings
rem if errorlevel 1 goto USAGE
    if %WLUPP%.==.             ECHO *** ERROR *** Undefined WLUP settings
    if %WLUPP%.==.             goto USAGE
    if not exist %WLUPL%%1.bin ECHO *** ERROR *** File %WLUPL%%1.bin not found
    if not exist %WLUPL%%1.bin GOTO USAGE
    copy         %WLUPL%%1.bin WIMSDLIB
REM
REM Clear the output list file
    if exist %1.lst   copy %1.lst %1.bak
    if exist %1.lst   del  %1.lst
    echo  #                                        >%1.lst
    echo  # WLUP SUPPLEMENTARY BENCHMARK SEQUENCE >>%1.lst
    echo  # ------------------------------------- >>%1.lst
    IF %2.==.         GOTO BE
    IF %2.==be.       GOTO BE
    IF %2.==BE.       GOTO BE
    IF %2.==Be.       GOTO BE
    IF %2.==doppler.  GOTO DOPPLER
    IF %2.==DOPPLER.  GOTO DOPPLER
    IF %2.==Doppler.  GOTO DOPPLER
    IF %2.==rtc.      GOTO RTC
    IF %2.==RTC.      GOTO RTC
    IF %2.==Rtc.      GOTO RTC
    IF %2.==d2ogd.    GOTO D2OGD
    IF %2.==D2OGD.    GOTO D2OGD
    IF %2.==D2ogd.    GOTO D2OGD
    IF %2.==mtrburn.  GOTO MTRBURN
    IF %2.==MTRBURN.  GOTO MTRBURN
    IF %2.==Mtrburn.  GOTO MTRBURN
    IF %2.==thburn.   GOTO THBURN
    IF %2.==THBURN.   GOTO THBURN
    IF %2.==Thburn.   GOTO THBURN
    GOTO USAGE
REM
:BE
ECHO.
ECHO Run all U-H2O-BE numerical criticality benchmarks
ECHO -------------------------------------------------
ECHO.
    if   exist %1.smr   DEL     %1.smr
    call %WLUPP%bnchone bermar  %1
    call %WLUPP%bnchone berhom  %1
REM
REM Compare to the reference results
    ECHO bermar.ref            >INP
    ECHO %1.smr               >>INP
    ECHO bermar.lst           >>INP
    ECHO 1                    >>INP
    %WLUPP%smrdif<INP
    echo  #                                     >>%1.lst
    echo  # U-H2O-Be criticality benchmarks     >>%1.lst
    echo  # -------------------------------     >>%1.lst
    type bermar.lst                             >>%1.lst
    DEL  *.WED
    DEL  *.SMR
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  bermar.lst
REM
:DOPPLER
ECHO Run DOPPLER Benchmark
ECHO ---------------------------
ECHO.
    call %WLUPP%rundop %WLUPL%%1 dop
REM
REM Summarize the results
    echo DOPBEN.LST   >inp
    echo doppler.o    >>inp
    call %WLUPP%dopben<inp
echo  #                                         >>%1.lst
echo  # DOPPLER REACT.COEF.benchmark            >>%1.lst
echo  # ----------------------------            >>%1.lst
type DOPBEN.LST                                 >>%1.lst
REM
IF NOT %2.==. GOTO EXIT
echo  #                  >>%1.lst
DEL  DOPBEN.LST
DEL  *.O
REM
:RTC
ECHO Run RTC Benchmarks
ECHO ---------------------------
ECHO.
    call %WLUPP%runrtc %WLUPL%%1 rtc
REM
REM Summarize the results
echo RTCBEN.LST   >inp
echo rtc.o        >>inp
call %WLUPP%rtcben<inp
echo  #                                         >>%1.lst
echo  # RTC React.Coeffic. benchmark            >>%1.lst
echo  # ----------------------------            >>%1.lst
type RTCBEN.LST                                 >>%1.lst
REM
IF NOT %2.==. GOTO EXIT
echo  #                  >>%1.lst
DEL  RTCBEN.LST
DEL  *.O
REM
:D2OGD
ECHO Run all D2O Gd exper. Benchmark
ECHO ----------------------------------
ECHO.
    call %WLUPP%d2ogd %WLUPL%%1
REM
REM Summarize the results
echo e2t2.LST   >inp
echo e2t2.lis    >>inp
call %WLUPP%e2t2p<inp
echo  #                                         >>%1.lst
echo  # Uranium D2O Gd exper. benchmarks        >>%1.lst
echo  # ----------------------------------      >>%1.lst
type e2t2.LST                                   >>%1.lst
REM
IF NOT %2.==. GOTO EXIT
echo  #                  >>%1.lst
DEL  e2t2.LST
DEL  *.LIS
REM
:MTRBURN
ECHO Run MTR-OWR Burnup Benchmark
ECHO ----------------------------
ECHO.
    call %WLUPP%MTRB %WLUPL%%1
REM
REM Summarize the results
    echo MTRBURN.LST   >inp
    echo mtrburn.lis  >>inp
    call %WLUPP%mtrb2<inp
    echo  #                                         >>%1.lst
    echo  # MTR - OWR burnup benchmark              >>%1.lst
    echo  # --------------------------              >>%1.lst
    type MTRBURN.LST                                >>%1.lst
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  MTRBURN.LST
    DEL  *.LIS
REM
:THBURN
ECHO Run TH-Burnup Benchmark
ECHO ----------------------------
ECHO.
    call %WLUPP%THB %WLUPL%%1
REM
REM Summarize the results
    echo  #                                         >>%1.lst
    echo  # PWR - Th burnup benchmark               >>%1.lst
    echo  # -------------------------               >>%1.lst
    type THBURN.LST                                 >>%1.lst
REM
    IF NOT %2.==. GOTO EXIT
    echo  #                  >>%1.lst
    DEL  THBURN.LST
REM
:EXIT
IF EXIST *.REF      DEL *.REF
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
IF EXIST WIMSDINP   DEL WIMSDINP
IF EXIST WIMSDOUT   DEL WIMSDOUT
IF EXIST WIMSDLIB   DEL WIMSDLIB
IF EXIST INP        DEL INP
IF EXIST TMP        DEL TMP
:END
@ECHO OFF
*deck thb 
@ECHO OFF
REM Run WIMS-D Th-Burn Benchmark (use THBURN program for analysis)
REM ===============================================================
REM Author : Francisco Leszczynski
REM Version: 2002 Original code
REM
REM Parameters:
REM 1. WIMS-D library filename (no extension, assumed ".bin")
REM 2. Benchmark series to be executed. Valid entries are:
REM      THBURN
REM
REM Required external files:
REM
REM Batch file
REM    Wimsone Dos Batch procedure
REM
REM Inputs
REM     THBURN.WIN file
REM     THBURN.REF file
REM
REM Programs
REM    THBURN.EXE file
REM    for analysis of WIMS results
REM
REM Libraries
REM    *.BIN file with the selected library
REM
REM Check parameter
REM
    IF NOT %1.==. GOTO SET
:ERR
    ECHO.
    ECHO   Incorrect entry: THB %1 %2
    ECHO.
    ECHO   USAGE: THB lib mtrburn
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO     ThBurn  Benchmark set
    ECHO.
    GOTO END
:SET
REM Check WLUP settings
REM if errorlevel 1 goto ERR
    if not exist %1.bin ECHO *** ERROR *** File %1.bin not found
    if not exist %1.bin GOTO ERR
    copy         %1.bin WIMSDLIB
REM
    IF %2.==.         GOTO THBURN
    IF %2.==thburn.   GOTO THBURN
    IF %2.==THBURN.   GOTO THBURN
    GOTO ERR
REM
:THBURN
ECHO.
ECHO Run WIMS-D Th-burnup benchmark
ECHO ------------------------------
ECHO.
    call %WLUPP%wimsone thburn
    if not exist thburn.ref copy %WLUPI%thburn.ref
    call %WLUPP%thburn
    IF NOT %2.==. GOTO EXIT
REM
 
:EXIT
IF EXIST FOR001     DEL FOR001
IF EXIST FOR003     DEL FOR003
IF EXIST FOR004     DEL FOR004
IF EXIST FOR008     DEL FOR008
IF EXIST FOR009     DEL FOR009
IF EXIST FOR010     DEL FOR010
IF EXIST FOR012     DEL FOR012
IF EXIST FOR013     DEL FOR013
IF EXIST FOR014     DEL FOR014
IF EXIST FOR019     DEL FOR019
IF EXIST FOR020     DEL FOR020
IF EXIST WIMSDINP   DEL WIMSDINP
IF EXIST WIMSDOUT   DEL WIMSDOUT
IF EXIST WIMSDLIB   DEL WIMSDLIB
:END
*deck wimsone 
@ECHO OFF
REM Run WIMS-D Benchmark
REM ================================
REM Author : A.Trkov
REM Version: 2000  Renamed from D2OBONE.BAT
REM V        02/04 Minor corrections for error checking
REM
REM Assumed settings (defined in SETWLUP batch procedure):
REM   WLUPW  directory containing WIMS5B executable
    GOTO CHK
:ERR
    ECHO.
    ECHO   USAGE: BNCHONE inp [lib]
    ECHO     inp  WIMS-D input filename   (no extension, assumed .win)
    ECHO     lib  WIMS-D library filename (no extension, assumed .bin)
    ECHO.
    GOTO EXIT
:CHK
REM Check WIMS input
    IF %1.==. GOTO ERR
    IF NOT EXIST %1.WIN ECHO ERROR - %1.WIN input file does not exist
    IF NOT EXIST %1.WIN GOTO ERR
    COPY         %1.WIN WIMSDINP
REM Check WIMS library
    IF %2.==. GOTO RUN
    IF NOT EXIST %2.BIN ECHO ERROR - %2.BIN library does not exist
    IF NOT EXIST %2.BIN GOTO ERR
    COPY         %2.BIN  WIMSDLIB
:RUN
    IF NOT EXIST WIMSDLIB ECHO ERROR - WIMSDLIB does not exist
    IF NOT EXIST WIMSDLIB GOTO ERR
REM Execute WIMSD5B
    ECHO.
    ECHO       Run    : WIMSD5B
    ECHO       Input  : %1.WIN
    IF NOT %2.==. ECHO       Library: %2.BIN
REM
    %WLUPW%WIMSD5B
    COPY WIMSDOUT %1.OUT
REM
:EXIT
*deck wlupdosm 
@echo off
rem           IAEA WIMS-D Library Update Project (WLUP)
rem
rem  Title  : wlupdosm Dos batch procedure
rem
rem  Purpose: Prepare WLUP dosimetry materials & update WIMSD library.
rem
rem  Version: 08/2001
rem
rem  Author : D. L. Aldama, CTN, La Habana, Cuba
rem
if not %1.==. goto CONT
:HELP
echo Usage  : wlupdosm  p1  p2  p3  p4
echo.
echo              p1: number of groups (69 or 172)
echo              p2: trigger (c,u,cu)
echo                  p2=c  Prepare WIMSD formatted dosimetry files from a set
echo                        of evaluated dosimetry data files
echo                  p2=u  Update the dosimetry files of a WIMSD formatted
echo                        library
echo.
echo                  p2=cu Both actions are executed
echo.
echo    Parameters p3 and p4 depend on the value of p2.
echo.
echo    (press any key to continue)...
pause
echo    If p2=c then:
echo                  p3: the root word to form the filename of the evaluated 
echo                      nuclear data library in ENDF-6 format for preparing
echo                      the WIMSD formatted dosimetry materials
echo                      The library name is formed as p3dl.dat and it should
echo                      be  on the "wimsdl" directory.
echo                      Ex. p3=endfb7 then filename = endfb7dl.dat
echo.
echo                  p4: is a trigger to control the output files
echo                      p3 = all: all files are kept at the end
echo                      p3 = blank: only WIMSD cross section file (default)
echo                      p3 = anything else: WIMSD cross section file and
echo                           some intermediate files are saved
echo.
echo    If p2=u then:
echo                  p3: is the WIMSD formatted library name.
echo                      Extension *.lib is assumed.
echo                      The library should be on the "wlupl" directory.
echo                      The new dosimetry files should be on "wlupd" directory.
echo                      The new (updated) library replace the starting library.
echo                      The starting library is renamed as p3.old
echo.
echo                  p4 is not used
echo.
pause
echo    If p2=cu then:
echo                  p3: is the WIMSD formatted library name.
echo                      Extension *.lib is assumed.
echo                      The library should be on the "wlupl" directory.
echo                      The new dosimetry files should be on "wlupd" directory.
echo                      The new (updated) library replace the starting library.
echo                      The starting library is renamed as p3.old,
echo.                    
echo                  p3  is also the root word to form the filename of the evaluated 
echo                      nuclear data library in ENDF-6 format for preparing
echo                      the WIMSD formatted dosimetry materials
echo                      The library name is formed as p3dl.dat and it should
echo                      be  on the "wimsdl" directory.
echo                      Ex. p3=endfb7 then filename = endfb7dl.dat
echo.
echo                  p4: is a trigger to control the output files
echo                      p4 = all: all files are kept at the end
echo                      p4 = blank: only WIMSD cross section file (default)
echo                      p4 = anything else: WIMSD cross section file and
echo                           some intermediate files are saved
echo.
pause
echo        Examples: wlupdosm  69 cu endfb6 all
echo                  wlupdosm  69 cu jef22
echo                  wlupdosm  69  u endfb6
echo                  wlupdosm  69  c endfb6
echo                  wlupdosm 172 cu endfb6 lst
echo.
echo                  wlupdosm or wlupdosm /h or wlupdos /? for HELP!
echo.
echo    Called codes and procedures:
echo                  dosmat1.bat, wimsie and willie.exe.
echo                  They should be on the "wlupp" directory.
echo                  dosmat1.bat requires the PREPRO code system.
echo                  (see dosmat1 for HELP!).
echo.
pause
echo        Comments: The following environment variables should be set:
echo                  prepro: directory of the PREPRO code system.
echo                  wlupdl: directory of the evaluated dosimetry files.
echo                  wlupd : directory of the WIMSD dosimetry materials.
echo                  wlupp: directory of wimsie program.
echo                  wlupi: WLUP input directory.
echo                  dosimetry material files are created on the
echo                  "wlupd" directory.
echo                  the updated library is saved on the
echo                  "wlupl" directory.
echo.
echo                  It can be automatically done if your setwlup.bat
echo                  procedure and the WLUP enviroment variable are
echo                  correctly defined. (see comment cards)
echo.
echo                  Maybe you should increase the size of
echo                  Memory/Initial Environment on the MSDOS Window.
echo.
echo                  The evaluated data should be given pointwise
echo                  (i.e. cross sections reconstructed from the
echo                  resonance parameters, where applicable).
echo.
pause
echo  WLUP dosimetry materials
echo.
echo  Source of data:
echo                       Original                  WIMSD   WIMSD
echo  Material/Reaction    Library       ZA    MF   MT   ID   FileName
echo.
echo  Mn-55(n,g)Mn-56     IRDFF v.1.05  25055   3  102  1055  Mn55ng"L"
echo  Fe-54(n,p)Mn-54     IRDFF v.1.05  26054   3  103  1054  Fe54np"L"
echo  Fe-58(n,g)Fe-59     IRDFF v.1.05  26058   3  102  3058  Fe58ng"L"
echo  Co-59(n,g)Co-60     IRDFF v.1.05  27059   3  102  2059  Co59ng"L"
echo  Ni-58(n,p)Co-58     IRDFF v.1.05  28058   3  103  1058  Ni58np"L"
echo  Cu-63(n,g)Cu-64     IRDFF v.1.05  29063   3  102  1063  Cu63ng"L"
echo  Kr-84(n,g)Kr-85     ENDF/B-VII.1  36084   3  102    84  Kr84ng"L"
echo  Rh-103(n,n')Rh-103m IRDFF v.1.05  45103  10    4  2103  Rh103ni"L"
echo  In-115(n,n')In-115m IRDFF v.1.05  49115  10    4  1115  In115ni"L"
echo  In-115(n,g)In-116m  IRDFF v.1.05  49115  10  102  3115  In115ng"L"
echo  Eu-151(n,g)Eu-152   ENDF/B-VII.1  63151   3  102  1151  Eu151ng"L"
pause
echo  Dy-164(n,g)Dy-165   ENDF/B-VII.1  66164   3  102  1164  Dy164ng"L"
echo  Lu-176(n,g)Lu-177   ENDF/B-VII.1  71176   3  102   176  Lu176ng"L"
echo  Au-197(n,g)Au-198   IRDFF v.1.05  79197   3  102   197  Au197ng"L"
echo  Th-232(n,g)Th-233   IRDFF v.1.05  90232   3  102  1232  Th232ng"L"
echo  Th-232(n,f)         IRDFF v.1.05  90232   3   18  3232  Th232nf"L"
echo  U-235(n,g)U-236     IRDFF v.1.05  92235   3  102  1235  U235ng"L"
echo  U-235(n,f)          IRDFF v.1.05  92235   3   18  1003  U235nf"L"
echo  U-238(n,g)U-239     IRDFF v.1.05  92238   3  102  1238  U238ng"L"
echo  U-238(n,f)          IRDFF v.1.05  92238   3   18  3238  U238nf"L"
echo  Np-237(n,f)         IRDFF v.1.05  93237   3   18  1237  Np237nf"L"
echo  Pu-239(n,f)         IRDFF v.1.05  94239   3   18  1239  Pu239nf"L"
echo.
pause
echo.
echo  (n,2n) reaction for major actinides
echo.
echo  Th-232(n,2n)        ENDF/B-VII.1  90232   3   16  1632  Th232n2"L"
echo  U-233(n,2n)         ENDF/B-VII.1  92233   3   16  1633  U233n2"L"
echo  U-235(n,2n)         ENDF/B-VII.1  92235   3   16  1635  U235n2"L"
echo  U-238(n,2n)         IRDFF v.1.05  92238   3   16  1638  U238n2"L"
echo  Pu-239(n,2n)        ENDF/B-VII.1  94239   3   16  1639  Pu239n2"L"
echo  Pu-240(n,2n)        ENDF/B-VII.1  94240   3   16  1640  Pu240n2"L"
echo  Pu-241(n,2n)        ENDF/B-VII.1  94241   3   16  1641  Pu241n2"L"
echo  Pu-242(n,2n)        ENDF/B-VII.1  94242   3   16  1642  Pu242n2"L"
echo.
pause
echo.
echo  special dosimetry materials
echo.
echo  C-damage            WLUP           6000   3  444  2212  Cdam"L"
echo  Zr-damage           WLUP          40000   3  444  1091  Zrdam"L"
echo  1/v  absorber       WLUP             99   3  102  1000  Wlup1v"L"
echo  res. part of 1/v                                  1999  Wlupr1v"L"
echo  -1/v absorber                                     2000  Wlup_1v"L"
echo  inv. leth. interv.                                4000  Wlup1u"L"
echo  constant=1 absorber                               3000  Wlup1a"L"
echo.
echo.
echo  * "L"= blank (69 groups)  "L"="x" (172 groups)
echo.
pause
echo.
echo  References:
echo.
echo  JENDL/D-99 : JENDL/D-99: JAERI Nuclear Data Center:
echo               "JENDL Dosimetry File 99 (JENDL/D-99)",
echo               private comunication, 1999
echo.
echo  POINT2000  : UCRL-ID-127776, Rev.1: "A Temperature
echo               Dependent ENDF/D-VI, Release 7 Cross
echo               Section Library" , Dermott E. Cullen,
echo               University of California,
echo               LLNL, November 22, 2000
echo.
echo  PREPRO2002 : "PREPRO2002 : 2002 ENDF/B Pre-processing Codes",
echo                IAEA-NDS-39, Rev. 11, Feb. 5, 2002
echo.
goto END
rem
rem -----------------------------------------------------------
rem
:CONT
rem   Setting environment
rem
rem  notes:  You should check your setwlup.bat procedure
rem          and eventually define correctly the environment
rem          variable WLUP below.
rem
set jwlup=
if .%wlupp%==.   set jwlup=yes
if .%wlupp%==.   set WLUP=\wlup\programs\
if .%wlupp%==.   call %WLUP%setwlup
if .%wlupp%==.   echo Environment setting error !!!
if .%wlupp%==.   goto HELP
if .%wlupd%==.   set wlupd=%wlupi%
rem
rem  Reading input parameters (p1 = 69 or 172, else HELP)
rem
if     %1.==69.  set GRP=69
if     %1.==69.  set NFA=14
if     %1.==69.  set NRE=13
if     %1.==69.  set L=
if     %1.==172. set GRP=172
if     %1.==172. set NFA=45
if     %1.==172. set NRE=47
if     %1.==172. set L=x
if     %GRP%.==. goto HELP
if     %2.==c.   goto CALC
if     %2.==C.   goto CALC
if     %2.==u.   goto UPDAT
if     %2.==U.   goto UPDAT
if     %2.==cu.  goto ALL
if     %2.==CU.  goto ALL
if     %2.==Cu.  goto ALL
if     %2.==cU.  goto ALL
if     %2.==uc.  goto ALL
if     %2.==UC.  goto ALL
if     %2.==Uc.  goto ALL
if     %2.==uC.  goto ALL
echo.
echo ==========================>  Input data error !!!
echo.
goto HELP
rem
rem  Settings to prepare dosimetry materials
rem
:CALC
if not exist %wlupdl%%3dl.dat echo %wlupdl%%3dl.dat library not found
if not exist %wlupdl%%3dl.dat goto END
set elib=%3dl.dat
if     %4.==.    set gpe=
if not %4.==.    set gpe=lst
if     %4.==all. set gpe=all
set ical=yes
set iupd=no
echo %elib% %gpe%
goto START
rem
rem  Settings to update a WIMSD formatted library
rem
:UPDAT
if not exist %wlupl%%3.lib echo %wlupl%%3.lib library not found
if not exist %wlupl%%3.lib goto END
set wlib=%wlupl%%3
set ical=no
set iupd=yes
goto START
rem
rem  Settings for both actions
rem
:ALL
if not exist %wlupdl%%3dl.dat echo %wlupdl%%3dl.dat library not found
if not exist %wlupdl%%3dl.dat goto END
set elib=%3dl.dat
if not exist %wlupl%%3.lib echo %wlupl%%3.lib library not found
if not exist %wlupl%%3.lib goto END
set wlib=%wlupl%%3
if     %4.==.    set gpe=
if not %4.==.    set gpe=lst
if     %4.==all. set gpe=all
set ical=yes
set iupd=yes
:START
if %ical%.==no. goto WLI
rem
rem  Preparing dosimetry materials
rem
echo.
echo Preparing WLUP dosimetry materials ...
echo.
echo NG=%GRP%  NFAST=%NFA% NRES=%NRE% LIBCODE=%L%  IOUT=%gpe%
echo.
rem
rem  Dosimetry materials (reactions)
rem
call %wlupp%dosmat1 %elib% 025055 03 102 %GRP% Mn55ng%L%  1055 %gpe%
call %wlupp%dosmat1 %elib% 026054 03 103 %GRP% Fe54np%L%  1054 %gpe%
call %wlupp%dosmat1 %elib% 026058 03 102 %GRP% Fe58ng%L%  3058 %gpe%
call %wlupp%dosmat1 %elib% 027059 03 102 %GRP% Co59ng%L%  2059 %gpe%
call %wlupp%dosmat1 %elib% 028058 03 103 %GRP% Ni58np%L%  1058 %gpe%
call %wlupp%dosmat1 %elib% 029063 03 102 %GRP% Cu63ng%L%  1063 %gpe%
call %wlupp%dosmat1 %elib% 036084 03 102 %GRP% Kr84ng%L%    84 %gpe%
call %wlupp%dosmat1 %elib% 045103 10 004 %GRP% Rh103ni%L% 2103 %gpe%
call %wlupp%dosmat1 %elib% 049115 10 004 %GRP% In115ni%L% 1115 %gpe%
call %wlupp%dosmat1 %elib% 049115 10 102 %GRP% In115ng%L% 3115 %gpe%
call %wlupp%dosmat1 %elib% 063151 03 102 %GRP% Eu151ng%L% 1151 %gpe%
call %wlupp%dosmat1 %elib% 066164 03 102 %GRP% Dy164ng%L% 1164 %gpe%
call %wlupp%dosmat1 %elib% 071176 03 102 %GRP% Lu176ng%L%  176 %gpe%
call %wlupp%dosmat1 %elib% 079197 03 102 %GRP% Au197ng%L%  197 %gpe%
call %wlupp%dosmat1 %elib% 090232 03 102 %GRP% Th232ng%L% 1232 %gpe%
call %wlupp%dosmat1 %elib% 090232 03 018 %GRP% Th232nf%L% 3232 %gpe%
call %wlupp%dosmat1 %elib% 092235 03 102 %GRP% U235ng%L%  1235 %gpe%
call %wlupp%dosmat1 %elib% 092235 03 018 %GRP% U235nf%L%  1003 %gpe%
call %wlupp%dosmat1 %elib% 092238 03 102 %GRP% U238ng%L%  1238 %gpe%
call %wlupp%dosmat1 %elib% 092238 03 018 %GRP% U238nf%L%  3238 %gpe%
call %wlupp%dosmat1 %elib% 093237 03 018 %GRP% Np237nf%L% 1237 %gpe%
call %wlupp%dosmat1 %elib% 094239 03 018 %GRP% Pu239nf%L% 1239 %gpe%
rem
rem  (n,2n) reaction for major actinides
rem
call %wlupp%dosmat1 %elib% 090232 03 016 %GRP% Th232n2%L% 1632 %gpe%
call %wlupp%dosmat1 %elib% 092233 03 016 %GRP% U233n2%L%  1633 %gpe%
call %wlupp%dosmat1 %elib% 092235 03 016 %GRP% U235n2%L%  1635 %gpe%
call %wlupp%dosmat1 %elib% 092238 03 016 %GRP% U238n2%L%  1638 %gpe%
call %wlupp%dosmat1 %elib% 094239 03 016 %GRP% Pu239n2%L% 1639 %gpe%
call %wlupp%dosmat1 %elib% 094240 03 016 %GRP% Pu240n2%L% 1640 %gpe%
call %wlupp%dosmat1 %elib% 094241 03 016 %GRP% Pu241n2%L% 1641 %gpe%
call %wlupp%dosmat1 %elib% 094242 03 016 %GRP% Pu242n2%L% 1642 %gpe%
rem
rem  WIMSD library special dosimetry materials
rem
rem  C-damage
rem
call %wlupp%dosmat1 %elib% 006000 03 444 %GRP% Cdam%L%    2212 %gpe%
rem
rem  Zr-damage
rem
call %wlupp%dosmat1 %elib% 040000 03 444 %GRP% Zrdam%L%   1091 %gpe%
rem
rem  1/v absorber
rem
call %wlupp%dosmat1 %elib% 000099 03 102 %GRP% Wlup1v%L%  1000 %gpe%
rem
rem  resonance part of 1/v absorber
rem
echo.
echo module wimsie ...
echo %GRP% %NFA% %NRE%                                            >wimsie.inp
echo 1999                                                        >>wimsie.inp
echo -1                                                          >>wimsie.inp
echo %wlupd%Wlupr1v%L%.xsw                                       >>wimsie.inp
echo.                                                            >>wimsie.inp
echo %wlupd%Wlup1v%L%.xsw                                        >>wimsie.inp
%wlupp%wimsie < wimsie.inp
if not %gpe%.==. copy wimsie.lst Wlupr1v%L%.lst
rem
rem  -1/v absorber
rem
echo.
echo module wimsie ...
echo %GRP% %NFA% %NRE%                                            >wimsie.inp
echo 2000                                                        >>wimsie.inp
echo -2                                                          >>wimsie.inp
echo %wlupd%Wlup_1v%L%.xsw                                       >>wimsie.inp
echo.                                                            >>wimsie.inp
echo %wlupd%Wlup1v%L%.xsw                                        >>wimsie.inp
%wlupp%wimsie < wimsie.inp
if not %gpe%.==. copy wimsie.lst Wlup_1v%L%.lst
rem
rem  inverse letarghy intervals
rem
echo.
echo module wimsie ...
echo %GRP% %NFA% %NRE%                                            >wimsie.inp
echo 4000                                                        >>wimsie.inp
echo -3                                                          >>wimsie.inp
echo %wlupd%Wlup1u%L%.xsw                                        >>wimsie.inp
echo.                                                            >>wimsie.inp
echo %wlupi%egb%GRP%.dat                                         >>wimsie.inp
%wlupp%wimsie < wimsie.inp
if not %gpe%.==. copy wimsie.lst Wlup1u%L%.lst
rem
rem  constant = 1  absorber
rem
echo.
echo module wimsie ...
echo %GRP% %NFA% %NRE%                                            >wimsie.inp
echo 3000                                                        >>wimsie.inp
echo -4                                                          >>wimsie.inp
echo %wlupd%Wlup1a%L%.xsw                                        >>wimsie.inp
echo.                                                            >>wimsie.inp
%wlupp%wimsie < wimsie.inp
if not %gpe%.==.    copy wimsie.lst Wlup1a%L%.lst
if exist wimsie.lst  del wimsie.lst
if exist wimsie.inp  del wimsie.inp
:WLI
if %iupd%.==no. goto END
rem
rem  Updating a WIMSD formatted library (dosimetry materials)
rem
echo.
echo Updating library %wlib%.lib for dosimetry materials
echo.
echo.                                                             >wlupdos.wli
echo       WIMS-D Library Update Project                         >>wlupdos.wli
echo       -============================                         >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo       1. Insert WLUP dosimetry materias                     >>wlupdos.wli
echo          ------------------------------                     >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo       Starter file: - a WLUP library renamed as %wlib%.old  >>wlupdos.wli
echo             Action: - include WIMSD dosimetry materials     >>wlupdos.wli
echo       Output file : - an updated library named %wlib%.lib   >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo       Check library integrity                               >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo CHCK                                                        >>wlupdos.wli
echo %wlib%.old                                                  >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
rem
rem  For a new library no deletion is needed
rem  and the WILLIE input section can be omitted
rem
if %GRP%.==172. goto INCL
echo       Delete old dosimetry materials                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 1000                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 1999                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 2000                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 3000                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 4000                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 1003                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 2212                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 1054                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 3058                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 1058                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 2059                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 84                                                          >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 1091                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 2103                                                        >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo 176                                                         >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo DELM                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo 197                                                         >>wlupdos.wli
echo.                                                            >>wlupdos.wli
:INCL
echo       Include dosimetry materials                           >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Wlup1v%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Wlupr1v%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Wlup_1v%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Wlup1a%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Wlup1u%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Cdam%L%.xsw                                          >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Zrdam%L%.xsw                                         >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Mn55ng%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Fe54np%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Fe58ng%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Co59ng%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Ni58np%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Cu63ng%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Kr84ng%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Rh103ni%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%In115ni%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%In115ng%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Eu151ng%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Dy164ng%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Lu176ng%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Au197ng%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Th232ng%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Th232nf%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%U235ng%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%U235nf%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%U238ng%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%U238nf%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Np237nf%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Pu239nf%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Th232n2%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%U233n2%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%U235n2%L%.xsw                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%U238n2%L%.xsw                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Pu239n2%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Pu240n2%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo %wlupd%Pu241n2%L%.xsw                                       >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo INCL                                                        >>wlupdos.wli
echo W1.TMP                                                      >>wlupdos.wli
echo %wlupd%Pu242n2%L%.xsw                                       >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo       Check library integrity                               >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo CHCK                                                        >>wlupdos.wli
echo W2.TMP                                                      >>wlupdos.wli
echo wlupnew.lib                                                 >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo FOBI                                                        >>wlupdos.wli
echo wlupnew.lib                                                 >>wlupdos.wli
echo wlupnew.bin                                                 >>wlupdos.wli
echo.                                                            >>wlupdos.wli
echo END                                                         >>wlupdos.wli
copy %wlib%.lib %wlib%.old
rem
rem  Running willie
rem
if exist wlupnew.lib del  wlupnew.lib
if exist wlupnew.bin del  wlupnew.bin
%wlupp%willie<wlupdos.wli
echo.
echo Final housekeeping
echo.
echo Starting formatted library %wlib%.lib
echo                 renamed as %wlib%.old
if exist wlupnew.lib goto save
echo.
echo WLUPDOSM ERROR - Library update failed
echo.
goto END
:SAVE
echo on
copy wlupnew.lib %wlib%.lib
echo Updated formatted library saved as %wlib%.lib
copy wlupnew.bin %wlib%.bin
echo Updated binary library saved as %wlib%.bin
if exist w1.tmp del w1.tmp
if exist w2.tmp del w2.tmp
if exist wlupdos.wli del wlupdos.wli
if exist wlupnew.lib del wlupnew.lib
if exist wlupnew.bin del wlupnew.bin
echo off
:END
if %jwlup%.==yes.  set WLUP=
if %jwlup%.==yes.  set wlupp=
if %jwlup%.==yes.  set prepro=
if %jwlup%.==yes.  set wimsd=
if %jwlup%.==yes.  set wimsdl=
if %jwlup%.==yes.  set wlupi=
if %jwlup%.==yes.  set wlupl=
set jwlup=
set GRP=
set NFA=
set NRE=
set L=
set ical=
set iupd=
set gpe=
set wlib=
set elib=
*deck wrtdck 
@echo off
rem Write a deck file
rem
rem wrtdck %1 %2 %3 %4
rem %1 source subdirectory
rem %2 filename (without extension)
rem %3 extension
rem %4 merged deck file
rem
    if     exist %4 echo *deck %2 >>%4
    if not exist %4 echo *deck %2  >%4
    type %1%2.%3                  >>%4
*deck wrtsrc 
@echo off
rem prepare *.src file for WLUP
rem
rem wrtsrc %1 %2 %3
rem %1 absolute path of source directory (ending / required)
rem %2 file extension
rem %3 src file
rem
dir /B/ON %1*.%2 >wrtall.lst
for /F "delims=. " %%i in (wrtall.lst) do call %wlupp%wrtdck %1 %%i %2 %3
if exist wrtall.lst del wrtall.lst
