REAL FUNCTION CNGTIM ( TIME, XTHETA, ISW )

Argument Definitions (+ indicates altered content)
INTEGER            ISW
REAL              +TIME,       XTHETA
Description
///////////////////////////////////////////// 
 
IF ISW=1 
THIS FUNCTION CONVERTS UNIVERSAL TIME (TIME GREATER THAN 
OR EQUAL TO ZERO BUT LESS THAN 24) IN HOURS TO LOCAL TIME 
AT LOCAL REFRENCE LONGITUDE (THETA GREATER THAN OR EQUAL 
TO ZERO AND LESS THAN OR EQUAL TO 360 DEGREES) IN DEGREES EAST 
 
 
IF ISW=-1 
THIS FUNCTION CONVERTS LOCAL TIME (TIME GREATER THAN 
OR EQUAL TO ZERO BUT LESS THAN 24) 
AT LOCAL REFRENCE LONGITUDE (THETA GREATER THAN OR EQUAL 
TO ZERO AND LESS THAN OR EQUAL TO 360 DEGREES) IN DEGREES EAST 
TO UNIVERSAL TIME 
 
 
FUNCTION VALUE IS ZERO IF THERE IS NO DAY CHANGE 
 
FUNCTION VALUE IS 1 IF THE DAY SHOULD BE ADVANCED 
 
FUNCTION VALUE IS -1 IF THE DAY SHOULD BE RETARDED 
 
/////////////////////////////////////////////
Source file:cngtim.f
Local Variables (+ indicates altered content)
INTEGER           +INT1,      +INT2
REAL              +FINT1,     +FINT2,     +FISW,      +THETA