FM821 Program

**********00010821 * FORTRAN 77 00020821 FM821 00030821 * YDCOS - (190) 00040821 00050821 **********00060821 * GENERAL PURPOSE ANS REF 00070821 TEST INTRINSIC FUNCTION DCOS 15.3 00080821 * TABLE 5 00090821 00100821 BB *** BBCCOMNT ******00110821 00120821 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130821 VERSION 2.1 00140821 00150821 00160821 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170821 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180821 SOFTWARE STANDARDS VALIDATION GROUP 00190821 BUILDING 225 RM A266 00200821 GAITHERSBURG, MD 20899 00210821 00220821 00230821 00240821 BE *** BBCCOMNT ******00250821 00260821 * S P E C I F I C A T I O N S SEGMENT 190 00270821 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450821 FOR IDENTIFYING THE TEST ENVIRONMENT 00460821 00470821 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480821 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490821 Z03 ZPROG = 'PROGRAM NAME' 00500821 Z04 ZDATE = 'DATE OF TEST' 00510821 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520821 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530821 Z07 ZNAME = 'NAME OF USER' 00540821 Z08 ZTAPE = 'TAPE OWNER/ID' 00550821 Z09 ZTAPED = 'DATE TAPE COPIED' 00560821 00570821 00860821 WRITE REPORT TITLE 00870821 00880821 00960821 * HEADER FOR SEGMENT 190 00970821 WRITE DETAIL REPORT HEADERS 01030821 01040821 01110821 * 01130821 T001 TEST 1 ZERO (0.0), SINCE COS(0)=1 01140821 03540821 BB *** BBCSUM0 ******03550821 WRITE OUT TEST SUMMARY 03560821 03570821 WRITE OUT REPORT FOOTINGS 03690821 03700821 FORMATS FOR TEST DETAIL LINES 03760821 03770821 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970821 03980821 FORMAT STATEMENTS FOR PAGE HEADERS 04120821 04130821 04260821 FORMAT STATEMENTS FOR REPORT FOOTINGS 04270821 04280821 04330821 FORMAT STATEMENTS FOR RUN SUMMARY 04340821 04350821 * 04420821 * END OF TEST SEGMENT 190 04430821