subroutine putcomp(nx,ntaupow2,iadcomp,vfe)
      implicit none
      integer nx,ntaupow2,iadcomp
      real vfe(ntaupow2,nx)
      integer feoff(3),cmst(3),cmend(3),cmax(3),fedim(3)
      include '/usr/include/cm/paris-configuration-fort.h'
      feoff(1)=0
      feoff(2)=0
      feoff(3)=0
      cmst(1)=0
      cmst(2)=0
      cmst(3)=0
      cmend(1)=1
      cmend(2)=nx
      cmend(2)=ntaupow2
      cmax(1)=0
      cmax(2)=2
      cmax(3)=1
      fedim(1)=1
      fedim(2)=nx
      fedim(3)=ntaupow2
         call CM_f_read_from_news_array_1L(vfe,feoff,cmst,cmend,
     1        cmax,iadcomp,23,8,3,fedim,CM_float_single_array)
      call snap('comp',ntaupow2,nx,vfe)
      return
      end