Symbol Description Uses
FUN 30


File Line number Procedure Code
./pkg/chronos/chronos.F 758 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4)
./pkg/chronos/chronos.F 767 ASTRO 
      FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN)
./pkg/chronos/chronos.F 791 ASTRO 
           T1 = FUN(T0         )*FAC
./pkg/chronos/chronos.F 792 ASTRO 
           T2 = FUN(ZERO+T1/TWO)*FAC
./pkg/chronos/chronos.F 793 ASTRO 
           T3 = FUN(ZERO+T2/TWO)*FAC
./pkg/chronos/chronos.F 794 ASTRO 
           T4 = FUN(ZERO+T3    )*FAC
./pkg/chronos/chronos.F 798 ASTRO 
           T1 = FUN(TH(KM)       )
./pkg/chronos/chronos.F 799 ASTRO 
           T2 = FUN(TH(KM)+T1/TWO)
./pkg/chronos/chronos.F 800 ASTRO 
           T3 = FUN(TH(KM)+T2/TWO)
./pkg/chronos/chronos.F 801 ASTRO 
           T4 = FUN(TH(KM)+T3    )
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 936 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4)
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 945 ASTRO 
      FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN)
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 969 ASTRO 
           T1 = FUN(T0         )*FAC
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 970 ASTRO 
           T2 = FUN(ZERO+T1/TWO)*FAC
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 971 ASTRO 
           T3 = FUN(ZERO+T2/TWO)*FAC
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 972 ASTRO 
           T4 = FUN(ZERO+T3    )*FAC
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 976 ASTRO 
           T1 = FUN(TH(KM)       )
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 977 ASTRO 
           T2 = FUN(TH(KM)+T1/TWO)
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 978 ASTRO 
           T3 = FUN(TH(KM)+T2/TWO)
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F 979 ASTRO 
           T4 = FUN(TH(KM)+T3    )
./pkg/fizhi/fizhi_clockstuff.F 934 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4)
./pkg/fizhi/fizhi_clockstuff.F 943 ASTRO 
      FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN)
./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 974 ASTRO 
           T1 = FUN(TH(KM)       )
./pkg/fizhi/fizhi_clockstuff.F 975 ASTRO 
           T2 = FUN(TH(KM)+T1/TWO)
./pkg/fizhi/fizhi_clockstuff.F 976 ASTRO 
           T3 = FUN(TH(KM)+T2/TWO)
./pkg/fizhi/fizhi_clockstuff.F 977 ASTRO 
           T4 = FUN(TH(KM)+T3    )