From d9491cc5f996db94a89e788044c65d68a8816eb8 Mon Sep 17 00:00:00 2001 From: tth Date: Wed, 16 Feb 2022 14:29:29 +0100 Subject: [PATCH] need more work :) --- BloubWorld/povstuff.f90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/BloubWorld/povstuff.f90 b/BloubWorld/povstuff.f90 index f7dad59..c356525 100644 --- a/BloubWorld/povstuff.f90 +++ b/BloubWorld/povstuff.f90 @@ -22,6 +22,13 @@ module povstuff ! ---------------------------------------------------------------- + subroutine start_of_inc_file (fd) + integer, intent (in) :: fd + + write(fd, '(A)') "// DON'T EDIT THIS FILE !" + + end subroutine + ! ---------------------------------------------------------------- ! we need some primitives for the gestion of colors. ! may be a small database indexed by name ?