CDPP / AMDA_COTS

Commit 6d733fcb6a9aa7131fdab56e670e5d58c9b29524

Authored by Hacene SI HADJ MOHAND
1 parent 0a6546bc
Exists in master

working

Showing 1 changed file with 3 additions and 3 deletions   Show diff stats
Inline Side-by-side
maglib/src/getmag.f
  Diff comments   View file @6d733fc
... ... @@ -58,7 +58,7 @@ c
58 58 double precision alfag,alfas,deltas,tilt
59 59 double precision tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
60 60 double precision tglc,hsl,clatgmr,clongmr
61   - double precision clatgm,clongm, xlambr
  61 + double precision clatgm,clongm
62 62 double precision year
63 63 c
64 64  
... ... @@ -68,7 +68,7 @@ c
68 68 SAVE rgsmi
69 69 SAVE alfag,alfas,deltas,tilt
70 70 SAVE tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
71   - SAVE tglc,hsl,clatgmr,clongmr,xlambr
  71 + SAVE tglc,hsl,clatgmr,clongmr
72 72 SAVE year
73 73 c
74 74 c ----------------------------
... ... @@ -113,7 +113,7 @@ c
113 113 call posmag(magout,isatex,year,rrmag,thetr,phir,alfag,
114 114 > alfas,deltas,tilt,rgsm,rggsm,rgsmg,rgdip,rgse,
115 115 > tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse,tgl,
116   - > flg,xlambr,tglc,hsl,clatgmr,clongmr,iposmg,ifail)
  116 + > flg,xlamb,tglc,hsl,clatgmr,clongmr,iposmg,ifail)
117 117  
118 118  
119 119 c return
... ...