From 15cb51c6bc4567bd7a4933812712f583e601c3bc Mon Sep 17 00:00:00 2001 From: tth Date: Mon, 4 Apr 2022 19:40:04 +0200 Subject: [PATCH] moving a subroutine --- Fraktalism/evolvopick.f90 | 15 --------------- Fraktalism/fraktals.f90 | 11 +++++++++++ 2 files changed, 11 insertions(+), 15 deletions(-) diff --git a/Fraktalism/evolvopick.f90 b/Fraktalism/evolvopick.f90 index 2acf693..f09f870 100644 --- a/Fraktalism/evolvopick.f90 +++ b/Fraktalism/evolvopick.f90 @@ -60,20 +60,5 @@ program evolvopick enddo !----------------------------------------------------- - contains - - - - subroutine interp4dp (ina, inb, out, dpk) - double precision, dimension(4), intent(in) :: ina, inb - double precision, dimension(4), intent(out) :: out - double precision, intent(in) :: dpk - integer :: foo - - do foo=1, 4 - out(foo) = (ina(foo) * (1.0-dpk)) + (inb(foo) * (dpk)) - enddo - - end subroutine end program evolvopick diff --git a/Fraktalism/fraktals.f90 b/Fraktalism/fraktals.f90 index ab73f96..76ff7c6 100644 --- a/Fraktalism/fraktals.f90 +++ b/Fraktalism/fraktals.f90 @@ -151,7 +151,18 @@ end subroutine lorentz_0 !----------------------------------------------------------- ! -- some support functions -- !----------------------------------------------------------- +! usage : evolvopick + subroutine interp4dp (ina, inb, out, dpk) + double precision, dimension(4), intent(in) :: ina, inb + double precision, dimension(4), intent(out) :: out + double precision, intent(in) :: dpk + integer :: foo + do foo=1, 4 + out(foo) = (ina(foo) * (1.0-dpk)) + (inb(foo) * (dpk)) + enddo + + end subroutine !----------------------------------------------------------- function dist0 (x, y)