FM814 Program

**********00010814 * FORTRAN 77 00020814 FM814 00030814 * YDEXP - (179) 00040814 00050814 **********00060814 * GENERAL PURPOSE ANS REF 00070814 TEST INTRINSIC FUNCTION DEXP 15.3 00080814 * TABLE 5 00090814 00100814 BB *** BBCCOMNT ******00110814 00120814 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130814 VERSION 2.1 00140814 00150814 00160814 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170814 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180814 SOFTWARE STANDARDS VALIDATION GROUP 00190814 BUILDING 225 RM A266 00200814 GAITHERSBURG, MD 20899 00210814 00220814 00230814 00240814 BE *** BBCCOMNT ******00250814 00260814 * S P E C I F I C A T I O N S SEGMENT 179 00270814 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450814 FOR IDENTIFYING THE TEST ENVIRONMENT 00460814 00470814 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480814 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490814 Z03 ZPROG = 'PROGRAM NAME' 00500814 Z04 ZDATE = 'DATE OF TEST' 00510814 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520814 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530814 Z07 ZNAME = 'NAME OF USER' 00540814 Z08 ZTAPE = 'TAPE OWNER/ID' 00550814 Z09 ZTAPED = 'DATE TAPE COPIED' 00560814 00570814 00860814 WRITE REPORT TITLE 00870814 00880814 00960814 * HEADER FOR SEGMENT 179 00970814 WRITE DETAIL REPORT HEADERS 01030814 01040814 01110814 T001 TEST 1 ZERO, SINCE EXP(0) = 1 01120814 * 03520814 BB* **** BBCSUM0 *****03530814 WRITE OUT TEST SUMMARY 03540814 03550814 WRITE OUT REPORT FOOTINGS 03670814 03680814 FORMATS FOR TEST DETAIL LINES 03740814 03750814 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03950814 03960814 FORMAT STATEMENTS FOR PAGE HEADERS 04100814 04110814 04240814 FORMAT STATEMENTS FOR REPORT FOOTINGS 04250814 04260814 04310814 FORMAT STATEMENTS FOR RUN SUMMARY 04320814 04330814 04400814 * END OF TEST SEGMENT 179 04410814


Calls

program~~fm814~~CallsGraph program~fm814 FM814 dexp dexp program~fm814->dexp

Contents


Variables

Type AttributesNameInitial
double precision :: AVD

* 00290814 BB* **** BBCINITA *****00300814 SPECIFICATION STATEMENTS 00310814 *** 00320814

double precision :: BVD

* 00290814 BB* **** BBCINITA *****00300814 SPECIFICATION STATEMENTS 00310814 *** 00320814

double precision :: DVCORR

* 00290814 BB* **** BBCINITA *****00300814 SPECIFICATION STATEMENTS 00310814 *** 00320814

character :: REMRKS*31

*** INITIALIZE SECTION 00370814

character :: ZCOMPL*20

*** INITIALIZE SECTION 00370814

character :: ZDATE*17

*** INITIALIZE SECTION 00370814

character :: ZNAME*20

*** INITIALIZE SECTION 00370814

character :: ZPROG*5

*** INITIALIZE SECTION 00370814

character :: ZPROJ*13

*** INITIALIZE SECTION 00370814

character :: ZTAPE*10

*** INITIALIZE SECTION 00370814

character :: ZTAPED*13

*** INITIALIZE SECTION 00370814

character :: ZVERS*13

*** INITIALIZE SECTION 00370814

character :: ZVERSD*17

*** INITIALIZE SECTION 00370814