FM824 Program

**********00010824 * FORTRAN 77 00020824 FM824 00030824 * YDATAN - (196) 00040824 00050824 **********00060824 * GENERAL PURPOSE ANS REF 00070824 TEST INTRINSIC FUNCTION DATAN, DATAN2 15.3 00080824 * INTRINSIC FUNCTION DSQRT ASSUMED WORKING TABLE 5 00090824 00100824 BB *** BBCCOMNT ******00110824 00120824 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130824 VERSION 2.1 00140824 00150824 00160824 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170824 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180824 SOFTWARE STANDARDS VALIDATION GROUP 00190824 BUILDING 225 RM A266 00200824 GAITHERSBURG, MD 20899 00210824 00220824 00230824 00240824 BE *** BBCCOMNT ******00250824 00260824 * S P E C I F I C A T I O N S SEGMENT 196 00270824 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450824 FOR IDENTIFYING THE TEST ENVIRONMENT 00460824 00470824 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480824 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490824 Z03 ZPROG = 'PROGRAM NAME' 00500824 Z04 ZDATE = 'DATE OF TEST' 00510824 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520824 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530824 Z07 ZNAME = 'NAME OF USER' 00540824 Z08 ZTAPE = 'TAPE OWNER/ID' 00550824 Z09 ZTAPED = 'DATE TAPE COPIED' 00560824 00570824 00860824 WRITE REPORT TITLE 00870824 00880824 00960824 * HEADER FOR SEGMENT 196 00970824 WRITE DETAIL REPORT HEADERS 01030824 01040824 01110824 * 01140824 T001 TEST 1 LARGE ARGUMENT VALUES TO TEST SINGULARITY 01150824 AS AN ARGUMENT 01530824 * 01900824 02880824 BB *** BBCSUM0 ******02890824 WRITE OUT TEST SUMMARY 02900824 02910824 WRITE OUT REPORT FOOTINGS 03030824 03040824 FORMATS FOR TEST DETAIL LINES 03100824 03110824 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03310824 03320824 FORMAT STATEMENTS FOR PAGE HEADERS 03460824 03470824 03600824 FORMAT STATEMENTS FOR REPORT FOOTINGS 03610824 03620824 03670824 FORMAT STATEMENTS FOR RUN SUMMARY 03680824 03690824 * 03760824 ** END OF TEST SEGMENT 196 03770824