diff --git a/linkedlist.f90 b/linkedlist.f90 index 4c033af..bc48999 100644 --- a/linkedlist.f90 +++ b/linkedlist.f90 @@ -158,5 +158,4 @@ end function list_get ! logical :: a ! if - end module linkedlist diff --git a/randnormal.f90 b/randnormal.f90 index f339485..b280f13 100644 --- a/randnormal.f90 +++ b/randnormal.f90 @@ -12,7 +12,7 @@ function GaussDeviate() if (.not. iset) then do while (r >= 1) - ! gerar números aleatórios entre -1 e 1 + ! Generate random numbers between -1 e 1 call random_seed() call random_number(a1) call random_number(a2) @@ -20,7 +20,7 @@ function GaussDeviate() a2 = 2*a2-1 r = a1**2 + a2**2 end do - s = sqrt(-2*log(r)/r) !transformação polar + s = sqrt(-2*log(r)/r) ! polar transformation b1 = a1*s b2 = a2*s iset = .true.