C EFCONL4   SOURCE    CHAT      11/10/26    22:15:06     7176           
      subroutine efconl4(fid, maa, mdim,conn,modswt,
     1                  pfltab,psize,
     1                  typent,typgeo,typcon,cret,conn4,nva0,
     1                  pfltab4,npf0)
      character *(*) maa
      integer mdim
      integer fid, conn(*),typent,typgeo,typcon,cret
      integer pfltab(*), psize,modswt,npf0,nva0
      integer*4 mdim4
      integer*4 fid4, conn4(*),typent4,typgeo4,typcon4,cret4
      integer*4 pfltab4(*),psize4,modswt4  
      fid4=fid    
      mdim4=mdim
      typent4=typent
      typgeo4=typgeo
      typcon4=typcon
      psize4=psize
      modswt4=modswt
      do i = 1,npf0
        pfltab4(i)=pfltab(i)
      enddo
      call efconl(fid4, maa, mdim4,conn4,modswt4,
     1                  pfltab4,psize4,
     1             typent4,typgeo4,typcon4,cret4)
      nva01=nva0+1 
      cret=cret4  
      do i=1,nva0
        conn(nva01-i)=conn4(nva01-i)
      enddo
      nt1=npf0+1
      do i = 1,npf0
        pfltab(nt1-i)=pfltab4(nt1-i)
      enddo
      return
      end