!
      real(4),pointer::acfrcv(:,:),acfrst(:,:)
      integer(4),pointer::ncfrcv(:,:),ncfrst(:,:)
      COMMON /ACMCLD/TCLOD,NCLOD,ACFRCV,NCFRCV,ACFRST,NCFRST