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