|
24 | 24 | !do not apply to the original software distribution.
|
25 | 25 |
|
26 | 26 | !5. Redistribution of this source code, including any modifications, may
|
27 |
| -!not be intentionally obfuscated. |
| 27 | +! not be intentionally obfuscated. |
28 | 28 |
|
29 | 29 | !6. Other code may make use of this software, in whole or in part, without
|
30 | 30 | !restriction, provided that it does not apply any restriction to this
|
|
37 | 37 | !CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
38 | 38 | !EXEMPLARARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
39 | 39 | !PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
40 |
| -!OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
| 40 | +! OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
41 | 41 | !WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
42 | 42 | !OTHERWISE), ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
43 | 43 | !ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
44 | 44 |
|
45 | 45 | Module random_number_utils
|
46 | 46 |
|
47 |
| -! Define user procedures here. Currently contains factorial, binomial |
48 |
| -! coefficients, gamma functions for non F2008 compilers, an l2norm |
49 |
| -! wrapper to replace norm2, andfunctions for determining if |
50 |
| -! two real values are numerically almost equal, within a tolerance |
51 |
| -! or almost zero. |
| 47 | +! Some random number generation utilities. |
52 | 48 |
|
53 | 49 | USE ISO_FORTRAN_ENV, ONLY: DP=>REAL64, INT32
|
54 | 50 |
|
|
0 commit comments