propmo Subroutine

public subroutine propmo(tjd1, pos1, vel1, tjd2, pos2)

THIS SUBROUTINE APPLIES PROPER MOTION, INCLUDING FORESHORTENING EFFECTS, TO A STAR'S POSITION.

 TJD1 = TDB JULIAN DATE OF FIRST EPOCH (IN)
 POS1 = POSITION VECTOR OF STAR AT FIRST EPOCH (IN)
 VEL1 = VELOCITY VECTOR OF STAR AT FIRST EPOCH (IN)
 TJD2 = TDB JULIAN DATE OF SECOND EPOCH (IN)
 POS2 = POSITION VECTOR OF STAR AT SECOND EPOCH (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd1
real(kind=wp), dimension(3) :: pos1
real(kind=wp), dimension(3) :: vel1
real(kind=wp) :: tjd2
real(kind=wp), dimension(3) :: pos2

Called by

proc~~propmo~~CalledByGraph proc~propmo novas_module::propmo proc~place novas_module::place proc~place->proc~propmo proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place

Source Code

subroutine propmo (tjd1,pos1,vel1,tjd2,pos2)

real(wp) :: tjd1,pos1,vel1,tjd2,pos2
dimension pos1(3), vel1(3), pos2(3)

do j=1,3
    pos2(j) = pos1(j) + vel1(j) * (tjd2 - tjd1)
end do

end subroutine propmo