! POSITION: Position information. integer(kind=4), parameter :: class_sec_pos_id=-3 integer(kind=4), parameter :: class_sec_pos_len=17 type position sequence integer(kind=4) :: sourc(3) ! [ ] Source name real(kind=4) :: epoch ! [ ] Epoch of coordinates real(kind=8) :: lam ! [rad] Lambda real(kind=8) :: bet ! [rad] Beta real(kind=4) :: lamof ! [rad] Offset in Lambda real(kind=4) :: betof ! [rad] Offset in Beta integer(kind=4) :: proj ! [rad] Projection system real(kind=8) :: sl0p ! [rad] lambda of descriptive system real(kind=8) :: sb0p ! [rad] beta of descriptive system real(kind=8) :: sk0p ! [rad] angle of descriptive system end type position