Commit be3cb123 authored Feb 03, 2021 by Caneses Marin, Juan Francisco

Moved Interp1 to MoveParticlePack.f90 so that it does not become global. Later...

Moved Interp1 to MoveParticlePack.f90 so that it does not become global. Later need to remove the padding and "tt" index

parent a0c383e3

src/Modules.f90

+0 −9

Original line number	Diff line number	Diff line
		@@ -114,15 +114,6 @@ CONTAINS

		END SUBROUTINE ComputeSpline

		FUNCTION Interp1(xq, spline0)
		IMPLICIT NONE
		TYPE(splTYP) :: spline0
		REAL(r8) :: xq, Interp1, curv2

		Interp1 = curv2(xq,spline0%n,spline0%x,spline0%y,spline0%yp,spline0%sigma)

		END FUNCTION Interp1

		FUNCTION diff1(xq, spline0)
		IMPLICIT NONE
		TYPE(splTYP) :: spline0

src/MoveParticlePack.f90

+9 −0

Original line number	Diff line number	Diff line
		@@ -426,3 +426,12 @@ SUBROUTINE loadParticles(zp0,kep0,xip0,in0)

		return
		END SUBROUTINE loadParticles

		FUNCTION Interp1(xq, spline0)
		IMPLICIT NONE
		TYPE(splTYP) :: spline0
		REAL(r8) :: xq, Interp1, curv2

		Interp1 = curv2(xq,spline0%n,spline0%x,spline0%y,spline0%yp,spline0%sigma)

		END FUNCTION Interp1