Commitb28f5b9

committed

alpha-5

1 parent120b939 commitb28f5b9Copy full SHA for b28f5b9

File tree

-5

lines changed

-5

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,6 @@ MODULE ElsetRecMod`
`2`	`2`
`3`	`3`	`TYPEElsetRec`
`4`	`4`	`INTEGER*4 whichconst`
`5`		`-INTEGER*4 satnum`
`6`	`5`	`INTEGER*4 epochyr`
`7`	`6`	`INTEGER*4 epochtynumrev`
`8`	`7`	`INTEGER*4 error`
`@@ -29,6 +28,7 @@ MODULE ElsetRecMod`
`29`	`28`	`! // sgp4fix add new variables from tle`
`30`	`29`	`CHARACTER classification`
`31`	`30`	`CHARACTER*12 intldesg`
	`31`	`+CHARACTER*5 satID`
`32`	`32`	`INTEGER*4 ephtype`
`33`	`33`	`INTEGER*8 elnum`
`34`	`34`	`INTEGER*8 revnum`

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@ MODULE TLEMOD`
`7`	`7`	`CHARACTER*70 line1`
`8`	`8`	`CHARACTER*70 line2`
`9`	`9`	`CHARACTER*12 intlid`
`10`		`-INTEGER*4 objectNum`
	`10`	`+CHARACTER*5 objectID`
`11`	`11`	`INTEGER*8 epoch`
`12`	`12`	`REAL*8 ndot`
`13`	`13`	`REAL*8 nddot`
`@@ -60,7 +60,7 @@ SUBROUTINE setValsToRec(tle, rec)`
`60`	`60`
`61`	`61`	`rec%elnum= tle%elnum`
`62`	`62`	`rec%revnum= tle%revnum`
`63`		`- rec%satnum= tle%objectNum`
	`63`	`+ rec%satID= tle%objectID`
`64`	`64`	`rec%bstar= tle%bstar`
`65`	`65`	`rec%inclo= tle%incDeg*deg2rad`
`66`	`66`	`rec%nodeo= tle%raanDeg*deg2rad`
`@@ -139,7 +139,7 @@ SUBROUTINE parseLines(tle, line1, line2)`
`139`	`139`
`140`	`140`	`tle%rec%classification=line1(8:8)`
`141`	`141`
`142`		`- tle%objectNum=int(gd(line1,2,7))`
	`142`	`+ tle%objectID= line1(3:8)`
`143`	`143`
`144`	`144`	`tle%ndot= gdi(line1,35,44)`
`145`	`145`	`if(line1(34:34).EQ.'-')then`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -117,7 +117,7 @@ SUBROUTINE runVER(verins, cnt)`
`117`	`117`	`cnt2= cnt2+1`
`118`	`118`
`119`	`119`	`if(rdist.GT.1e-7.OR. vdist.GT.1e-8)then`
`120`		`-print*,tle%objectNum,mins,rdist,vdist`
	`120`	`+print*,tle%objectID,mins,rdist,vdist`
`121`	`121`	`end if`
`122`	`122`
`123`	`123`	`end if`

Comments

(0)