Esope source files

   1 : C EFFAMI4   SOURCE    CHAT      11/10/26    22:15:11     7176           
   2 :       subroutine effami4(fid,maa,ind,fam,num,attid,attval,attdes,
   3 :      1     natt,gro,ngro,cret,attid4,attval4)
   4 :       integer fid,num,attid(*),attval(*),natt,ngro,cret,ind
   5 :       character *(*) maa,fam,attdes,gro
   6 :       integer*4 fid4,num4,attid4(*),attval4(*),natt4,ngro4,cret4,ind4
   7 :       fid4=fid
   8 :       ind4=ind
   9 :       natt4=natt
  10 :       ngro4=ngro
  10 :       call effami(fid4,maa,ind4,fam,num4,attid4,attval4,attdes,
  11 :      1     natt4,gro,ngro4,cret4)
  12 :       na1=natt4+1
  13 :       do io=1,natt4
  14 :         attid(na1-io)=attid4(na1-io)
  15 :         attval(na1-io)=attval4(na1-io)
  16 :       enddo
  17 :       num=num4
  18 :       natt=natt4
  19 :       ngro=ngro4
  20 :       cret=cret4
  21 :       return
  22 :       end
  23 :       
  24 :