FM816 Program

**********00010816 * FORTRAN 77 00020816 FM816 00030816 * YDLOG - (182) 00040816 00050816 **********00060816 * GENERAL PURPOSE ANS REF 00070816 TEST INTRINSIC FUNCTION DLOG 15.3 00080816 * TABLE 5 00090816 BB* **** BBCCOMNT *****00100816 00110816 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120816 VERSION 2.1 00130816 00140816 00150816 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160816 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170816 SOFTWARE STANDARDS VALIDATION GROUP 00180816 BUILDING 225 RM A266 00190816 GAITHERSBURG, MD 20899 00200816 00210816 00220816 00230816 BE **** BBCCOMNT ******00240816 00250816 * S P E C I F I C A T I O N S SEGMENT 182 00260816 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440816 FOR IDENTIFYING THE TEST ENVIRONMENT 00450816 00460816 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470816 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480816 Z03 ZPROG = 'PROGRAM NAME' 00490816 Z04 ZDATE = 'DATE OF TEST' 00500816 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510816 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520816 Z07 ZNAME = 'NAME OF USER' 00530816 Z08 ZTAPE = 'TAPE OWNER/ID' 00540816 Z09 ZTAPED = 'DATE TAPE COPIED' 00550816 00560816 00850816 WRITE REPORT TITLE 00860816 00870816 00950816 * HEADER FOR SEGMENT 182 00960816 WRITE DETAIL REPORT HEADERS 01020816 01030816 01100816 T001 TEST 1 ONE, SINCE LN(1.0) = 0.0 01110816 * 03130816 BB* **** BBCSUM0 *****03140816 WRITE OUT TEST SUMMARY 03150816 03160816 WRITE OUT REPORT FOOTINGS 03280816 03290816 FORMATS FOR TEST DETAIL LINES 03350816 03360816 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03560816 03570816 FORMAT STATEMENTS FOR PAGE HEADERS 03710816 03720816 03850816 FORMAT STATEMENTS FOR REPORT FOOTINGS 03860816 03870816 03920816 FORMAT STATEMENTS FOR RUN SUMMARY 03930816 03940816 04010816 *** END OF TEST SEGMENT 182 04020816


Contents


Variables

Type AttributesNameInitial
double precision :: AVD

* 00280816 BB* **** BBCINITA *****00290816 SPECIFICATION STATEMENTS 00300816 *** 00310816

double precision :: BVD

* 00280816 BB* **** BBCINITA *****00290816 SPECIFICATION STATEMENTS 00300816 *** 00310816

double precision :: CVD

* 00280816 BB* **** BBCINITA *****00290816 SPECIFICATION STATEMENTS 00300816 *** 00310816

double precision :: DVCORR

* 00280816 BB* **** BBCINITA *****00290816 SPECIFICATION STATEMENTS 00300816 *** 00310816

character :: REMRKS*31

*** INITIALIZE SECTION 00360816

character :: ZCOMPL*20

*** INITIALIZE SECTION 00360816

character :: ZDATE*17

*** INITIALIZE SECTION 00360816

character :: ZNAME*20

*** INITIALIZE SECTION 00360816

character :: ZPROG*5

*** INITIALIZE SECTION 00360816

character :: ZPROJ*13

*** INITIALIZE SECTION 00360816

character :: ZTAPE*10

*** INITIALIZE SECTION 00360816

character :: ZTAPED*13

*** INITIALIZE SECTION 00360816

character :: ZVERS*13

*** INITIALIZE SECTION 00360816

character :: ZVERSD*17

*** INITIALIZE SECTION 00360816