Esope source files

   1 : C EFCOOE4   SOURCE    CHAT      11/10/26    22:15:06     7176           
   2 :        subroutine efcooe4(fid, maa, mdim, coo, modswt,
   3 :      &                  n,typrep,nom,unit,cret)
   4 : 
   5 :       character *(*) maa
   6 :       real*8 coo(*)
   7 :       integer fid,typrep,mdim
   8 :       integer n,cret,modswt
   9 :       character *(*) nom, unit
  10 :       integer*4 fid4,typrep4,mdim4
  11 :       integer*4 n4,cret4,modswt4
  12 :       fid4=fid
  13 :       typrep4=typrep
  14 :       mdim4=mdim
  15 :       n4=n
  16 :       modswt4=modswt
  16 :       call efcooe(fid4, maa, mdim4, coo, modswt4,
  17 :      &                  n4,typrep4,nom,unit,cret4)
  18 :       cret=cret4
  19 :       return
  20 :       end
  21 : 
  22 :