subroutine flrcow(a,b,wgt)
c
c mbeer -- Cowley coordinates, May 8, 1992
c
c
	implicit none
	include 'itg.par'
	include 'itg.cmn'

c define the arguments
        complex a(lz,mz,nz),b(lz,mz,nz,nspecz)
	real wgt(lz,mz,nz,nspecz)             

c declare local variables
	integer i,l,m,n

c start executable code
c********************************************************************

	do n=1,nd
	   do i=1,nspecies
	      do m=1,md
		 do l=1,ld-1
		    b(l,m,n,i)=a(l,m,n)*wgt(l,m,n,i)
		 enddo
	      enddo
	   enddo
	enddo
c  
        return
        end