SUBROUTINE VIRTIM ( )

Description
THIS ROUTINE EVALUATES TIME VARIATION OF LONG TERM PREDICTION MAPS
Source file:virtim.f
Intrinsic Functions Called
GENERIC            COS,        SIN
Local Variables (+ indicates altered content)
INTEGER           +I,         +IC(6),     +ISUBA,     +ISUBB
INTEGER           +ISUBC,     +IZ,        +J,         +JB
INTEGER           +KA
REAL              +C(8),      +S(8),      +TIME
Referenced Equivalenced Variables (+ indicates altered content)
EQUIV              REAL               COFION()   Local Var
                   REAL               ESLCOF()   COMMON /ONE/
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               D2R
ONE                INTEGER            IA(6),     IB(6)
ONE                INTEGER            IKIM(10,6)
ONE                REAL               ESLCOF(5,55)
TIME               REAL               GMT
TWO_AB             REAL              +AB(318)