FM823 Program

**********00010823 * FORTRAN 77 00020823 FM823 00030823 * YDASIN - (194) 00040823 00050823 **********00060823 * GENERAL PURPOSE ANS REF 00070823 TEST INTRINSIC FUNCTION DASIN, DACOS 15.3 00080823 * TABLE 5 00090823 00100823 BB *** BBCCOMNT ******00110823 00120823 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130823 VERSION 2.1 00140823 00150823 00160823 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170823 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180823 SOFTWARE STANDARDS VALIDATION GROUP 00190823 BUILDING 225 RM A266 00200823 GAITHERSBURG, MD 20899 00210823 00220823 00230823 00240823 BE *** BBCCOMNT ******00250823 00260823 * S P E C I F I C A T I O N S SEGMENT 194 00270823 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450823 FOR IDENTIFYING THE TEST ENVIRONMENT 00460823 00470823 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480823 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490823 Z03 ZPROG = 'PROGRAM NAME' 00500823 Z04 ZDATE = 'DATE OF TEST' 00510823 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520823 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530823 Z07 ZNAME = 'NAME OF USER' 00540823 Z08 ZTAPE = 'TAPE OWNER/ID' 00550823 Z09 ZTAPED = 'DATE TAPE COPIED' 00560823 00570823 00860823 WRITE REPORT TITLE 00870823 00880823 00960823 * HEADER FOR SEGMENT 194 00970823 WRITE DETAIL REPORT HEADERS 01030823 01040823 01110823 * 01140823 T001 TEST 1 -1.0D0 FOR PRINCIPAL VALUE AT ENDPOINTS 01150823 01770823 * 01800823 T006 TEST 6 -1.0D0 FOR PRINCIPAL VALUE AT ENDPOINTS 01810823 02690823 BB *** BBCSUM0 ******02700823 WRITE OUT TEST SUMMARY 02710823 02720823 WRITE OUT REPORT FOOTINGS 02840823 02850823 FORMATS FOR TEST DETAIL LINES 02910823 02920823 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03120823 03130823 FORMAT STATEMENTS FOR PAGE HEADERS 03270823 03280823 03410823 FORMAT STATEMENTS FOR REPORT FOOTINGS 03420823 03430823 03480823 FORMAT STATEMENTS FOR RUN SUMMARY 03490823 03500823 03570823 **** END OF TEST SEGMENT 194 03580823