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
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 :: radius
integer :: age, agemax
integer :: red, green, blue
end type t_bloubs
type t_boundingbox
@@ -37,7 +38,7 @@ module bloubspace
integer :: fd, errcode
character(200) :: message
print *, "try to load ", infile
print *, "try to load ", infile, " name ", name
! put some default values
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
blb%px = 3.57 * (rand() - 0.50)