Fix strange bug with step function (#8041)

Benjamin Renard
1 parent e5e3990a
Showing 3 changed files with 3 additions and 3 deletions Show diff stats
maglib/src/dconjr.f
maglib/src/econjr.f
maglib/src/step.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
@@ -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     ---------------------------------------------------
-      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***********************************************************************