<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5552350454   5714                                                                                                                                                                                                                                                                                                                                                                      examples/common2.f                                                                                     644    1107     770         1555  5552350454   7530                                                                                                                                                                                                                                                                                                                                                                      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 B(5,5)
      COMMON /MATRIX/ B
      INTEGER I, J

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

      CALL PRNT
      END


C The main program initializes the global array

      PROGRAM COMM
      IMPLICIT NONE
      REAL C(5,5)
      COMMON /MATRIX/ C
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            C(I,J) = I*(J+2.0)
         ENDDO
      ENDDO

      CALL ROOT
      STOP
      END
 cs539     D  cs541    8  cs542      cs546 n     ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56examples/common1.f                                                                                     644    1107     770         1555  5552350411   7520                                                                                                                                                                                                                                                                                                                                                                      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
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            A(I,J) = I*(J+2.0)
         ENDDO
      ENDDO

      CALL ROOT
      STOP
      END
 cs539     D  cs541    8  cs542      cs546 n     ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56examples/common3.f                                                                                     644    1107     770         2021  5552350466   7521                                                                                                                                                                                                                                                                                                                                                                      C This subroutine prints out the global array

      SUBROUTINE PRNT
      IMPLICIT NONE
      REAL A(5), B(5), C(5), D(5), E(5)
      COMMON /MATRIX/ A,B,C,D,E
      INTEGER I

      WRITE (UNIT=*, FMT=20) (A(I), I=1,5)
      WRITE (UNIT=*, FMT=20) (B(I), I=1,5)
      WRITE (UNIT=*, FMT=20) (C(I), I=1,5)
      WRITE (UNIT=*, FMT=20) (D(I), I=1,5)
      WRITE (UNIT=*, FMT=20) (E(I), I=1,5)

 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
      INTEGER I, J

      DO I = 1, 5
         DO J = 1, 5
            A(I,J) = I*(J+2.0)
         ENDDO
      ENDDO

      CALL ROOT
      STOP
      END
s565 @  @ .  cs566 ,	  P   cs567  	  `   cs571 
  p ~  cs571-1    =  cs572    	ӻ  cs573 n2      cs574 9      cs576    w  	cs574.s92    	NF  cs577 a    f  cs579     o  cs590  9    {L  dsl    -  cs610  	    	NM  cs611 I  0 )  cs638 P  @   cs651 d  P \  cs667 n0  `  ZV  cs679 rt  p  G  parsym      cs513 pl   ,  cs564 pl      quotas t      .mvclass ort                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  