@@ -276,15 +276,15 @@ subroutine write_generated_outputs(unit_out, example_dir, example_name)
276276 if (extension == ' mp4' ) then
277277 ! Embed video using HTML
278278 write (unit_out, ' (A)' ) ' <video width="800" height="600" controls>'
279- write (unit_out, ' (A)' ) ' <source src="example/' // trim (example_name) // ' /' // &
279+ write (unit_out, ' (A)' ) ' <source src="../../ example/' // trim (example_name) // ' /' // &
280280 trim (media_files(j)) // ' " type="video/mp4">'
281281 write (unit_out, ' (A)' ) ' Your browser does not support the video tag.'
282282 write (unit_out, ' (A)' ) ' </video>'
283283 write (unit_out, ' (A)' ) ' '
284- write (unit_out, ' (A)' ) ' [Download MP4](example/' // trim (example_name) // ' /' // trim (media_files(j)) // ' )'
284+ write (unit_out, ' (A)' ) ' [Download MP4](../../ example/' // trim (example_name) // ' /' // trim (media_files(j)) // ' )'
285285 else
286286 ! Regular image
287- write (unit_out, ' (A)' ) ' ' ) '  // ' /' // trim (media_files(j)) // ' )'
289289 write (unit_out, ' (A)' ) ' '
290290
@@ -310,7 +310,7 @@ subroutine write_generated_outputs(unit_out, example_dir, example_name)
310310 end if
311311
312312 ! Add PDF link
313- write (unit_out, ' (A)' ) ' [Download PDF](example/' // trim (example_name) // ' /' // &
313+ write (unit_out, ' (A)' ) ' [Download PDF](../../ example/' // trim (example_name) // ' /' // &
314314 trim (replace_extension(media_files(j), ' pdf' )) // ' )'
315315 end if
316316 write (unit_out, ' (A)' ) ' '
@@ -338,7 +338,7 @@ subroutine process_image_path(line, example_name)
338338 filename = filename(index (filename, ' /' , back= .true. )+ 1 :)
339339 end if
340340 ! Replace with relative path to example directory
341- new_path = ' example/' // trim (example_name) // ' /' // trim (filename)
341+ new_path = ' ../../ example/' // trim (example_name) // ' /' // trim (filename)
342342 line = line(1 :start_pos+1 ) // trim (new_path) // ' )'
343343 end if
344344 end if
0 commit comments