C EFCONE4   SOURCE    CHAT      11/10/26    22:15:05     7176           
      subroutine efcone4 (fid, maa, mdim,con, modswt, n, 
     1         typent,typgeo,typcon,cret,con4,nvao)

      character *(*) maa
      integer fid, con(*),typent,typgeo,typcon,cret
      integer n,mdim, modswt,nvao
      integer*4 fid4, con4(*),typent4,typgeo4,typcon4,cret4
      integer*4 n4,mdim4, modswt4
      fid4=fid
      typent4=typent
      typgeo4=typgeo
      typcon4=typcon
      n4=n
      mdim4=mdim
      modswt4=modswt
      do i=1,nvao
        con4(i)=con(i)
      enddo
      call efcone (fid4, maa, mdim4,con4, modswt4, n4, 
     1   typent4,typgeo4,typcon4,cret4) 
      nva1=nvao+1
      do i=1,nvao
        con(nva1-i)=con4(nva1-i)
      enddo  
      cret=cret4
      return
      end