[Module] 求助大神，关于在module中使用common命令的问题

          module modul
                      IMPLICIT REAL*8(A-H,O-Z),INTEGER(I-N) 
                      PARAMETER(MI=201,MJ=51)  
                      COMMON /CONST1/G,PI,CN,OMIGA,PIR180,DEN,DENAIR,DENSED,CW,
                     1         VIS,oi,tk,rj,CC0,DRAWy,alph3,w3,sk,qm,d50
                end module modul

SUBROUTINE sub1(...)
  REAL :: A(10) ! all data in one "block" (打包)
  COMMON /ABC/ A
  SAVE /ABC/

SUBROUTINE sub2(...)       !---> can be different numeric-type(+kind)/structute
  COMPLEX :: z             ! (a) complex = two reals
  INTEGER :: i             ! (b) easy to get binary representation of a real
  REAL :: b(2,2), c(2), pi ! (c) flexible data structure
  COMMON /ABC/ z, i, b, c, pi
  SAVE /ABC/