JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implementing output for injects. Cleaning code

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-01 16:19:16 +02:00
commit 04cd9dffc6
10 changed files with 283 additions and 169 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/modules/common/moduleRandom.f90
View file

@ -53,7 +53,7 @@ MODULE moduleRandom
implicit none
real(8):: rnd
real(8):: v1, v2, Rsquare
real(8):: v1, v2
v1 = 0.d0
do while (v1 <= 0.d0)