Source Files

**********00010262 * FORTRAN 77 00020262 FM262 00030262 * SN262 SN262 - (750) 00040262 SUBROUTINE CALLED BY FM261 00050262 **********00060262 * 00070262 **********00010263 FORTRAN 77 00020263 * FM263 00030263 SN263 SN263 - (751) 00040263 * SUBROUTINE CALLED BY FM261 00050263 **********00060263 00070263 **********00010264 * FORTRAN 77 00020264 FM264 00030264 * IF264 IF264 - (752) 00040264 INTEGER FUNCTION CALLED BY FM261 00050264 **********00060264 *** 00070264

*********** 00010408 FORTRAN 77 00020408 * FM408 00030408 * SN408 DAQ - (805) 00040408 * THIS SUBROUTINE IS CALLED BY FM407 00050408 ********** 00060408

**********00010501 * FORTRAN 77 00020501 FM501 SN501 - (251) 00030501 * THIS SUBROUTINE IS CALLED BY PROGRAM FM500 00040501 **********00050501 00060501 * GENERAL PURPOSE 00070501 THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 250 00080501 * THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090501 IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED THE MANY 00100501 * VARIABLES 00110501 00120501 BB *** BBCCOMNT ******00130501 00140501 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150501 VERSION 2.1 00160501 00170501 00180501 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190501 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200501 SOFTWARE STANDARDS VALIDATION GROUP 00210501 BUILDING 225 RM A266 00220501 GAITHERSBURG, MD 20899 00230501 00240501 00250501 00260501 BE *** BBCCOMNT ******00270501 **********00010502 FORTRAN 77 00020502 * FM502 AN502 00030502 THIS BLOCK DATA SUBPROGRAM IS USED BY MIAN PROGRAM FM500 00040502 **********00050502 * 00060502 GENERAL PURPOSE 00070502 * THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080502 TO BE RUN WITH SEGMENT FM500 00090502 * THIS SEGMENT WILL USE IMPLICIT, PARAMETER, EXTERNAL 00100502 AND SAVE STATEMENTS WITHIN IT. 00110502 ** 00120502

**********00010504 * FORTRAN 77 00020504 FM504 BDS2 (UNNAMED) - (702) 00030504 * THIS BLOCK DATA SUBPROGRAM IS USED BY FM503 00040504 **********00050504 00060504 * GENERAL PURPOSE 00070504 THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080504 * TO BE RUN WITH TEST SEGMENT 261 00090504 THIS SEGMENT WILL TEST INTERNAL DATA FORMS, AS WELL 00100504 * AS THE USE OF UNNAMED BLOCK DATA PROGRAM 00110504 00120504 **********00010505 * FORTRAN 77 00020505 FM505 BLKD2Q - (703) 00030505 * THIS SUBROUTINE IS CALLED BY FM503 00040505 **********00050505 00060505 * GENERAL PURPOSE 00070505 THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 261 00080505 * THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090505 IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED THE MANY 00100505 * VARIABLES 00110505 00120505

**********00010507 * FORTRAN 77 00020507 FM507 BDS3 - (704) 00030507 * BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507 **********00050507 00060507 * GENERAL PURPOSE 00070507 THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080507 * TO BE RUN WITH TEST SEGMENT FM506 (262) 00090507 THIS SEGMENT WILL TEST CHARACTER VARIABLES WITH VARYING 00100507 * LENGHTS IN COMMON AREAS 00110507 00120507 BB *** BBCCOMNT ******00130507 00140507 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150507 VERSION 2.1 00160507 00170507 00180507 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190507 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200507 SOFTWARE STANDARDS VALIDATION GROUP 00210507 BUILDING 225 RM A266 00220507 GAITHERSBURG, MD 20899 00230507 00240507 00250507 00260507 BE *** BBCCOMNT ******00270507 **********00010508 FORTRAN 77 00020508 * FM508 BLKD3Q - (705) 00030508 THIS SUBROUTINE IS CALLED BY FM506 00040508 **********00050508 * 00060508 GENERAL PURPOSE 00070508 * THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 262 00080508 THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090508 * IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED CHARACTER 00100508 VARIABLES INTERMIXED WITH DIFFERENT LENGTHS 00110508 ** 00120508

**********00010904 * FORTRAN 77 00020904 FM904 SN904 - (790) 00030904 * THIS SUBROUTINE IS CALLED BY FM903 00040904 **********00050904 GENERAL PURPOSE ANS REFS 00060904 * THIS SUBROUTINE IS CALLED BY IOFMTF (354) 00070904 IT IS USED PRIMARILY TO TEST THAT A CHARACTER 13.1.2 00080904 * CONSTANT MAY BE PASSED AS A PARAMETER TO A 15.6.2.3 00090904 SUBROUTINE AND USED AS A FORMAT. 00100904 * IT ALSO TESTS THAT A FORMAT MAY BE DEFINED IN A 9.4 00110904 DATA STATEMENT. 00120904 * RESTRICTIONS OBSERVED 00130904 SEE SEGMENT 354 00140904 **** 00150904

*********** 00010911 FM911 00020911 * 00030911 * SN911 EAQ - (806) 00040911 * THIS SUBROUTINE IS CALLED BY FM910 00050911 ********** 00060911

*********** 00010913 FORTRAN 77 00020913 * FM913 00030913 * SN913 FAQ - (807) 00040913 * THIS SUBROUTINE IS CALLED BY PROGRAM FM912 00050913 ********** 00060913