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

naptime reached

Browse Source
This commit is contained in:
tTh
2026-09-20 10:47:43 +02:00
parent d7da858380
commit d8e3d1c01b
12 changed files with 35 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BloubWorld/bloubspace.f90
+4 -4
View File
@@ -104,7 +104,7 @@ module bloubspace
end subroutine
! ----------------------------------------------------------------
! Load a blbs file into an array of bloubs
! Write an array of bloubs
subroutine spit_bloubs_to_file (fname, blbarray, towrite)
implicit none
@@ -139,12 +139,12 @@ module bloubspace
enddo
close(output)
write(0, '(1X, "spitted ", I0, " bloubs to ", A)') &
write(0, '(1X, "spitted ", I6, " bloubs to ", A)') &
spitted, trim(fname)
end subroutine spit_bloubs_to_file
! ----------------------------------------------------------------
! Dump an array of bloubs to a blbs file.
! Read an array of bloubs from a blbs file.
!
subroutine slurp_bloubs_file_in_array (infile, blbarray, nbread)
implicit none
@@ -323,7 +323,7 @@ module bloubspace
implicit none
type(t_bloubs), intent (inout) :: blb
if (blb%age .gt. 240) then
if (blb%age .gt. 280) then
blb%alive = .FALSE.
endif