Esope source files

   1 : C EFNPDT4   SOURCE    CHAT      11/10/26    22:15:19     7176           
   2 :       subroutine efnpdt4(fid,cha,typent,typgeo,n,cret)
   3 :       integer fid,typent,typgeo,n,cret
   4 :       character*32 cha      
   5 :       integer*4 fid4,typent4,typgeo4,n4,cret4
   6 :       fid4=fid
   7 :       typent4=typent
   8 :       typgeo4=typgeo
   8 :       call efnpdt(fid4,cha,typent4,typgeo4,n4,cret4)
   9 :       n=n4
  10 :       cret=cret4
  11 :       return
  12 :       end
  13 :       
  14 :