C
C     TEST PROGRAM
C
C       THIS PROGRAM WAS WRITTEN AS AN INPUT FORTRAN PROGRAM FOR THE
C     BASIC PROGRAM DIVPGM.BAS. DIVPGM DIVIDES A FORTRAN PROGRAM INTO
C     SUBPROGRAM ELEMENTS FOR COMPILING PURPOSES. THESE ELEMENTS ARE BY
C     SUBROUTINE, FUNCTION AND BLOCK SUBPROGRAMS.
C
      PROGRAM TEST
      COMMON /X/ X
      WRITE(6,10)
   10 FORMAT(1X,'THIS IS A TEST PROGRAM WRITTEN FOR DIVPGM.BAS TO SPLIT
     *INTO SUBPROGRAM ELEMENTS'//)
      Y = SRT(X)
      CALL SUB (X,Y)                                                    SQ EX1
      END                                                               SQ EX2