FM828 Program

**********00010828 * FORTRAN 77 00020828 FM828 00030828 * YCFOR - (203) 00040828 00050828 **********00060828 * GENERAL PURPOSE ANS REF 00070828 TEST COMPLEX TRIGONOMETRIC FORMULAE 15.3 00080828 * TABLE 5 00090828 BB* **** BBCCOMNT *****00100828 00110828 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120828 VERSION 2.1 00130828 00140828 00150828 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160828 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170828 SOFTWARE STANDARDS VALIDATION GROUP 00180828 BUILDING 225 RM A266 00190828 GAITHERSBURG, MD 20899 00200828 00210828 00220828 00230828 BE **** BBCCOMNT ******00240828 00250828 * S P E C I F I C A T I O N S SEGMENT 203 00260828 00300828 BB *** BBCINITA ******00310828 SPECIFICATION STATEMENTS 00320828 00330828 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460828 FOR IDENTIFYING THE TEST ENVIRONMENT 00470828 00480828 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490828 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500828 Z03 ZPROG = 'PROGRAM NAME' 00510828 Z04 ZDATE = 'DATE OF TEST' 00520828 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530828 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540828 Z07 ZNAME = 'NAME OF USER' 00550828 Z08 ZTAPE = 'TAPE OWNER/ID' 00560828 Z09 ZTAPED = 'DATE TAPE COPIED' 00570828 00580828 00870828 WRITE REPORT TITLE 00880828 00890828 00970828 * HEADER FOR SEGMENT 203 00980828 WRITE DETAIL REPORT HEADERS 01040828 01050828 01120828 * 01140828 T001 TEST 1 SQRT(Z)2 = Z 01150828 * 02510828 BB* **** BBCSUM0 *****02520828 WRITE OUT TEST SUMMARY 02530828 02540828 WRITE OUT REPORT FOOTINGS 02660828 02670828 FORMATS FOR TEST DETAIL LINES 02730828 02740828 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02940828 02950828 FORMAT STATEMENTS FOR PAGE HEADERS 03090828 03100828 03230828 FORMAT STATEMENTS FOR REPORT FOOTINGS 03240828 03250828 03300828 FORMAT STATEMENTS FOR RUN SUMMARY 03310828 03320828 * 03390828 ** END OF TEST SEGMENT 203 03400828