FM375 Program

**********00010375 * FORTRAN 77 00020375 FM375 00030375 * XASIN - (193) 00040375 00050375 **********00060375 * GENERAL PURPOSE SUBSET REF 00070375 TEST INTRINSIC FUNCTION ASIN, ACOS 15.3 00080375 * TABLE 5 00090375 00100375 BB *** BBCCOMNT ******00110375 00120375 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130375 VERSION 2.1 00140375 00150375 00160375 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170375 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180375 SOFTWARE STANDARDS VALIDATION GROUP 00190375 BUILDING 225 RM A266 00200375 GAITHERSBURG, MD 20899 00210375 00220375 00230375 00240375 BE *** BBCCOMNT ******00250375 BB *** BBCINITA ******00260375 SPECIFICATION STATEMENTS 00270375 00280375 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410375 FOR IDENTIFYING THE TEST ENVIRONMENT 00420375 00430375 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440375 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450375 Z03 ZPROG = 'PROGRAM NAME' 00460375 Z04 ZDATE = 'DATE OF TEST' 00470375 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480375 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490375 Z07 ZNAME = 'NAME OF USER' 00500375 Z08 ZTAPE = 'TAPE OWNER/ID' 00510375 Z09 ZTAPED = 'DATE TAPE COPIED' 00520375 00530375 00820375 WRITE REPORT TITLE 00830375 00840375 00920375 * HEADER FOR SEGMENT 193 00930375 WRITE DETAIL REPORT HEADERS 00990375 01000375 01070375 * 01100375 T001 TEST 1 -1 TO CHECK PRINCIPAL VALUE AT ENDPOINTS 01110375 01730375 * 01760375 T006 TEST 6 -1 TO TEST PRINCIPAL VALUE AT ENDPOINTS 01770375 02650375 BB *** BBCSUM0 ******02660375 WRITE OUT TEST SUMMARY 02670375 02680375 WRITE OUT REPORT FOOTINGS 02800375 02810375 FORMATS FOR TEST DETAIL LINES 02870375 02880375 FORMAT STATEMENTS FOR PAGE HEADERS 03080375 03090375 03220375 FORMAT STATEMENTS FOR REPORT FOOTINGS 03230375 03240375 03290375 FORMAT STATEMENTS FOR RUN SUMMARY 03300375 03310375 * 03380375 * END OF TEST SEGMENT 193 03390375