FM376 Program

**********00010376 * FORTRAN 77 00020376 FM376 00030376 * XATAN - (195) 00040376 00050376 **********00060376 * GENERAL PURPOSE SUBSET REF 00070376 TEST INTRINSIC FUNCTION ATAN, ATAN2 15.3 00080376 * INTRINSIC FUNCTION SQRT ASSUMED WORKING TABLE 5 00090376 00100376 BB *** BBCCOMNT ******00110376 00120376 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130376 VERSION 2.1 00140376 00150376 00160376 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170376 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180376 SOFTWARE STANDARDS VALIDATION GROUP 00190376 BUILDING 225 RM A266 00200376 GAITHERSBURG, MD 20899 00210376 00220376 00230376 00240376 BE *** BBCCOMNT ******00250376 BB *** BBCINITA ******00260376 SPECIFICATION STATEMENTS 00270376 00280376 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410376 FOR IDENTIFYING THE TEST ENVIRONMENT 00420376 00430376 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440376 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450376 Z03 ZPROG = 'PROGRAM NAME' 00460376 Z04 ZDATE = 'DATE OF TEST' 00470376 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480376 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490376 Z07 ZNAME = 'NAME OF USER' 00500376 Z08 ZTAPE = 'TAPE OWNER/ID' 00510376 Z09 ZTAPED = 'DATE TAPE COPIED' 00520376 00530376 00820376 WRITE REPORT TITLE 00830376 00840376 00920376 * HEADER FOR SEGMENT 195 00930376 WRITE DETAIL REPORT HEADERS 00990376 01000376 01070376 * 01090376 01110376 T001 TEST 1 TEST LARGE VALUES TO TEST SINGULARITY 01120376 * 01860376 02840376 BB *** BBCSUM0 ******02850376 WRITE OUT TEST SUMMARY 02860376 02870376 WRITE OUT REPORT FOOTINGS 02990376 03000376 FORMATS FOR TEST DETAIL LINES 03060376 03070376 FORMAT STATEMENTS FOR PAGE HEADERS 03270376 03280376 03410376 FORMAT STATEMENTS FOR REPORT FOOTINGS 03420376 03430376 03480376 FORMAT STATEMENTS FOR RUN SUMMARY 03490376 03500376 * 03570376 ** END OF TEST SEGMENT 195 03580376