From 7e118c426743ddc33e3afe28a11d4eaa310dab05 Mon Sep 17 00:00:00 2001 From: Wesley Cota Date: Wed, 29 Nov 2017 21:38:12 -0200 Subject: [PATCH] Update mod_random.f90 Thomas Vojta reference --- mod_random.f90 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/mod_random.f90 b/mod_random.f90 index 891c75e..98cc307 100644 --- a/mod_random.f90 +++ b/mod_random.f90 @@ -33,6 +33,11 @@ ! This code is available at ! For pure Python, see ! For NetworkX library, see (NetworkX implementation) +! +! IMPORTANT: +! THIS CODE WAS MODIFIED FROM http://web.mst.edu/~vojtat/class_5403/kiss05/rkiss05.f90 +! ! FORTRAN implementation by Thomas Vojta, vojta@mst.edu +! ! built on a module found at www.fortran.com ! Solution to ifort and gfortran !DEC$ IF(.FALSE.) @@ -145,4 +150,4 @@ subroutine random_ini() return end subroutine -end module \ No newline at end of file +end module