From 34bec60902f1ea829c92f8b29dc2a9f9a849a225 Mon Sep 17 00:00:00 2001 From: Benjamin Renard Date: Thu, 28 Oct 2021 09:00:32 +0200 Subject: [PATCH] Fix strange bug with step function (#8041) --- maglib/src/dconjr.f | 2 +- maglib/src/econjr.f | 2 +- maglib/src/step.f | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/maglib/src/dconjr.f b/maglib/src/dconjr.f index e82c31d..62c1d71 100755 --- a/maglib/src/dconjr.f +++ b/maglib/src/dconjr.f @@ -336,7 +336,7 @@ c -------------------------------------------------- c*FON Integration pas a pas par appels successifs a step c -------------------------------------------------- c - call step(magin,magout,indgm,indval,year,tilt, + call step_fix(magin,magout,indgm,indval,year,tilt, > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5) c tx(np) = x1 diff --git a/maglib/src/econjr.f b/maglib/src/econjr.f index a5b770a..6043d47 100755 --- a/maglib/src/econjr.f +++ b/maglib/src/econjr.f @@ -323,7 +323,7 @@ c -------------------------------------------------- c*FON Integration pas a pas par appels successifs a step c -------------------------------------------------- c - call step(magin,magout,indgm,indval,year,tilt, + call step_fix(magin,magout,indgm,indval,year,tilt, > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5) c c --------------------------------------------------- diff --git a/maglib/src/step.f b/maglib/src/step.f index 6185cf8..acb135d 100755 --- a/maglib/src/step.f +++ b/maglib/src/step.f @@ -1,4 +1,4 @@ - subroutine step (magin,magout,indgm,indval,year,tilt, + subroutine step_fix (magin,magout,indgm,indval,year,tilt, > rggsm,rgsmg,x,y,z,ds,errin,ier) c* c*********************************************************************** -- libgit2 0.21.2