Esope source files

   1 : C EFCONL4   SOURCE    CHAT      11/10/26    22:15:06     7176           
   2 :       subroutine efconl4(fid, maa, mdim,conn,modswt,
   3 :      1                  pfltab,psize,
   4 :      1                  typent,typgeo,typcon,cret,conn4,nva0,
   5 :      1                  pfltab4,npf0)
   6 :       character *(*) maa
   7 :       integer mdim
   8 :       integer fid, conn(*),typent,typgeo,typcon,cret
   9 :       integer pfltab(*), psize,modswt,npf0,nva0
  10 :       integer*4 mdim4
  11 :       integer*4 fid4, conn4(*),typent4,typgeo4,typcon4,cret4
  12 :       integer*4 pfltab4(*),psize4,modswt4  
  13 :       fid4=fid    
  14 :       mdim4=mdim
  15 :       typent4=typent
  16 :       typgeo4=typgeo
  17 :       typcon4=typcon
  18 :       psize4=psize
  19 :       modswt4=modswt
  20 :       do i = 1,npf0
  21 :         pfltab4(i)=pfltab(i)
  22 :       enddo
  22 :       call efconl(fid4, maa, mdim4,conn4,modswt4,
  23 :      1                  pfltab4,psize4,
  24 :      1             typent4,typgeo4,typcon4,cret4)
  25 :       nva01=nva0+1 
  26 :       cret=cret4  
  27 :       do i=1,nva0
  28 :         conn(nva01-i)=conn4(nva01-i)
  29 :       enddo
  30 :       nt1=npf0+1
  31 :       do i = 1,npf0
  32 :         pfltab(nt1-i)=pfltab4(nt1-i)
  33 :       enddo
  34 :       return
  35 :       end
  36 :             
  37 :