Merge pull request #109 from paulromano/leapr-docfix

Clarify LEAPR card 4 documentation

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
-

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