C EFPDTI4   SOURCE    CHAT      11/10/26    22:15:21     7176           
      subroutine efpdti4(fid,cha,typent,typgeo,ind,ngauss,
     1                  numdt,numo,dtunit,dt,maa,local,nmaa,cret)
      integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
      character*32 cha,maa
      character*16 dtunit
      logical local
      real*8 dt      
      integer*4 fid4,typent4,typgeo4,ind4,ngauss4,numdt4,numo4,
     $          nmaa4,cret4
      fid4=fid
      typent4=typent
      typgeo4=typgeo
      ind4=ind
      ngauss4=ngauss
      call efpdti(fid4,cha,typent4,typgeo4,ind4,ngauss4,
     1                  numdt4,numo4,dtunit,dt,maa,local,nmaa4,cret4)
      ngauss=ngauss4
      numdt=numdt4
      numo=numo4
      nmaa=nmaa4
      cret=cret4
      return
      end