Esope source files

   1 : C EFCHAL4   SOURCE    FANDEUR   13/01/16    21:15:12     7666           
   2 :       subroutine efchal4(fid,maa,cha,val,
   3 :      1                  modswt,numco,locname,profil,pflmod,
   4 :      1                  typent,typgeo,
   5 :      1                  numdt, numo,cret)
   6 :       character *(*) cha,maa,locname,profil
   7 :       integer fid,typent,typgeo,cret
   8 : C*      integer n
   9 :       integer modswt,numco,pflmod,numdt,numo
  10 :       real*8 val(*)
  11 :       integer*4 fid4,typent4,typgeo4,cret4
  12 : c*      integer*4 n4
  13 :       integer*4 modswt4,numco4,pflmod4,numdt4,numo4
  14 :       fid4=fid
  15 : C*      n4=n
  16 :       typent4=typent
  17 :       typgeo4=typgeo
  18 :       modswt4=modswt
  19 :       numco4=numco
  20 :       pflmod4=pflmod
  21 :       numdt4=numdt
  22 :       numo4=numo
  22 :       call efchal(fid4,maa,cha,val,
  23 :      1                  modswt4,numco4,locname,profil,pflmod4,
  24 :      1                  typent4,typgeo4,
  25 :      1                  numdt4, numo4,cret4)
  26 :       cret=cret4
  27 :       return
  28 :       end
  29 :       
  30 :  
  31 :