**********00010832 * FORTRAN 77 00020832 FM832 00030832 * YGEN5 - (210) 00040832 00050832 **********00060832 * GENERAL PURPOSE ANS REF 00070832 TEST GENERIC FUNCTIONS 15.3 00080832 * SQRT,EXP,LOG,LOG10,COS,SINH,TANH,ASIN,ATAN,ATAN2 TABLE 5 00090832 EACH FUNCTION IS FIRST CALLED WITH A REAL VALUE 00100832 * AND THEN WITH A DOUBLE PRECISION VALUE 00110832 00120832 BB *** BBCCOMNT ******00130832 00140832 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150832 VERSION 2.1 00160832 00170832 00180832 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190832 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200832 SOFTWARE STANDARDS VALIDATION GROUP 00210832 BUILDING 225 RM A266 00220832 GAITHERSBURG, MD 20899 00230832 00240832 00250832 00260832 BE *** BBCCOMNT ******00270832 00280832 * S P E C I F I C A T I O N S SEGMENT 210 00290832 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470832 FOR IDENTIFYING THE TEST ENVIRONMENT 00480832 00490832 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500832 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510832 Z03 ZPROG = 'PROGRAM NAME' 00520832 Z04 ZDATE = 'DATE OF TEST' 00530832 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540832 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550832 Z07 ZNAME = 'NAME OF USER' 00560832 Z08 ZTAPE = 'TAPE OWNER/ID' 00570832 Z09 ZTAPED = 'DATE TAPE COPIED' 00580832 00590832 00880832 WRITE REPORT TITLE 00890832 00900832 00980832 * HEADER FOR SEGMENT 210 00990832 WRITE DETAIL REPORT HEADERS 01050832 01060832 01130832 * TEST WITH REAL ARGUMENTS 01140832 01150832 * 02500832 02540832 * TEST WITH DOUBLE PRECISION ARGUMENTS 02550832 02560832 * 03910832 BB* **** BBCSUM0 *****03920832 WRITE OUT TEST SUMMARY 03930832 03940832 WRITE OUT REPORT FOOTINGS 04060832 04070832 FORMATS FOR TEST DETAIL LINES 04130832 04140832 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04340832 04350832 FORMAT STATEMENTS FOR PAGE HEADERS 04490832 04500832 04630832 FORMAT STATEMENTS FOR REPORT FOOTINGS 04640832 04650832 04700832 FORMAT STATEMENTS FOR RUN SUMMARY 04710832 04720832 04790832 ** END OF TEST SEGMENT 210 04800832
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| double precision | :: | AVD | * 00310832 BB* **** BBCINITA *****00320832 SPECIFICATION STATEMENTS 00330832 *** 00340832 |
|||
| double precision | :: | BVD | * 00310832 BB* **** BBCINITA *****00320832 SPECIFICATION STATEMENTS 00330832 *** 00340832 |
|||
| double precision | :: | CVD | * 00310832 BB* **** BBCINITA *****00320832 SPECIFICATION STATEMENTS 00330832 *** 00340832 |
|||
| double precision | :: | DVCORR | * 00310832 BB* **** BBCINITA *****00320832 SPECIFICATION STATEMENTS 00330832 *** 00340832 |
|||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00390832 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00390832 |