C EFFAML4   SOURCE    CHAT      11/10/26    22:15:12     7176           
      subroutine effaml4(fid,maa,fam,n,typent,typgeo,cret,fam4)

      integer fid,fam(*),n,typent,typgeo,cret
      character *(*) maa
      integer*4 fid4,fam4(*),n4,typent4,typgeo4,cret4
      fid4=fid
      n4=n
      typent4=typent
      typgeo4=typgeo
      call effaml(fid4,maa,fam4,n4,typent4,typgeo4,cret4)
      n1=n+1
      do io=1,n
        fam(n1-io)=fam4(n1-io)
      enddo
      cret=cret4
      return
      end