tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

moving a subroutine

Browse Source
This commit is contained in:
tth 2022-04-04 19:40:04 +02:00
parent c45658e181
commit 15cb51c6bc
2 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Fraktalism/evolvopick.f90
View File

@ -60,20 +60,5 @@ program evolvopick
enddo 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 end program evolvopick

11
Fraktalism/fraktals.f90
View File

@ -151,7 +151,18 @@ end subroutine lorentz_0
!----------------------------------------------------------- !-----------------------------------------------------------
! -- some support functions -- ! -- 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) function dist0 (x, y)