comments

g7fernandes · Jan 14, 2020 · 2640a62 · 2640a62
1 parent 75f83bb
commit 2640a62
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -12,15 +12,15 @@ 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)
                 a1 = 2*a1-1            
                 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.
Original file line number	Diff line number	Diff line change
Expand Up		@@ -158,5 +158,4 @@ end function list_get
		! logical :: a
		! if


		end module linkedlist