From db3d729ae0b4d3822666d9082ead7f0fe053139f Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 25 Oct 2018 18:27:12 -0400 Subject: [PATCH 1/2] Clarify LEAPR card 4 documentation --- src/leapr.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/leapr.f90 b/src/leapr.f90 index 8233f729..be120de9 100644 --- a/src/leapr.f90 +++ b/src/leapr.f90 @@ -131,7 +131,7 @@ subroutine leapr ! card 4 - endf output control ! mat endf mat number ! za 1000*z+a for principal scatterer - ! isabt sab type (0=s, 1=ss, def=0) + ! isabt sab type (0=symmetric, 1=asymmetric, def=0) ! ilog log flag (0=s, 1=log10(s), def=0) ! smin minimum S(alpha, beta) stored in file (def=1e-75) ! @@ -2415,7 +2415,7 @@ real(kr) function terpk(ska,nka,delta,be) real(kr)::bt,btp terpk=1 - if (be.gt.nka*delta) return + if (be.gt.nka*delta) return i=int(be/delta) if (i.lt.nka-1) then bt=i*delta @@ -3584,4 +3584,3 @@ subroutine endout(ntempr,bragg,nedge,maxb,scr,mscr,isym,ilog) end subroutine endout end module leapm - From 0eabd1264383b8080ac8a83c229de060801f7f2b Mon Sep 17 00:00:00 2001 From: Wim Haeck Date: Mon, 19 Nov 2018 10:12:28 -0700 Subject: [PATCH 2/2] Updated version and date --- src/vers.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/vers.f90 b/src/vers.f90 index 1ab9ed60..74be2d7d 100644 --- a/src/vers.f90 +++ b/src/vers.f90 @@ -3,7 +3,7 @@ module version ! These values are updated during the NJOY revision-control process. implicit none private - character(8),public::vers='2016.45' - character(8),public::vday='13Nov18' + character(8),public::vers='2016.46' + character(8),public::vday='19Nov18' end module version