**********00010503 * FORTRAN 77 00020503 FM503 00030503 * BLKD2 - (261) 00040503 THIS PROGRAM USES FM504 (UNNAMED BLOCK DATA SUBPROGRAM 00050503 * AND SUBROUTINE SN505 00060503 **********00070503 TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00080503 * DATA INTERNAL FORMS 16 00090503 THIS SEGMENT USES SEGMENTS 702 AND 703, BLOCK DATA PROGRAM 00100503 * FM504 AND SUBROUTINE SN505 00110503 00120503 BB *** BBCCOMNT ******00130503 00140503 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150503 VERSION 2.1 00160503 00170503 00180503 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190503 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200503 SOFTWARE STANDARDS VALIDATION GROUP 00210503 BUILDING 225 RM A266 00220503 GAITHERSBURG, MD 20899 00230503 00240503 00250503 00260503 BE *** BBCCOMNT ******00270503 00280503 * S P E C I F I C A T I O N S SEGMENT 261 00290503 00300503 * DECLARATION OF VARIABLES IN COMMON BLOCKS 00310503 DOUBLE PRECISION AXVD, DVCORR 00320503 * COMPLEX AXVC, ZVCORR 00330503 * LOGICAL AXVB 00340503 * CHARACTER6 A6XVK, B6XVK, CVCORR 00350503 00360503 * COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503 COMMON /BLK7/ A6XVK, B6XVK 00380503 * 00390503 00400503 * 00430503 * END OF TEST SEGMENT 261 00440503