Esope source files

   1 : C EFPDTI4   SOURCE    CHAT      11/10/26    22:15:21     7176           
   2 :       subroutine efpdti4(fid,cha,typent,typgeo,ind,ngauss,
   3 :      1                  numdt,numo,dtunit,dt,maa,local,nmaa,cret)
   4 :       integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
   5 :       character*32 cha,maa
   6 :       character*16 dtunit
   7 :       logical local
   8 :       real*8 dt      
   9 :       integer*4 fid4,typent4,typgeo4,ind4,ngauss4,numdt4,numo4,
  10 :      $          nmaa4,cret4
  11 :       fid4=fid
  12 :       typent4=typent
  13 :       typgeo4=typgeo
  14 :       ind4=ind
  15 :       ngauss4=ngauss
  15 :       call efpdti(fid4,cha,typent4,typgeo4,ind4,ngauss4,
  16 :      1                  numdt4,numo4,dtunit,dt,maa,local,nmaa4,cret4)
  17 :       ngauss=ngauss4
  18 :       numdt=numdt4
  19 :       numo=numo4
  20 :       nmaa=nmaa4
  21 :       cret=cret4
  22 :       return
  23 :       end
  24 :       
  25 :      
  26 :