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,7 +58,7 @@ c
58 double precision alfag,alfas,deltas,tilt 58 double precision alfag,alfas,deltas,tilt
59 double precision tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse 59 double precision tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
60 double precision tglc,hsl,clatgmr,clongmr 60 double precision tglc,hsl,clatgmr,clongmr
61 - double precision clatgm,clongm, xlambr 61 + double precision clatgm,clongm
62 double precision year 62 double precision year
63 c 63 c
64 64
@@ -68,7 +68,7 @@ c @@ -68,7 +68,7 @@ c
68 SAVE rgsmi 68 SAVE rgsmi
69 SAVE alfag,alfas,deltas,tilt 69 SAVE alfag,alfas,deltas,tilt
70 SAVE tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse 70 SAVE tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse
71 - SAVE tglc,hsl,clatgmr,clongmr,xlambr 71 + SAVE tglc,hsl,clatgmr,clongmr
72 SAVE year 72 SAVE year
73 c 73 c
74 c ---------------------------- 74 c ----------------------------
@@ -113,7 +113,7 @@ c @@ -113,7 +113,7 @@ c
113 call posmag(magout,isatex,year,rrmag,thetr,phir,alfag, 113 call posmag(magout,isatex,year,rrmag,thetr,phir,alfag,
114 > alfas,deltas,tilt,rgsm,rggsm,rgsmg,rgdip,rgse, 114 > alfas,deltas,tilt,rgsm,rggsm,rgsmg,rgdip,rgse,
115 > tetdip,phidip,xgsm,ygsm,zgsm,xgse,ygse,zgse,tgl, 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 c return 119 c return