tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

renaming a func

Browse Source
This commit is contained in:
tTh 2024-01-25 19:13:45 +01:00
parent 34da09281e
commit bf487c389c
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
BloubWorld/bloubspace.f90
View File

@ -17,6 +17,7 @@ module bloubspace
real :: vx, vy, vz real :: vx, vy, vz
real :: radius real :: radius
integer :: age, agemax integer :: age, agemax
integer :: red, green, blue
end type t_bloubs end type t_bloubs
type t_boundingbox type t_boundingbox
@ -37,7 +38,7 @@ module bloubspace
integer :: fd, errcode integer :: fd, errcode
character(200) :: message character(200) :: message
print *, "try to load ", infile print *, "try to load ", infile, " name ", name
! put some default values ! put some default values
where%id = "default" where%id = "default"
@ -68,7 +69,7 @@ module bloubspace
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
subroutine random_pv (blb) subroutine make_a_random_bloub(blb)
type(t_bloubs), intent (out) :: blb type(t_bloubs), intent (out) :: blb
blb%px = 3.57 * (rand() - 0.50) blb%px = 3.57 * (rand() - 0.50)

2
BloubWorld/genbloubs.f90
View File

@ -33,7 +33,7 @@ program genbloubs
bloub%nick = 'noname ' bloub%nick = 'noname '
bloub%num = i + 41 bloub%num = i + 41
call random_pv(bloub) call make_a_random_bloub(bloub)
bloub%radius = 0.035 + (0.03*rand()) bloub%radius = 0.035 + (0.03*rand())
write(idu) bloub ! no error control ? write(idu) bloub ! no error control ?

2
BloubWorld/movebloubs.f90
View File

@ -127,7 +127,7 @@ contains
do foo=1, count do foo=1, count
bloub%nick = 'newbie ' bloub%nick = 'newbie '
call random_pv(bloub) call make_a_random_bloub(bloub)
bloub%radius = rayon + (0.15*rand()) bloub%radius = rayon + (0.15*rand())
bloub%age = 1 bloub%age = 1
bloub%alive = .TRUE. bloub%alive = .TRUE.