Esope source files

   1 : C EFFAML4   SOURCE    CHAT      11/10/26    22:15:12     7176           
   2 :       subroutine effaml4(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
  10 :       call effaml(fid4,maa,fam4,n4,typent4,typgeo4,cret4)
  11 :       n1=n+1
  12 :       do io=1,n
  13 :         fam(n1-io)=fam4(n1-io)
  14 :       enddo
  15 :       cret=cret4
  16 :       return
  17 :       end
  18 :