FM819 Program

**********00010819 * FORTRAN 77 00020819 FM819 00030819 * YDSIN - (187) 00040819 00050819 **********00060819 * GENERAL PURPOSE ANS REF 00070819 TEST INTRINSIC FUNCTION DSIN 15.3 00080819 * TABLE 5 00090819 00100819 BB *** BBCCOMNT ******00110819 00120819 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130819 VERSION 2.1 00140819 00150819 00160819 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170819 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180819 SOFTWARE STANDARDS VALIDATION GROUP 00190819 BUILDING 225 RM A266 00200819 GAITHERSBURG, MD 20899 00210819 00220819 00230819 00240819 BE *** BBCCOMNT ******00250819 S P E C I F I C A T I O N S SEGMENT 187 00260819 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440819 FOR IDENTIFYING THE TEST ENVIRONMENT 00450819 00460819 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470819 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480819 Z03 ZPROG = 'PROGRAM NAME' 00490819 Z04 ZDATE = 'DATE OF TEST' 00500819 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510819 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520819 Z07 ZNAME = 'NAME OF USER' 00530819 Z08 ZTAPE = 'TAPE OWNER/ID' 00540819 Z09 ZTAPED = 'DATE TAPE COPIED' 00550819 00560819 00850819 WRITE REPORT TITLE 00860819 00870819 * 00950819 HEADER FOR SEGMENT 187 00960819 WRITE DETAIL REPORT HEADERS 01020819 01030819 * 01100819 01120819 T001 TEST 1 ZERO (0.0) SINCE SIN(0)=0 01130819 * 03540819 BB* **** BBCSUM0 *****03550819 WRITE OUT TEST SUMMARY 03560819 03570819 WRITE OUT REPORT FOOTINGS 03690819 03700819 FORMATS FOR TEST DETAIL LINES 03760819 03770819 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970819 03980819 FORMAT STATEMENTS FOR PAGE HEADERS 04120819 04130819 04260819 FORMAT STATEMENTS FOR REPORT FOOTINGS 04270819 04280819 04330819 FORMAT STATEMENTS FOR RUN SUMMARY 04340819 04350819 04420819 * END OF TEST SEGMENT 187 04430819