subroutine green_soylent in actio

This commit is contained in:
tth
2022-02-08 18:56:51 +01:00
parent 6094e29efd
commit c35c00e3da
9 changed files with 88 additions and 53 deletions

View File

@@ -31,7 +31,7 @@ program genbloubs
bloub%nick = 'noname '
bloub%alive = .TRUE.
call random_pv(bloub)
bloub%radius = 0.030
bloub%radius = 0.025
bloub%seq = 0
write(idu) bloub ! no error control ?