File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1152 |
TIME2FREQ2 |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
526 |
TICK |
NSEC = NSECF(NHMS) + NDT |
./pkg/fizhi/fizhi_clockstuff.F |
528 |
TICK |
IF (NSEC.GT.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
529 |
TICK |
DO WHILE (NSEC.GT.86400) |
./pkg/fizhi/fizhi_clockstuff.F |
530 |
TICK |
NSEC = NSEC - 86400 |
./pkg/fizhi/fizhi_clockstuff.F |
535 |
TICK |
IF (NSEC.EQ.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
536 |
TICK |
NSEC = 0 |
./pkg/fizhi/fizhi_clockstuff.F |
540 |
TICK |
IF (NSEC.LT.00000) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
541 |
TICK |
DO WHILE (NSEC.LT.0) |
./pkg/fizhi/fizhi_clockstuff.F |
542 |
TICK |
NSEC = 86400 + NSEC |
./pkg/fizhi/fizhi_clockstuff.F |
547 |
TICK |
NHMS = NHMSF (NSEC) |
./pkg/fizhi/fizhi_clockstuff.F |
571 |
TIC_TIME |
NSEC = NSECF(NHMS) + NDT |
./pkg/fizhi/fizhi_clockstuff.F |
573 |
TIC_TIME |
IF (NSEC.GT.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
574 |
TIC_TIME |
DO WHILE (NSEC.GT.86400) |
./pkg/fizhi/fizhi_clockstuff.F |
575 |
TIC_TIME |
NSEC = NSEC - 86400 |
./pkg/fizhi/fizhi_clockstuff.F |
580 |
TIC_TIME |
IF (NSEC.EQ.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
581 |
TIC_TIME |
NSEC = 0 |
./pkg/fizhi/fizhi_clockstuff.F |
585 |
TIC_TIME |
IF (NSEC.LT.00000) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
586 |
TIC_TIME |
DO WHILE (NSEC.LT.0) |
./pkg/fizhi/fizhi_clockstuff.F |
587 |
TIC_TIME |
NSEC = 86400 + NSEC |
./pkg/fizhi/fizhi_clockstuff.F |
592 |
TIC_TIME |
NHMS = NHMSF (NSEC) |
./pkg/fizhi/fizhi_clockstuff.F |
661 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
664 |
TIC_TIME |
NTIME = NSEC-NSEC0 |
./pkg/fizhi/fizhi_clockstuff.F |
735 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
738 |
TIC_TIME |
NTIME = NSEC-NSEC0 |
./pkg/chronos/chronos.F |
480 |
TICK |
NSEC = NSECF(NHMS) + NDT |
./pkg/chronos/chronos.F |
482 |
TICK |
IF (NSEC.GT.86400) THEN |
./pkg/chronos/chronos.F |
483 |
TICK |
DO WHILE (NSEC.GT.86400) |
./pkg/chronos/chronos.F |
484 |
TICK |
NSEC = NSEC - 86400 |
./pkg/chronos/chronos.F |
489 |
TICK |
IF (NSEC.EQ.86400) THEN |
./pkg/chronos/chronos.F |
490 |
TICK |
NSEC = 0 |
./pkg/chronos/chronos.F |
494 |
TICK |
IF (NSEC.LT.00000) THEN |
./pkg/chronos/chronos.F |
495 |
TICK |
DO WHILE (NSEC.LT.0) |
./pkg/chronos/chronos.F |
496 |
TICK |
NSEC = 86400 + NSEC |
./pkg/chronos/chronos.F |
501 |
TICK |
NHMS = NHMSF (NSEC) |
./pkg/chronos/chronos.F |
521 |
TIC_TIME |
NSEC = NSECF(NHMS) + NDT |
./pkg/chronos/chronos.F |
523 |
TIC_TIME |
IF (NSEC.GT.86400) THEN |
./pkg/chronos/chronos.F |
524 |
TIC_TIME |
DO WHILE (NSEC.GT.86400) |
./pkg/chronos/chronos.F |
525 |
TIC_TIME |
NSEC = NSEC - 86400 |
./pkg/chronos/chronos.F |
530 |
TIC_TIME |
IF (NSEC.EQ.86400) THEN |
./pkg/chronos/chronos.F |
531 |
TIC_TIME |
NSEC = 0 |
./pkg/chronos/chronos.F |
535 |
TIC_TIME |
IF (NSEC.LT.00000) THEN |
./pkg/chronos/chronos.F |
536 |
TIC_TIME |
DO WHILE (NSEC.LT.0) |
./pkg/chronos/chronos.F |
537 |
TIC_TIME |
NSEC = 86400 + NSEC |
./pkg/chronos/chronos.F |
542 |
TIC_TIME |
NHMS = NHMSF (NSEC) |
./pkg/chronos/chronos.F |
611 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
./pkg/chronos/chronos.F |
614 |
TIC_TIME |
NTIME = NSEC-NSEC0 |