From 6d733fcb6a9aa7131fdab56e670e5d58c9b29524 Mon Sep 17 00:00:00 2001
From: Hacene SI HADJ MOHAND <hacene.si-hadj-mohand@akka.eu>
Date: Mon, 10 Aug 2020 14:05:37 +0200
Subject: [PATCH] working

---
 maglib/src/getmag.f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/maglib/src/getmag.f b/maglib/src/getmag.f
index 8136a02..2125c39 100755
--- a/maglib/src/getmag.f
+++ b/maglib/src/getmag.f
@@ -58,7 +58,7 @@ c
       double precision alfag,alfas,deltas,tilt
       double precision tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
       double precision tglc,hsl,clatgmr,clongmr
-      double precision clatgm,clongm, xlambr
+      double precision clatgm,clongm
       double precision year
 c
 
@@ -68,7 +68,7 @@ c
       SAVE rgsmi
       SAVE alfag,alfas,deltas,tilt
       SAVE tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
-      SAVE tglc,hsl,clatgmr,clongmr,xlambr
+      SAVE tglc,hsl,clatgmr,clongmr
       SAVE year
 c
 c     ----------------------------
@@ -113,7 +113,7 @@ c
          call posmag(magout,isatex,year,rrmag,thetr,phir,alfag,
      >               alfas,deltas,tilt,rgsm,rggsm,rgsmg,rgdip,rgse,
      >               tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse,tgl,
-     >               flg,xlambr,tglc,hsl,clatgmr,clongmr,iposmg,ifail)
+     >               flg,xlamb,tglc,hsl,clatgmr,clongmr,iposmg,ifail)
 
 
 c      return
--
libgit2 0.21.2