File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1137 |
TIME2FREQ2 |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
512 |
TICK |
NSEC = NSECF(NHMS) + NDT |
./pkg/fizhi/fizhi_clockstuff.F |
514 |
TICK |
IF (NSEC.GT.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
515 |
TICK |
DO WHILE (NSEC.GT.86400) |
./pkg/fizhi/fizhi_clockstuff.F |
516 |
TICK |
NSEC = NSEC - 86400 |
./pkg/fizhi/fizhi_clockstuff.F |
521 |
TICK |
IF (NSEC.EQ.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
522 |
TICK |
NSEC = 0 |
./pkg/fizhi/fizhi_clockstuff.F |
526 |
TICK |
IF (NSEC.LT.00000) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
527 |
TICK |
DO WHILE (NSEC.LT.0) |
./pkg/fizhi/fizhi_clockstuff.F |
528 |
TICK |
NSEC = 86400 + NSEC |
./pkg/fizhi/fizhi_clockstuff.F |
533 |
TICK |
NHMS = NHMSF (NSEC) |
./pkg/fizhi/fizhi_clockstuff.F |
557 |
TIC_TIME |
NSEC = NSECF(NHMS) + NDT |
./pkg/fizhi/fizhi_clockstuff.F |
559 |
TIC_TIME |
IF (NSEC.GT.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
560 |
TIC_TIME |
DO WHILE (NSEC.GT.86400) |
./pkg/fizhi/fizhi_clockstuff.F |
561 |
TIC_TIME |
NSEC = NSEC - 86400 |
./pkg/fizhi/fizhi_clockstuff.F |
566 |
TIC_TIME |
IF (NSEC.EQ.86400) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
567 |
TIC_TIME |
NSEC = 0 |
./pkg/fizhi/fizhi_clockstuff.F |
571 |
TIC_TIME |
IF (NSEC.LT.00000) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
572 |
TIC_TIME |
DO WHILE (NSEC.LT.0) |
./pkg/fizhi/fizhi_clockstuff.F |
573 |
TIC_TIME |
NSEC = 86400 + NSEC |
./pkg/fizhi/fizhi_clockstuff.F |
578 |
TIC_TIME |
NHMS = NHMSF (NSEC) |
./pkg/fizhi/fizhi_clockstuff.F |
647 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
650 |
TIC_TIME |
NTIME = NSEC-NSEC0 |
./pkg/fizhi/fizhi_clockstuff.F |
721 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
./pkg/fizhi/fizhi_clockstuff.F |
724 |
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 |