Skip to content

Commit d7eabc6

Browse files
author
rweed
authored
Update random_number_utils.f90
1 parent 50b6872 commit d7eabc6

File tree

1 file changed

+3
-7
lines changed

1 file changed

+3
-7
lines changed

random_number_utils/random_number_utils.f90

+3-7
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,7 @@
2424
!do not apply to the original software distribution.
2525

2626
!5. Redistribution of this source code, including any modifications, may
27-
!not be intentionally obfuscated.
27+
! not be intentionally obfuscated.
2828

2929
!6. Other code may make use of this software, in whole or in part, without
3030
!restriction, provided that it does not apply any restriction to this
@@ -37,18 +37,14 @@
3737
!CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
3838
!EXEMPLARARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
3939
!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,
4141
!WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
4242
!OTHERWISE), ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
4343
!ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
4444

4545
Module random_number_utils
4646

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.
5248

5349
USE ISO_FORTRAN_ENV, ONLY: DP=>REAL64, INT32
5450

0 commit comments

Comments
 (0)