26-may-2003 06: 54: 04 cpmej90all. For;1


Download 1.4 Mb.
Name26-may-2003 06: 54: 04 cpmej90all. For;1
page7/20
A typeDocumentation
manual-guide.com > manual > Documentation
1   2   3   4   5   6   7   8   9   10   ...   20

** I*4 DIM2 1444 1453 1454(2) 1458(2)

1-00000050 I*2 FILLQF 1460D 1487 1508

REG-######## I*4 I 1478= 1486 1488 1489 1492 1493 1502= 1507

1509 1510 1513 1514 1539= 1540

2-00000BA0 I*2 IBYTE 1461 1486A 1487 1507A 1508

** I*4 ITYPE 1445 1477

** I*4 LIM1 1444 1453 1478 1502

** I*4 LIM2 1444 1453 1478 1502

REG-00000028 R*4 MAXVAL 1455 1476= 1493(2)= 1514(2)= 1532

REG-00000026 R*4 MINVAL 1455 1475= 1492(2)= 1513(2)= 1530

REG-00000023 R*4 NUMCNT 1454 1472= 1490(2)= 1511(2)= 1523 1526

** I*4 SLOT 1444 1453 1524 1526 1528 1530 1532 1540

1543 1544

** I*4 SUBSCR 1444 1453 1486 1488 1489 1492 1493 1509

1510 1513 1514

REG-00000024 R*4 UNCERT 1454 1473= 1489(2)= 1510(2)= 1528


SUMIT 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 41

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
ARRAYS
Address Type Name Attributes Bytes Dimensions References
15-00000A50 R*4 ALBAPS COMM 32 (8) 1449 1450

15-00000014 R*4 ALBDAT COMM 2620 (131, 5) 1449 1450 1524= 1526= 1528= 1530=

1532= 1540= 1543= 1544=

15-00000A70 R*4 ALBEPH COMM 132 (33) 1449 1450

2-00000B98 L*1 BYTES 2 (2) 1459

** L*1 QF ** (*, *) 1444 1458 1486

** R*4 RATE ** (*, *) 1444 1454 1488 1492 1493 1509

1513 1514

** L*1 SQF ** (*) 1445 1458 1507

** R*4 UNC ** (*, *) 1444 1454 1489 1510


LABELS
Address Label References
4-00001038 50 1478 1487 1494#

4-0000104C 70 1477 1501#

4-000010DC 75 1502 1508 1515#

4-000010EC 80 1495 1522#

4-00001118 100 1523 1538#

4-00000000 110 1539 1541#

4-0000113C 200 1534 1546#

FUNCTIONS AND SUBROUTINES REFERENCED
Type Name References
BYTTOINT 1486 1507
SUMIT 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 42

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1549

1550 SUBROUTINE AVERGE(ALBNO,EOFFLG,BRI,*)

1551 C

1552 INTEGER ALBNO,EOFFLG,BRI

1553 C

1554 C IF "MAIN" ENCOUNTERED AN END OF FILE ON THE INPUT TAPE, PASS

1555 C THE FLAG "EOFFLG" TO "AD2AVS" IMMEDIATELY. "AD2AVS" WILL

1556 C THEN COMPUTE A PARTIAL AVERAGE.

1557 C

1558 C Ignore ERRSET, because it is not compatible with VMS Fortran

1559 C and it seems to allow overflow in exponents, which was decided

1560 C not to be allowed.

1561 C CALL ERRSET(207,256,-1,1)

1562 C CALL ERRSET(208,256,-1,1)

1563 IF( EOFFLG .EQ. 1) GO TO 50

1564 C

1565 CALL VECTOR(ALBNO,*100)

1566 C

1567 50 CONTINUE

1568 CALL AD2AVS(EOFFLG,BRI,*100)

1569 C

1570 C RETURN NORMALLY HERE, SINCE A NORMAL RETURN FROM "AD2AVS"

1571 C MEANS THAT THE AVERAGING INTERVAL IS OVER.

1572 C

1573 RETURN

1574 C

1575 C ALTERNATE RETURN--AVERAGE IS NOT OVER, OR NO DATA FOR

1576 C CURRENT ALBUM.

1577 C

1578 100 CONTINUE

1579 RETURN 1

1580 C

1581 END
AVERGE 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 43

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1


PROGRAM SECTIONS
Name Bytes Attributes
1 $DATA$ 716 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA

2 $BSS$ 15664 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC *32

3 $IODATA$ 4580 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA

4 $CODE$ 42104 PIC CON REL LCL SHR EXE NORD NOWRT NOSEC OCTA

5 $LINK$ 2224 NOPIC CON REL LCL NOSHR NOEXE RD NOWRT NOSEC OCTA
Total Space Allocated 65288

ENTRY POINTS
Address Type Name References
4-000011A0 AVERGE 1550#

VARIABLES
Address Type Name Attributes References
** I*4 ALBNO 1550 1552 1565A

** I*4 BRI 1550 1552 1568A

** I*4 EOFFLG 1550 1552 1563 1568A

LABELS
Address Label References
4-000011F0 50 1563 1567#

** 100 1565 1568 1578#

FUNCTIONS AND SUBROUTINES REFERENCED
Type Name References
AD2AVS 1568

VECTOR 1565
AVERGE 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 44

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1582

1583 SUBROUTINE AD2AVS(EOFFLG,BRI,*)

1584 C

1585 COMMON /MSDATA/MIDYR,MIDDAY,MIDMIL,MIDSC,MIDPSC,

1586 * AVDATA(131,4),AVAPPS(8),EPHEMR(33),EXTRA(330)

1587 REAL AVDATA,AVAPPS,EPHEMR,EXTRA

1588 INTEGER MIDYR,MIDDAY,MIDMIL,MIDSC,MIDPSC

1589 C

1590 COMMON /LINEAR/ALBYR,ALBDAY,ALBMIL,ALBSC,ALBPSC,

1591 * ALBDAT(131,5),ALBAPS(8),ALBEPH(33)

1592 REAL ALBDAT,ALBAPS,ALBEPH

1593 INTEGER ALBYR,ALBDAY,ALBMIL,ALBSC,ALBPSC

1594 C

1595 REAL SUMDAT(131,5),SUMEPH(33),SUMAPS(8),NUMAPS(8)

1596 INTEGER SUMYR,SUMDAY,SUMMIL,SUMSC,SUMPSC

1597 INTEGER EOFFLG,BRI,FTI/0/,MA/131/,BEGTIM,ENDTIM,PAGTIM/20480/,

1598 * BIAS,SCBIAS

1599 REAL LSTAPS(8)

1600 DATA LSTAPS/8*0.0/

1601

1602 C Initialize variables - uninitialized error in IBM

1603 BEGTIM = 0

1604 NUMALB = 0

1605 LASTSC = 0

1606 SUMPSC = 0

1607 SUMSC = 0

1608 C

1609 C AT END OF FILE THERE IS A PARTIAL(POSSIBLY WHOLE) SUM

1610 C IN SUMDAT. CHECK FOR THIS CONDITION AND COMPUTE

1611 C AVERAGES IMMEDIATELY IF NECESSARY.

1612 C

1613 IF(EOFFLG .NE. 0) GO TO 200

1614 C

1615 C FIST TIME ENTERED ?

1616 C

1617 C Ignore ERRSET, because it is not compatible with VMS Fortran

1618 C and it seems to allow overflow in exponents, which was decided

1619 C not to be allowed.

1620 C CALL ERRSET(207,256,-1,1)

1621 C CALL ERRSET(208,256,-1,1)

1622 IF( FTI .NE. 0) GO TO 50

1623 C

1624 C YES, THIS IS THE FIRST TIME.

1625 C

1626 FTI = 1

1627 LASTSC = ALBSC

1628 C

1629 DO 20 I=1,MA

1630 DO 18 J=1,3

1631 SUMDAT(I,J) = 0.0

1632 18 CONTINUE

1633 C SUMDAT(I,4) = 1.E70

1634 SUMDAT(I,4) = 1.E32 ! VAX limit

1635 SUMDAT(I,5) = -1.0

1636 20 CONTINUE

1637 C

1638 C INITIALIZE APP'S
AD2AVS 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 45

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1639 C

1640 DO 25 I=1,8

1641 SUMAPS(I) = 0.0

1642 NUMAPS(I) = 0.0

1643 25 CONTINUE

1644 C

1645 C INITIALIZE TIMES TO FIRST AVAILABLE TIME IN AVERAGING INTERVAL.

1646 C

1647 SUMYR = ALBYR

1648 SUMDAY = ALBDAY

1649 SUMMIL = ALBMIL

1650 SUMSC = ALBSC

1651 SUMPSC = ALBPSC

1652 C

1653 C START OF NORMAL FLOW. SEE IF THE ALBUM IS IN CURRENT INTERVAL

1654 C BY USING LAST VALUE OF S/C CLOCK AND THE NUMBER OF ALBUMS IN THE

1655 C INTERVAL,NUMALB = 1(LBR); = 4(HBR)

1656 C

1657 50 CONTINUE

1658 NUMALB = 4

1659 IF( BRI .EQ. 1 ) NUMALB = 1

1660 C

1661 C N64 IS THE NUMBER OF SEQUENCES IN THE AVERAGE INTERVAL.

1662 C

1663 N64 = NUMALB*64

1664 C

1665 C TRUNCATE S/C CLOCK TO BEGINNING OF INTERVAL.

1666 C

1667 BEGTIM = N64*(LASTSC/N64)

1668 ENDTIM = BEGTIM + N64 - 64

1669 C

1670 C IS THIS S/C CLOCK IN THE INTERVAL?

1671 C

1672 IF( ALBSC .GT. ENDTIM ) GO TO 200

1673 C

1674 C IF S/C IS BEFORE BEGTIM THEN IT HAS RESET, JUMPING BACKWARDS.

1675 C IT SHOULD CONTINUE TO INCREASE FROM NEW VALUE. SO, DEFINE

1676 C NEXT AVERAGE INTERVAL RELATIVE TO NEW S/C CLOCK.

1677 C

1678 IF( ALBSC .LT. BEGTIM ) GO TO 200

1679 C

1680 C IT IS IN THE INTERVAL

1681 C

1682 LASTSC = ALBSC

1683 C

1684 DO 60 I=1,MA

1685 SUMDAT(I,1) = ALBDAT(I,1) + SUMDAT(I,1)

1686 SUMDAT(I,2) = ALBDAT(I,2)+SUMDAT(I,2)

1687 SUMDAT(I,3) = ALBDAT(I,3) + SUMDAT(I,3)

1688 SUMDAT(I,4) = AMIN1(SUMDAT(I,4),ALBDAT(I,4) )

1689 SUMDAT(I,5) = AMAX1(SUMDAT(I,5),ALBDAT(I,5) )

1690 60 CONTINUE

1691 C

1692 C IF NUMBER OF ALBUMS IN AVERAGE IS 1(LBR) SAVE THIS EPHEMERIS;

1693 C OTHERWISE(=4), SAVE EPHEMERIS UNTIL THE FOURTH ALBUM IS REACHED.

1694 C HERE, THE THIRD ALBUM'S EPHEMERIS IS NORMALLY SAVED, UNLESS

1695 C IT IS MISSING, IN WHICH CASE ALBUM 2 OR ALBUM 1 IS USED.
AD2AVS 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 46

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1696 C

1697 IF(NUMALB .EQ. 1) GO TO 65

1698 C

1699 IF( ALBSC .EQ. ENDTIM) GO TO 75

1700 65 CONTINUE

1701 C

1702 DO 70 I=1,33

1703 SUMEPH(I) = ALBEPH(I)

1704 70 CONTINUE

1705 C

1706 75 CONTINUE

1707 C

1708 C SUM APP'S. REMEMBER THAT ONLY 4 APP'S ARE READ OUT IN AN ALBUM.

1709 C VECTOR HAS FLAGGED THESE WITH "-99" ALONG WITH ANY OF THE OTHER

1710 C 4 HAVING BAD QUALITY.

1711 C

1712 DO 80 I=1,8

1713 IF( ALBAPS(I) .EQ. -99.0) GO TO 80

1714 C

1715 C*** MAYBE DON'T AVERAGE ALBAPS(7)---"GAIN ID."

1716 C

1717 SUMAPS(I) = SUMAPS(I) + ALBAPS(I)

1718 NUMAPS(I) = NUMAPS(I) + 1.0

1719 80 CONTINUE

1720 C

1721 C END OF SECTION THAT ADDS TO INTERVAL; ALTERNATE RETURN.

1722 C

1723 RETURN 1

1724 C

1725 C

1726 C

1727 C

1728 C END OF AVERAGE INTERVAL.

1729 C

1730 200 CONTINUE

1731 LASTSC = ALBSC

1732 DO 210 I=1,MA

1733 IF( SUMDAT(I,2) .LT. 1.0 ) GO TO 205

1734 AVDATA(I,1) = SUMDAT(I,1)/SUMDAT(I,2)

1735 AVDATA(I,2) = SUMDAT(I,2)

1736 IF (SUMDAT(I,3))205,2205,2205

1737 2205 CONTINUE

1738 AVDATA(I,3) = SQRT(SUMDAT(I,3))/SUMDAT(I,2)

1739 AVDATA(I,4) = SUMDAT(I,5) - SUMDAT(I,4)

1740 GO TO 208

1741 C

1742 C NO DATA FOR THIS CHANNEL.

1743 C

1744 205 CONTINUE

1745 DO 206 J=1,4

1746 AVDATA(I,J) = 0.

1747 206 CONTINUE

1748 C

1749 C SET SUMDAT FOR NEXT INTERVAL TO CURRENT ALBDAT.

1750 C

1751 208 CONTINUE

1752 DO 209 J=1,5
AD2AVS 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 47

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1753 SUMDAT(I,J) = ALBDAT(I,J)

1754 209 CONTINUE

1755 210 CONTINUE

1756 C

1757 C SET EPHEMERIS

1758 C

1759 DO 220 I=1,33

1760 EPHEMR(I) = SUMEPH(I)

1761 SUMEPH(I) = ALBEPH(I)

1762 220 CONTINUE

1763 C

1764 C SET TIME CORRESPONDING TO MIDDLE OF AVERAGING INTERVAL.

1765 C SUMTIMES HAVE BEEN SET TO THE FIRST TIMES ENCOUNTERED IN THE

1766 C INTERVAL. THIS CAN BE ANY PAGE(4 PER ALBUM) OF ANY ALBUM.

1767 C

1768 IT1 = BEGTIM/16

1769 IT2 = SUMSC/16

1770 C

1771 C IT3 IS THE NUMBER OF PAGES FROM THE BEGINNING OF THE INTERVAL.

1772 C

1773 IT3 = IT2 - IT1

1774 C

1775 C PAGTIM IS THE ACCUMULATION TIME FOR A TELEMETRY PAGE

1776 C AT HBR. (MILLISECS)

1777 C

1778 BIAS = IT3*PAGTIM

1779 C

1780 C "NUMALB" ADJUSTS THE S/C CLOCK BIAS ACCORDING TO BIT RATE

1781 C

1782 SCBIAS = 32*NUMALB

1783 C

1784 C IF LBR,PAGE TIME IS 4 TIMES AS LONG.

1785 C

1786 IF( BRI .EQ. 1) BIAS= BIAS*4

1787 C

1788 C MID TIME = (SUMTIME - BIAS) + .5(AVERAGE PERIOD)

1789 C = BEGIN TIME + 163.8 SECONDS

1790 C

1791 ITEMP= - BIAS + 163840

1792 C

1793 CALL DATMOD(SUMYR,SUMDAY,SUMMIL,ITEMP)

1794 MIDYR = SUMYR

1795 MIDDAY = SUMDAY

1796 MIDMIL = SUMMIL

1797 C

1798 MIDSC = BEGTIM + SCBIAS

1799 MIDPSC = (SUMPSC - IT3*16) + SCBIAS

1800 C

1801 C SET SUMTIMES TO ALBUM TIMES.

1802 C

1803 SUMYR = ALBYR

1804 SUMDAY = ALBDAY

1805 SUMMIL = ALBMIL

1806 SUMSC = ALBSC

1807 SUMPSC = ALBPSC

1808 C

1809 C COMPUTE AVERAGE APP'S. IF "SUMAPS" DOESN'T HAVE A VALUE IN IT FOR
AD2AVS 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 48

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1
1810 C ANY APP THEN USE THE LAST VALUE. AT LOW BIT RATE THIS WILL

1811 C OCCUR FOR AT LEAST HALF OF THE APP'S.

1812 C

1813 DO 240 I=1,8

1814 IF( NUMAPS(I) .EQ. 0.0 ) GO TO 225

1815 AVAPPS(I) = SUMAPS(I)/NUMAPS(I)

1816 LSTAPS(I) = AVAPPS(I)

1817 GO TO 230

1818 C

1819 225 CONTINUE

1820 AVAPPS(I) = LSTAPS(I)

1821 230 CONTINUE

1822 C

1823 C IF VALUE OF I-TH APP IN ALBUM APP'S IS MARKED AS NOT AVAILABLE,

1824 C THEN SET SUMAPS(I) TO 0.

1825 C

1826 IF(ALBAPS(I) .EQ. -99.0) GO TO 235

1827 SUMAPS(I) = ALBAPS(I)

1828 NUMAPS(I) = 1.0

1829 GO TO 240

1830 C

1831 235 CONTINUE

1832 SUMAPS(I) = 0.

1833 NUMAPS(I) = 0.

1834 C

1835 240 CONTINUE

1836 C

1837 C END OF SECTION THAT COMPUTES AVERAGES. RETURN NORMALLY

1838 C

1839 RETURN

1840 END
AD2AVS 3-JUN-2003 08:04:46 Digital Fortran 77 V7.0-6 Page 49

Symbol Table 26-MAY-2003 06:54:04 CPMEJ90ALL.FOR;1


PROGRAM SECTIONS
Name Bytes Attributes
1 $DATA$ 716 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA

2 $BSS$ 15664 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC *32

3 $IODATA$ 4580 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA

4 $CODE$ 42104 PIC CON REL LCL SHR EXE NORD NOWRT NOSEC OCTA

5 $LINK$ 2224 NOPIC CON REL LCL NOSHR NOEXE RD NOWRT NOSEC OCTA

11 MSDATA 3600 NOPIC OVR REL GBL NOSHR NOEXE RD WRT NOSEC OCTA

15 LINEAR 2804 NOPIC OVR REL GBL NOSHR NOEXE RD WRT NOSEC OCTA
Total Space Allocated 71692

ENTRY POINTS
Address Type Name References
4-00001228 AD2AVS 1583#

VARIABLES
Address Type Name Attributes References
15-00000004 I*4 ALBDAY COMM 1590 1593 1648 1804

15-00000008 I*4 ALBMIL COMM 1590 1593 1649 1805

15-00000010 I*4 ALBPSC COMM 1590 1593 1651 1807

15-0000000C I*4 ALBSC COMM 1590 1593 1627 1650 1672 1678 1682 1699

1731 1806

15-00000000 I*4 ALBYR COMM 1590 1593 1647 1803

REG-00000004 I*4 BEGTIM 1597 1603= 1667= 1668 1678 1768 1798

REG-00000011 I*4 BIAS 1598 1778= 1786(2)= 1791

** I*4 BRI 1583 1597 1659 1786

1   2   3   4   5   6   7   8   9   10   ...   20

Related:

26-may-2003 06: 54: 04 cpmej90all. For;1 iconResearch has confirmed that a good sense of humor is an important...

26-may-2003 06: 54: 04 cpmej90all. For;1 iconReport 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconUses for FrontPage 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconLast Updated: 14-May-2003

26-may-2003 06: 54: 04 cpmej90all. For;1 icon2003-2007 cummins 9L

26-may-2003 06: 54: 04 cpmej90all. For;1 iconFrom TravelWeekly. Com©, August 4, 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconMicrosoft Office Outlook 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconPeace and Love Ritual 2003-02-24

26-may-2003 06: 54: 04 cpmej90all. For;1 iconUser Manual April 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 icon2003 Honda Accord Overview

26-may-2003 06: 54: 04 cpmej90all. For;1 iconArsenic lullabies june 2003 #3

26-may-2003 06: 54: 04 cpmej90all. For;1 iconA narcissus Publications Imprint, Skopje 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 icon© 1977, 1998, 2003 by Colleen McCullough

26-may-2003 06: 54: 04 cpmej90all. For;1 iconUser’s Guide September 23, 2003 Introduction

26-may-2003 06: 54: 04 cpmej90all. For;1 iconUser manual belgrade, July 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconHyundai Accent 2003-2004 Pump

26-may-2003 06: 54: 04 cpmej90all. For;1 iconFor the Fiscal Year Ended December 31, 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconInformation Centre Guide May 2003 introduction

26-may-2003 06: 54: 04 cpmej90all. For;1 iconThis page was last updated on Tuesday, April 29, 2003

26-may-2003 06: 54: 04 cpmej90all. For;1 iconA narcissus Publications Imprint, Skopje 2003




manual


When copying material provide a link © 2017
contacts
manual-guide.com
search