FM803 Program

**********00010803 * FORTRAN 77 00020803 FM803 YCABS - (158) 00030803 * 00040803 **********00050803 GENERAL PURPOSE ANS REF 00060803 * TEST INTRINSIC FUNCTION CABS (ABSOLUTE VALUE OF 15.3 00070803 A COMPLEX ARGUMENT) (TABLE 5)00080803 * 00090803 BB* **** BBCCOMNT *****00100803 00110803 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120803 VERSION 2.1 00130803 00140803 00150803 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160803 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170803 SOFTWARE STANDARDS VALIDATION GROUP 00180803 BUILDING 225 RM A266 00190803 GAITHERSBURG, MD 20899 00200803 00210803 00220803 00230803 BE **** BBCCOMNT ******00240803 00250803 * S P E C I F I C A T I O N S SEGMENT 158 00260803 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440803 FOR IDENTIFYING THE TEST ENVIRONMENT 00450803 00460803 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470803 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480803 Z03 ZPROG = 'PROGRAM NAME' 00490803 Z04 ZDATE = 'DATE OF TEST' 00500803 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510803 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520803 Z07 ZNAME = 'NAME OF USER' 00530803 Z08 ZTAPE = 'TAPE OWNER/ID' 00540803 Z09 ZTAPED = 'DATE TAPE COPIED' 00550803 00560803 00850803 WRITE REPORT TITLE 00860803 00870803 00950803 * HEADER FOR SEGMENT 158 WRITTEN 00960803 WRITE DETAIL REPORT HEADERS 01020803 01030803 01100803 T001 TEST 1 COMPLEX VALUE ZERO (0,0) 01110803 * 02210803 BB* **** BBCSUM0 *****02220803 WRITE OUT TEST SUMMARY 02230803 02240803 WRITE OUT REPORT FOOTINGS 02360803 02370803 FORMATS FOR TEST DETAIL LINES 02430803 02440803 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640803 02650803 FORMAT STATEMENTS FOR PAGE HEADERS 02790803 02800803 02930803 FORMAT STATEMENTS FOR REPORT FOOTINGS 02940803 02950803 03000803 FORMAT STATEMENTS FOR RUN SUMMARY 03010803 03020803 03090803 *** END OF TEST SEGMENT 158 03100803