FM807 Program

**********00010807 * FORTRAN 77 00020807 FM807 YDMIN1 - (168) 00030807 * 00040807 **********00050807 GENERAL PURPOSE ANS REF 00060807 * TEST OF INTRINSIC FUNCTION -- 15.3 00070807 DMIN1 -- CHOOSING SMALLEST VALUE (TABLE 5)00080807 * 00090807 BB* **** BBCCOMNT *****00100807 00110807 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120807 VERSION 2.1 00130807 00140807 00150807 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160807 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170807 SOFTWARE STANDARDS VALIDATION GROUP 00180807 BUILDING 225 RM A266 00190807 GAITHERSBURG, MD 20899 00200807 00210807 00220807 00230807 BE **** BBCCOMNT ******00240807 S P E C I F I C A T I O N S SEGMENT 168 00250807 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420807 FOR IDENTIFYING THE TEST ENVIRONMENT 00430807 00440807 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450807 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460807 Z03 ZPROG = 'PROGRAM NAME' 00470807 Z04 ZDATE = 'DATE OF TEST' 00480807 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490807 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500807 Z07 ZNAME = 'NAME OF USER' 00510807 Z08 ZTAPE = 'TAPE OWNER/ID' 00520807 Z09 ZTAPED = 'DATE TAPE COPIED' 00530807 00540807 00830807 WRITE REPORT TITLE 00840807 00850807 * 00930807 00940807 WRITE DETAIL REPORT HEADERS 01000807 01010807 * 01080807 T001 TEST 1 BOTH VALUES EQUAL 01090807 * ARGUMENTS OF HIGH AND LOW MAGNITUDES 02520807 * 02800807 BB* **** BBCSUM0 *****02810807 WRITE OUT TEST SUMMARY 02820807 02830807 WRITE OUT REPORT FOOTINGS 02950807 02960807 FORMATS FOR TEST DETAIL LINES 03020807 03030807 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03230807 03240807 FORMAT STATEMENTS FOR PAGE HEADERS 03380807 03390807 03520807 FORMAT STATEMENTS FOR REPORT FOOTINGS 03530807 03540807 03590807 FORMAT STATEMENTS FOR RUN SUMMARY 03600807 03610807 END OF TEST SEGMENT 168 03680807