corrected typo in the prime number function

This commit is contained in:
Christoph Kords 2009-06-29 15:29:07 +00:00
parent a6ccfe2e44
commit 2e783df5ed
1 changed files with 76 additions and 77 deletions

View File

@ -1911,7 +1911,6 @@ math_sampleFiberOri = math_RtoEuler(math_mul33x33(pRot,math_mul33x33(fRot,oRot))
ENDSUBROUTINE
subroutine halton_ndim_set ( ndim )
!
!*******************************************************************************
@ -2195,7 +2194,7 @@ math_sampleFiberOri = math_RtoEuler(math_mul33x33(pRot,math_mul33x33(fRot,oRot))
1597, 1601, 1607, 1609, 1613, 1619, 1621, 1627, 1637, 1657, &
1663, 1667, 1669, 1693, 1697, 1699, 1709, 1721, 1723, 1733, &
1741, 1747, 1753, 1759, 1777, 1783, 1787, 1789, 1801, 1811, &
91823, 1831, 1847, 1861, 1867, 1871, 1873, 1877, 1879, 1889, &
1823, 1831, 1847, 1861, 1867, 1871, 1873, 1877, 1879, 1889, &
1901, 1907, 1913, 1931, 1933, 1949, 1951, 1973, 1979, 1987 /)
npvec(301:400) = (/ &