FM805 Program

**********00010805 * FORTRAN 77 00020805 FM805 YDDIM - (164) 00030805 * 00040805 **********00050805 GENERAL PURPOSE ANS REF 00060805 * TEST INTRINSIC FUNCTION DDIM AND PROD--POSITIVE 15.3 00070805 DIFFERENCE AND DOUBLE PRECISION PRODUCT, RESP. (TABLE 5)00080805 * 00090805 BB* **** BBCCOMNT *****00100805 00110805 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120805 VERSION 2.1 00130805 00140805 00150805 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160805 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170805 SOFTWARE STANDARDS VALIDATION GROUP 00180805 BUILDING 225 RM A266 00190805 GAITHERSBURG, MD 20899 00200805 00210805 00220805 00230805 BE **** BBCCOMNT ******00240805 00250805 * S P E C I F I C A T I O N S SEGMENT 164 00260805 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440805 FOR IDENTIFYING THE TEST ENVIRONMENT 00450805 00460805 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470805 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480805 Z03 ZPROG = 'PROGRAM NAME' 00490805 Z04 ZDATE = 'DATE OF TEST' 00500805 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510805 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520805 Z07 ZNAME = 'NAME OF USER' 00530805 Z08 ZTAPE = 'TAPE OWNER/ID' 00540805 Z09 ZTAPED = 'DATE TAPE COPIED' 00550805 00560805 00850805 WRITE REPORT TITLE 00860805 00870805 00950805 * HEADER FOR SEGMENT 164 00960805 WRITE DETAIL REPORT HEADERS 01030805 01040805 01110805 * TEST OF DDIM 01120805 01130805 * 02280805 TEST OF DPROD 02290805 * 02300805 03920805 BB *** BBCSUM0 ******03930805 WRITE OUT TEST SUMMARY 03940805 03950805 WRITE OUT REPORT FOOTINGS 04070805 04080805 FORMATS FOR TEST DETAIL LINES 04140805 04150805 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04350805 04360805 FORMAT STATEMENTS FOR PAGE HEADERS 04500805 04510805 04640805 FORMAT STATEMENTS FOR REPORT FOOTINGS 04650805 04660805 04710805 FORMAT STATEMENTS FOR RUN SUMMARY 04720805 04730805 * 04800805 ** END OF TEST SEGMENT 164 04810805