Symbol Description Uses
FAC 55


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 965 ASTRO 
           FAC = KM-EQNX
./pkg/fizhi/fizhi_clockstuff.F 967 ASTRO 
           T1 = FUN(T0         )*FAC
./pkg/fizhi/fizhi_clockstuff.F 968 ASTRO 
           T2 = FUN(ZERO+T1/TWO)*FAC
./pkg/fizhi/fizhi_clockstuff.F 969 ASTRO 
           T3 = FUN(ZERO+T2/TWO)*FAC
./pkg/fizhi/fizhi_clockstuff.F 970 ASTRO 
           T4 = FUN(ZERO+T3    )*FAC
./pkg/fizhi/fizhi_clockstuff.F 996 ASTRO 
      FAC   = FLOAT(SEC)/DAYLEN
./pkg/fizhi/fizhi_clockstuff.F 997 ASTRO 
      THNOW = THM*(ONE-FAC) + THP*FAC