erot Subroutine

public subroutine erot(date1, date2, theta)

THIS SUBROUTINE RETURNS THE VALUE OF THE EARTH ROTATION ANGLE (THETA) FOR A GIVEN UT1 JULIAN DATE. THE EXPRESSION USED IS TAKEN FROM THE NOTE TO IAU RESOLUTION B1.8 OF 2000.

DATE1  = HIGH-ORDER PART OF UT1 JULIAN DATE (IN)
DATE2  = LOW-ORDER PART OF UT1 JULIAN DATE (IN)
THETA  = EARTH ROTATION ANGLE IN DEGREES (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: date1
real(kind=wp) :: date2
real(kind=wp) :: theta

Called by

proc~~erot~~CalledByGraph proc~erot novas_module::erot proc~celter novas_module::celter proc~celter->proc~erot proc~sidtim novas_module::sidtim proc~celter->proc~sidtim proc~sidtim->proc~erot proc~tercel novas_module::tercel proc~tercel->proc~erot proc~tercel->proc~sidtim proc~geopos novas_module::geopos proc~geopos->proc~sidtim proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel proc~place novas_module::place proc~place->proc~geopos proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place