FM806 Program

**********00010806 * FORTRAN 77 00020806 FM806 YDMAX1 - (166) 00030806 * 00040806 **********00050806 GENERAL PURPOSE ANS REF 00060806 * TEST OF INTRINSIC FUNCTION -- 15.3 00070806 DMAX1 -- CHOOSING LARGEST VALUE (TABLE 5)00080806 * 00090806 BB* **** BBCCOMNT *****00100806 00110806 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120806 VERSION 2.1 00130806 00140806 00150806 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160806 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170806 SOFTWARE STANDARDS VALIDATION GROUP 00180806 BUILDING 225 RM A266 00190806 GAITHERSBURG, MD 20899 00200806 00210806 00220806 00230806 BE **** BBCCOMNT ******00240806 S P E C I F I C A T I O N S SEGMENT 166 00250806 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430806 FOR IDENTIFYING THE TEST ENVIRONMENT 00440806 00450806 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460806 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470806 Z03 ZPROG = 'PROGRAM NAME' 00480806 Z04 ZDATE = 'DATE OF TEST' 00490806 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500806 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510806 Z07 ZNAME = 'NAME OF USER' 00520806 Z08 ZTAPE = 'TAPE OWNER/ID' 00530806 Z09 ZTAPED = 'DATE TAPE COPIED' 00540806 00550806 00840806 WRITE REPORT TITLE 00850806 00860806 * 00940806 WRITE DETAIL REPORT HEADERS 01000806 01010806 01080806 T001 TEST 1 BOTH ZEROES 01090806 * ARGUMENTS OF HIGH AND LOW MAGNITUDES 02510806 02790806 BB *** BBCSUM0 ******02800806 WRITE OUT TEST SUMMARY 02810806 02820806 WRITE OUT REPORT FOOTINGS 02940806 02950806 FORMATS FOR TEST DETAIL LINES 03010806 03020806 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03220806 03230806 FORMAT STATEMENTS FOR PAGE HEADERS 03370806 03380806 03510806 FORMAT STATEMENTS FOR REPORT FOOTINGS 03520806 03530806 03580806 FORMAT STATEMENTS FOR RUN SUMMARY 03590806 03600806 * END OF TEST SEGMENT 166 03670806