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