FM827 Program

**********00010827 * FORTRAN 77 00020827 FM827 00030827 * YDFOR - (202) 00040827 00050827 **********00060827 * GENERAL PURPOSE ANS REF 00070827 TEST DOUBLE PRECISION TRIGONOMETRIC FORMULA 15.3 00080827 * TABLE 5 00090827 BB* **** BBCCOMNT *****00100827 00110827 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120827 VERSION 2.1 00130827 00140827 00150827 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160827 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170827 SOFTWARE STANDARDS VALIDATION GROUP 00180827 BUILDING 225 RM A266 00190827 GAITHERSBURG, MD 20899 00200827 00210827 00220827 00230827 BE **** BBCCOMNT ******00240827 00250827 * S P E C I F I C A T I O N S SEGMENT 202 00260827 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440827 FOR IDENTIFYING THE TEST ENVIRONMENT 00450827 00460827 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470827 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480827 Z03 ZPROG = 'PROGRAM NAME' 00490827 Z04 ZDATE = 'DATE OF TEST' 00500827 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510827 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520827 Z07 ZNAME = 'NAME OF USER' 00530827 Z08 ZTAPE = 'TAPE OWNER/ID' 00540827 Z09 ZTAPED = 'DATE TAPE COPIED' 00550827 00560827 00850827 WRITE REPORT TITLE 00860827 00870827 00950827 * HEADER FOR SEGMENT 202 00960827 WRITE DETAIL REPORT HEADERS 01020827 01030827 01100827 * 01120827 T001 TEST 1 LN(EXP(X)) = X 01130827 02510827 BB *** BBCSUM0 ******02520827 WRITE OUT TEST SUMMARY 02530827 02540827 WRITE OUT REPORT FOOTINGS 02660827 02670827 FORMATS FOR TEST DETAIL LINES 02730827 02740827 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02940827 02950827 FORMAT STATEMENTS FOR PAGE HEADERS 03090827 03100827 03230827 FORMAT STATEMENTS FOR REPORT FOOTINGS 03240827 03250827 03300827 FORMAT STATEMENTS FOR RUN SUMMARY 03310827 03320827 03390827 **** END OF TEST SEGMENT 202 03400827