Esope source files

   1 : C EFCOOL4   SOURCE    CHAT      11/10/26    22:15:07     7176           
   2 :       subroutine efcool4(fid, maa, mdim, coo, modswt,
   3 :      1                  numco,pfltab,psize, 
   4 :      1                  typrep,nom,unit,cret,pfltab4,npfl0)
   5 : 
   6 :       character *(*) maa
   7 :       real*8 coo(*)
   8 :       integer mdim
   9 :       integer fid,typrep,cret,modswt
  10 :       integer pfltab(*),psize, numco,npfl0
  11 :       character *(*) nom, unit
  12 :       integer*4 mdim4
  13 :       integer*4 fid4,typrep4,cret4,modswt4
  14 :       integer*4 pfltab4(*),psize4, numco4
  15 :       mdim4=mdim
  16 :       fid4=fid
  17 :       typrep4=typrep
  18 :       modswt4=modswt
  19 :       psize4=psize
  20 :       numco4=numco
  21 :       do i=1,npfl0
  22 :         pfltab4(i)=pfltab(i)
  23 :       enddo
  23 :       call efcool(fid4, maa, mdim4, coo, modswt4,
  24 :      1                  numco4,pfltab4,psize4, 
  25 :      1                  typrep4,nom,unit,cret4)
  26 :       npfl01=npfl0+1
  27 :       do i=1,npfl0
  28 :         pfltab(npfl01-i)=pfltab4(npfl01-i)
  29 :       enddo
  30 :       typrep=typrep4
  31 :       cret=cret4
  32 :       return
  33 :       end
  34 :       
  35 :