add and use the workspace
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user