C EFFAMC4   SOURCE    CHAT      11/10/26    22:15:09     7176           
      subroutine effamc4(fid,maa,fam,num,attid,attval,attdes,
     1     natt, gro,ngro,cret,attid4,attval4)
      integer fid,num,attid(*),attval(*),natt,ngro,cret
      character *(*) maa,fam,attdes
      character *(*) gro(*)
      integer*4 fid4,num4,attid4(*),attval4(*),natt4,ngro4,cret4
      fid4=fid
      num4=num
      natt4=natt
      ngro4=ngro
      cret4=cret
      do io=1,natt
        attid4(io)=attid(io)
        attval4(io)=attval(io) 
      enddo
      call effamc(fid4,maa,fam,num4,attid4,attval4,attdes,
     1     natt4, gro,ngro4,cret4)    
      cret=cret4
      na1=natt+1
      do io=1,natt
        attid(na1-io)=attid4(na1-io)
        attval(na1-io)=attval4(na1-io) 
      enddo
      return
      end