<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5552352112   5705                                                                                                                                                                                                                                                                                                                                                                      examples/common4.f                                                                                     644    1107     770         1572  5552352015   7524                                                                                                                                                                                                                                                                                                                                                                      C This subroutine prints out the global array

      SUBROUTINE PRNT
      IMPLICIT NONE
      REAL A(5,5)
      COMMON /MATRIX/ A
      INTEGER I, J

      DO I = 1, 5
         WRITE (UNIT=*, FMT=20) (A(I,J), J=1,5)
      ENDDO

 20   FORMAT (5F5.2)
      END
            

C This subroutine computes the square root of every element in
C the global array.

      SUBROUTINE ROOT
      IMPLICIT NONE
      REAL A(5,5)
      COMMON /MATRIX/ A
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            A(I,J) = SQRT(A(I,J))
         ENDDO
      ENDDO

      CALL PRNT
      END


C The main program initializes the global array

      PROGRAM COMM
      IMPLICIT NONE
      REAL A(5,5)
      COMMON /MATRIX/ A

      CALL ROOT
      STOP
      END



C This initializes the COMMON block

      BLOCK DATA
      REAL A(5,5)
      COMMON /MATRIX/ A
      DATA A/25*5.0/
      END
À  D  cs541     Ð 8  cs542 è  à ›   cs546 ]  ð  É¥  cs547 n2    d%  cs100 rt   !e  cs561      õ*  cs56examples/common5.f                                                                                     644    1107     770         1456  5552352112   7524                                                                                                                                                                                                                                                                                                                                                                      C This subroutine prints out the global array

      SUBROUTINE PRNT
      IMPLICIT NONE
      INCLUDE 'matrix'
      INTEGER I, J

      DO I = 1, 5
         WRITE (UNIT=*, FMT=20) (A(I,J), J=1,5)
      ENDDO

 20   FORMAT (5F5.2)
      END
            

C This subroutine computes the square root of every element in
C the global array.

      SUBROUTINE ROOT
      IMPLICIT NONE
      INCLUDE 'matrix'
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            A(I,J) = SQRT(A(I,J))
         ENDDO
      ENDDO

      CALL PRNT
      END


C The main program initializes the global array

      PROGRAM COMM
      IMPLICIT NONE
      INCLUDE 'matrix'

      CALL ROOT
      STOP
      END



C This initializes the COMMON block

      BLOCK DATA
      INCLUDE 'matrix'
      DATA A/25*5.0/
      END
TA
      REAL A(5,5)
      COMMON /MATRIX/ A
      DATA A/25*5.0/
      END
À  D  cs541     Ð 8  cs542 è  à ›   cs546 ]  ð  É¥  cs547 n2    d%  cs100 rt   !e  cs561      õ*  cs56examples/matrix                                                                                        644    1107     770          230  5506142067   7201                                                                                                                                                                                                                                                                                                                                                                      C This common block is "included" in the source at four points,
C eliminating the need to type it four times.

      REAL A(5,5)
      COMMON /MATRIX/ A       WRITE (UNIT=*, FMT=20) (A(I,J), J=1,5)
      ENDDO

 20   FORMAT (5F5.2)
      END
            

C This subroutine computes the square root of every element in
C the global array.

      SUBROUTINE ROOT
      IMPLICIT NONE
      INCLUDE 'matrix'
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            A(I,J) = SQRT(A(I,J))
         ENDDO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             