add and use the workspace

This commit is contained in:
Tonton Th
2026-04-25 13:12:16 +02:00
parent 483fa3d13f
commit 5fb1b809e1
5 changed files with 20 additions and 5 deletions

View File

@@ -5,7 +5,7 @@ program starfield
use genplotting
implicit none
write (0, '(A)') "----[ genplotting starfield ]----"
call genp_init (0, 'starfield.scratch')
call genp_init (0, 'WS/starfield.scratch')
call do_starfield (451)
call genp_end (0)
contains