Skip to content

Commit

Permalink
added test60
Browse files Browse the repository at this point in the history
  • Loading branch information
@kahlerac
kahlerac committed Jul 13, 2020
1 parent 6979fcf commit 24ef7a1
Show file tree
Hide file tree
Showing 8 changed files with 2,337 additions and 3 deletions.
2 changes: 0 additions & 2 deletions src/broadr.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -256,8 +256,6 @@ subroutine broadr
thnmx=0.9999_kr*emax
call mess('broadr','reset thnmx to just less than input file''s emax','')
endif
!!! if (abs(thnmx).ge.0.9999*emax) call error('broadr',&
!!! 'max. energy is too large for this input file','')
!--jump to the end of mf1/mt451
call tosend(nendf,0,0,scr)
!--read input file nu-bar, if present
Expand Down
2 changes: 1 addition & 1 deletion src/vers.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,6 @@ module version
! These values are updated during the NJOY revision-control process.
implicit none
private
character(8),public::vers='2016.60'
character(8),public::vers='2016.58'
character(8),public::vday='08Jul20'
end module version
14 changes: 14 additions & 0 deletions tests/60/CMakeLists.txt
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
configure_file("${CMAKE_CURRENT_SOURCE_DIR}/input"
"${CMAKE_CURRENT_BINARY_DIR}/input" COPYONLY )

configure_file("${CMAKE_CURRENT_SOURCE_DIR}/referenceTape31"
"${CMAKE_CURRENT_BINARY_DIR}/referenceTape31" COPYONLY )
configure_file("${CMAKE_CURRENT_SOURCE_DIR}/referenceTape32"
"${CMAKE_CURRENT_BINARY_DIR}/referenceTape32" COPYONLY )

configure_file("${RESOURCES}/n-026_Fe_000-IRDFF-II.endf"
"${CMAKE_CURRENT_BINARY_DIR}/tape20" COPYONLY )

add_test( NAME "Test60"
COMMAND ${PYTHON_EXECUTABLE} "../execute.py"
WORKING_DIRECTORY "${CMAKE_CURRENT_BINARY_DIR}" )
88 changes: 88 additions & 0 deletions tests/60/input
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,88 @@
--
-- Sample input file provided by Larry Greenwood (PNNL) for
-- processing IRDFF-II files through GROUPR and ERRORR.
--
-- - modified to stop after GROUPR ... rename as inp1
--
moder
20 -21 /
reconr
-21 -22 /
'PENDF for data from IRDF2' /
2600 /
.10 /
0 /
broadr / Doppler broaden XS
-21 -22 -23 /
2600 1 0 0 293.6 /
0.001 6.0e+7 0.003 /
300. /
0 /
groupr / Prepare multigroup XS
-21 -23 0 31 /
2600 1 0 2 0 1 1 1 /
'Fe Reactions' /
300. /
1.e+10 /
140 /
1.0000E-04 1.0000E-03 1.0000E-02 2.3000E-02 5.0000E-02 7.6000E-02 1.1500E-01
1.7000E-01 2.5500E-01 3.8000E-01 5.5000E-01 8.4000E-01 1.2750E+00 1.9000E+00
2.8000E+00 4.2500E+00 6.3000E+00 9.2000E+00 1.3500E+01 2.1000E+01 3.0000E+01
4.5000E+01 6.9000E+01 1.0000E+02 1.3500E+02 1.7000E+02 2.2000E+02 2.8000E+02
3.6000E+02 4.5000E+02 5.7500E+02 7.6000E+02 9.6000E+02 1.2750E+03 1.6000E+03
2.0000E+03 2.7000E+03 3.4000E+03 4.5000E+03 5.5000E+03 7.2000E+03 9.2000E+03
1.2000E+04 1.5000E+04 1.9000E+04 2.5500E+04 3.2000E+04 4.0000E+04 5.2500E+04
6.6000E+04 8.8000E+04 1.1000E+05 1.3500E+05 1.6000E+05 1.9000E+05 2.2000E+05
2.5500E+05 2.9000E+05 3.2000E+05 3.6000E+05 4.0000E+05 4.5000E+05 5.0000E+05
5.5000E+05 6.0000E+05 6.6000E+05 7.2000E+05 7.8000E+05 8.4000E+05 9.2000E+05
1.0000E+06 1.2000E+06 1.4000E+06 1.6000E+06 1.8000E+06 2.0000E+06 2.3000E+06
2.6000E+06 2.9000E+06 3.3000E+06 3.7000E+06 4.1000E+06 4.5000E+06 5.0000E+06
5.5000E+06 6.0000E+06 6.7000E+06 7.4000E+06 8.2000E+06 9.0000E+06 1.0000E+07
1.1000E+07 1.2000E+07 1.3000E+07 1.4000E+07 1.5000E+07 1.6000E+07 1.7000E+07
1.8000E+07 1.9000E+07 2.0000E+07 2.1000E+07 2.2000E+07 2.3000E+07 2.4000E+07
2.5000E+07 2.6000E+07 2.7000E+07 2.8000E+07 2.9000E+07 3.0000E+07 3.1000E+07
3.2000E+07 3.3000E+07 3.4000E+07 3.5000E+07 3.6000E+07 3.7000E+07 3.8000E+07
3.9000E+07 4.0000E+07 4.1000E+07 4.2000E+07 4.3000E+07 4.4000E+07 4.5000E+07
4.6000E+07 4.7000E+07 4.8000E+07 4.9000E+07 5.0000E+07 5.1000E+07 5.2000E+07
5.3000E+07 5.4000E+07 5.5000E+07 5.6000E+07 5.7000E+07 5.8000E+07 5.9000E+07
6.0000E+07 /
10 /
0 /
0 /
groupr / Prepare multigroup XS
-21 -23 0 32 /
2600 1 0 2 0 1 1 1 /
'Fe Reactions' /
300.0 /
1.e+10 /
140 /
1.0000E-04 1.0000E-03 1.0000E-02 2.3000E-02 5.0000E-02 7.6000E-02 1.1500E-01
1.7000E-01 2.5500E-01 3.8000E-01 5.5000E-01 8.4000E-01 1.2750E+00 1.9000E+00
2.8000E+00 4.2500E+00 6.3000E+00 9.2000E+00 1.3500E+01 2.1000E+01 3.0000E+01
4.5000E+01 6.9000E+01 1.0000E+02 1.3500E+02 1.7000E+02 2.2000E+02 2.8000E+02
3.6000E+02 4.5000E+02 5.7500E+02 7.6000E+02 9.6000E+02 1.2750E+03 1.6000E+03
2.0000E+03 2.7000E+03 3.4000E+03 4.5000E+03 5.5000E+03 7.2000E+03 9.2000E+03
1.2000E+04 1.5000E+04 1.9000E+04 2.5500E+04 3.2000E+04 4.0000E+04 5.2500E+04
6.6000E+04 8.8000E+04 1.1000E+05 1.3500E+05 1.6000E+05 1.9000E+05 2.2000E+05
2.5500E+05 2.9000E+05 3.2000E+05 3.6000E+05 4.0000E+05 4.5000E+05 5.0000E+05
5.5000E+05 6.0000E+05 6.6000E+05 7.2000E+05 7.8000E+05 8.4000E+05 9.2000E+05
1.0000E+06 1.2000E+06 1.4000E+06 1.6000E+06 1.8000E+06 2.0000E+06 2.3000E+06
2.6000E+06 2.9000E+06 3.3000E+06 3.7000E+06 4.1000E+06 4.5000E+06 5.0000E+06
5.5000E+06 6.0000E+06 6.7000E+06 7.4000E+06 8.2000E+06 9.0000E+06 1.0000E+07
1.1000E+07 1.2000E+07 1.3000E+07 1.4000E+07 1.5000E+07 1.6000E+07 1.7000E+07
1.8000E+07 1.9000E+07 2.0000E+07 2.1000E+07 2.2000E+07 2.3000E+07 2.4000E+07
2.5000E+07 2.6000E+07 2.7000E+07 2.8000E+07 2.9000E+07 3.0000E+07 3.1000E+07
3.2000E+07 3.3000E+07 3.4000E+07 3.5000E+07 3.6000E+07 3.7000E+07 3.8000E+07
3.9000E+07 4.0000E+07 4.1000E+07 4.2000E+07 4.3000E+07 4.4000E+07 4.5000E+07
4.6000E+07 4.7000E+07 4.8000E+07 4.9000E+07 5.0000E+07 5.1000E+07 5.2000E+07
5.3000E+07 5.4000E+07 5.5000E+07 5.6000E+07 5.7000E+07 5.8000E+07 5.9000E+07
6.0000E+07 /
40240510 5 '(n,x) 24051 production'/
40250540 5 '(n,x) 25054 production'/
40250560 5 '(n,x) 25056 production'/
40260530 5 '(n,x) 26053 production'/
0 /
0 /
--
--
stop
Loading

0 comments on commit 24ef7a1

Please sign in to comment.