Esope source files

   1 : C EFESPC4   SOURCE    CHAT      11/10/26    22:15:08     7176           
   2 :       subroutine efespc4( fid , maa, dim, cret)
   3 :       integer fid,dim,cret
   4 :       character *(*) maa
   5 :       integer*4 fid4,dim4,cret4
   6 :       fid4=fid
   7 :       dim4=dim
   7 :       call efespc( fid4 , maa, dim4, cret4)
   8 :       cret=cret4
   9 :       return
  10 :       end
  11 :