Esope source files

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