FM804 Program

**********00010804 * FORTRAN 77 00020804 FM804 YDMOD - (160) 00030804 * 00040804 **********00050804 GENERAL PURPOSE ANS REF 00060804 * TO TEST INTRINSIC FUNCTION - DMOD - 15.3 00070804 (REMAINDERING -TYPE DOUBLE PRECISION) (TABLE 5)00080804 BB *** BBCCOMNT ******00090804 00100804 1978 FORTRAN COMPILER VALIDATION SYSTEM 00110804 VERSION 2.1 00120804 00130804 00140804 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00150804 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00160804 SOFTWARE STANDARDS VALIDATION GROUP 00170804 BUILDING 225 RM A266 00180804 GAITHERSBURG, MD 20899 00190804 00200804 00210804 00220804 BE *** BBCCOMNT ******00230804 00240804 * S P E C I F I C A T I O N S SEGMENT 160 00250804 00260804 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440804 FOR IDENTIFYING THE TEST ENVIRONMENT 00450804 00460804 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470804 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480804 Z03 ZPROG = 'PROGRAM NAME' 00490804 Z04 ZDATE = 'DATE OF TEST' 00500804 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510804 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520804 Z07 ZNAME = 'NAME OF USER' 00530804 Z08 ZTAPE = 'TAPE OWNER/ID' 00540804 Z09 ZTAPED = 'DATE TAPE COPIED' 00550804 00560804 00850804 WRITE REPORT TITLE 00860804 00870804 * 00950804 HEADER FOR SEGMENT 160 00960804 WRITE DETAIL REPORT HEADERS 01020804 01030804 * 01100804 T001 TEST 1 FIRST VALUE ZERO, SECOND NON-ZERO 01110804 02660804 BB *** BBCSUM0 ******02670804 WRITE OUT TEST SUMMARY 02680804 02690804 WRITE OUT REPORT FOOTINGS 02810804 02820804 FORMATS FOR TEST DETAIL LINES 02880804 02890804 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03090804 03100804 FORMAT STATEMENTS FOR PAGE HEADERS 03240804 03250804 03380804 FORMAT STATEMENTS FOR REPORT FOOTINGS 03390804 03400804 03450804 FORMAT STATEMENTS FOR RUN SUMMARY 03460804 03470804 * 03540804 ** END OF TEST SEGMENT 160 03550804