Esope source files

   1 : C EFCONE4   SOURCE    CHAT      11/10/26    22:15:05     7176           
   2 :       subroutine efcone4 (fid, maa, mdim,con, modswt, n, 
   3 :      1         typent,typgeo,typcon,cret,con4,nvao)
   4 : 
   5 :       character *(*) maa
   6 :       integer fid, con(*),typent,typgeo,typcon,cret
   7 :       integer n,mdim, modswt,nvao
   8 :       integer*4 fid4, con4(*),typent4,typgeo4,typcon4,cret4
   9 :       integer*4 n4,mdim4, modswt4
  10 :       fid4=fid
  11 :       typent4=typent
  12 :       typgeo4=typgeo
  13 :       typcon4=typcon
  14 :       n4=n
  15 :       mdim4=mdim
  16 :       modswt4=modswt
  17 :       do i=1,nvao
  18 :         con4(i)=con(i)
  19 :       enddo
  19 :       call efcone (fid4, maa, mdim4,con4, modswt4, n4, 
  20 :      1   typent4,typgeo4,typcon4,cret4) 
  21 :       nva1=nvao+1
  22 :       do i=1,nvao
  23 :         con(nva1-i)=con4(nva1-i)
  24 :       enddo  
  25 :       cret=cret4
  26 :       return
  27 :       end
  28 :