FM822 Program

**********00010822 * FORTRAN 77 00020822 FM822 00030822 * YDTAN - (192) 00040822 00050822 **********00060822 * GENERAL PURPOSE ANS REF 00070822 TEST INTRINSIC FUNCTION DTAN 15.3 00080822 * TABLE 5 00090822 00100822 BB *** BBCCOMNT ******00110822 00120822 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130822 VERSION 2.1 00140822 00150822 00160822 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170822 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180822 SOFTWARE STANDARDS VALIDATION GROUP 00190822 BUILDING 225 RM A266 00200822 GAITHERSBURG, MD 20899 00210822 00220822 00230822 00240822 BE *** BBCCOMNT ******00250822 00260822 * S P E C I F I C A T I O N S SEGMENT 192 00270822 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450822 FOR IDENTIFYING THE TEST ENVIRONMENT 00460822 00470822 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480822 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490822 Z03 ZPROG = 'PROGRAM NAME' 00500822 Z04 ZDATE = 'DATE OF TEST' 00510822 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520822 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530822 Z07 ZNAME = 'NAME OF USER' 00540822 Z08 ZTAPE = 'TAPE OWNER/ID' 00550822 Z09 ZTAPED = 'DATE TAPE COPIED' 00560822 00570822 00860822 WRITE REPORT TITLE 00870822 00880822 00960822 * HEADER FOR SEGMENT 192 00970822 WRITE DETAIL REPORT HEADERS 01030822 01040822 01110822 * 01130822 T001 TEST 1 ZERO (0.0), SINCE TAN(0) = 0. 01140822 02920822 BB *** BBCSUM0 ******02930822 WRITE OUT TEST SUMMARY 02940822 02950822 WRITE OUT REPORT FOOTINGS 03070822 03080822 FORMATS FOR TEST DETAIL LINES 03140822 03150822 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03350822 03360822 FORMAT STATEMENTS FOR PAGE HEADERS 03500822 03510822 03640822 FORMAT STATEMENTS FOR REPORT FOOTINGS 03650822 03660822 03710822 FORMAT STATEMENTS FOR RUN SUMMARY 03720822 03730822 * 03800822 * END OF TEST SEGMENT 192 03810822