Esope source files

   1 : C EFFAME4   SOURCE    CHAT      11/10/26    22:15:10     7176           
   2 :       subroutine effame4(fid,maa,fam,n,typent,typgeo,cret,fam4)
   3 : 
   4 :       integer fid,fam(*),n,typent,typgeo,cret
   5 :       character *(*) maa
   6 :       integer*4 fid4,fam4(*),n4,typent4,typgeo4,cret4
   7 :       fid4=fid
   8 :       n4=n
   9 :       typent4=typent
  10 :       typgeo4=typgeo
  11 :       do io=1,n
  12 :         fam4(io)=fam(io)
  13 :       enddo
  13 :       call effame(fid4,maa,fam4,n4,typent4,typgeo4,cret4)
  14 :       cret=cret4
  15 :       n1=n+1
  16 :       do io=1,n
  17 :         fam(n1-io)=fam4(n1-io)
  18 :       enddo
  19 :       return
  20 :       end
  21 :       
  22 :