19 CHARACTER (len=100) :: filename
20 INTEGER :: num_cl_args
26 IF (num_cl_args .lt. 1)
THEN
27 CALL err_fatal(
'Expected wout filename for argument.')
30 CALL getarg(1, filename)
32 CALL read_wout_file(filename, status)
33 CALL assert_eq(0, status,
'Failed to load wout file ' // filename)
35 IF (filename(1:5) .eq.
'wout_')
THEN
36 filename = trim(filename(6:len_trim(filename)))
39 i = index(filename,
'.nc', back=.true.)
42 filename = filename(1:i - 1)
45 CALL write_wout_text(filename, status)
46 CALL assert_eq(0, status,
'Failed to write wout file')