CDPP / AMDA_COTS

Commit 34bec60902f1ea829c92f8b29dc2a9f9a849a225

Authored by Benjamin Renard
1 parent e5e3990a
Exists in master

Fix strange bug with step function (#8041)

Showing 3 changed files with 3 additions and 3 deletions   Show diff stats
Inline Side-by-side
maglib/src/dconjr.f
  Diff comments   View file @34bec60
@@ -336,7 +336,7 @@ c -------------------------------------------------- @@ -336,7 +336,7 @@ c --------------------------------------------------
336 c*FON Integration pas a pas par appels successifs a step 336 c*FON Integration pas a pas par appels successifs a step
337 c -------------------------------------------------- 337 c --------------------------------------------------
338 c 338 c
339 - call step(magin,magout,indgm,indval,year,tilt, 339 + call step_fix(magin,magout,indgm,indval,year,tilt,
340 > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5) 340 > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5)
341 c 341 c
342 tx(np) = x1 342 tx(np) = x1
maglib/src/econjr.f
  Diff comments   View file @34bec60
@@ -323,7 +323,7 @@ c -------------------------------------------------- @@ -323,7 +323,7 @@ c --------------------------------------------------
323 c*FON Integration pas a pas par appels successifs a step 323 c*FON Integration pas a pas par appels successifs a step
324 c -------------------------------------------------- 324 c --------------------------------------------------
325 c 325 c
326 - call step(magin,magout,indgm,indval,year,tilt, 326 + call step_fix(magin,magout,indgm,indval,year,tilt,
327 > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5) 327 > rggsm,rgsmg,x1,x2,x3,ds,errin,ier5)
328 c 328 c
329 c --------------------------------------------------- 329 c ---------------------------------------------------
maglib/src/step.f
  Diff comments   View file @34bec60
1 - subroutine step (magin,magout,indgm,indval,year,tilt, 1 + subroutine step_fix (magin,magout,indgm,indval,year,tilt,
2 > rggsm,rgsmg,x,y,z,ds,errin,ier) 2 > rggsm,rgsmg,x,y,z,ds,errin,ier)
3 c* 3 c*
4 c*********************************************************************** 4 c***********************************************************************