Esope source files

   1 : C EFNVAL4   SOURCE    CHAT      11/10/26    22:15:19     7176           
   2 :       subroutine efnval4(fid,cha,typent,typgeo,numdt,numo,maa,
   3 :      $    pflmod,n,cret)
   4 :       integer fid,typent,typgeo,n,cret
   5 :       integer numdt, numo, pflmod
   6 :       character *(*) cha, maa
   7 :       integer*4 fid4,typent4,typgeo4,n4,cret4
   8 :       integer*4 numdt4, numo4, pflmod4
   9 :       fid4=fid
  10 :       typent4=typent
  11 :       typgeo4=typgeo
  12 :       numdt4=numdt
  13 :       numo4=numo
  14 :       pflmod4=pflmod
  14 :       call efnval(fid4,cha,typent4,typgeo4,numdt4,numo4,maa,
  15 :      $    pflmod4,n4,cret4)
  16 :       n=n4
  17 :       cret=cret4
  18 :       return
  19 :       end
  20 :       
  21 :