Esope source files

   1 : C EFCHAE4   SOURCE    CHAT      11/10/26    22:15:03     7176           
   2 :       subroutine efchae4(fid,maa,cha,val,modswt,n,locname,numco,
   3 :      1                  profil,pflmod,typent,typgeo,numdt,dtunit,
   4 :      1                  dt,numo,cret)
   5 :       character*(*) cha,maa,profil,locname
   6 :       character*16 dtunit
   7 :       integer fid
   8 :       integer n,pflmod,typent,typgeo,cret
   9 :       integer modswt,numco,numdt,numo
  10 :       real*8 dt ,val(*)
  11 :       integer*4 fid4 
  12 :       integer*4 n4,pflmod4,typent4,typgeo4,cret4 
  13 :       integer*4 modswt4,numco4,numdt4,numo4
  14 :       fid4=fid
  15 :       modswt4=modswt
  16 :       n4=n
  17 :       numco4=numco
  18 :       pflmod4=pflmod
  19 :       typent4=typent
  20 :       typgeo4=typgeo
  21 :       numdt4=numdt
  22 :       numo4=numo  
  22 :       call efchae(fid4,maa,cha,val,modswt4,n4,locname,numco4,
  23 :      1                  profil,pflmod4,typent4,typgeo4,numdt4,dtunit,
  24 :      1                  dt,numo4,cret4) 
  25 :       cret=cret4
  26 :       return
  27 :       end
  28 :