Esope source files

   1 : C EFNEMA4   SOURCE    CHAT      11/10/26    22:15:16     7176           
   2 :       subroutine efnema4(fid, maa, quoi,  
   3 :      1       typent, typgeo,typcon,n,cret)
   4 : 
   5 :       character *(*) maa
   6 :       integer fid,typent, typgeo,cret,typcon,n,quoi
   7 :       integer*4 fid4,typent4, typgeo4,cret4,typcon4,n4,quoi4
   8 :       fid4=fid
   9 :       typent4=typent
  10 :       typgeo4=typgeo
  11 :       typcon4=typcon
  12 :       quoi4=quoi
  12 :       call efnema(fid4, maa, quoi4,  
  13 :      1       typent4, typgeo4,typcon4,n4,cret4)     
  14 :       n=n4
  15 :       cret=cret4
  16 :       return
  17 :       end
  18 :