subroutine printme (var,ll)

	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var(TARG_VAR)	! data to use	

	integer ll,i,j,k,l,m,n,ii

           ll=0
c
c           do ii=1,4
c             ll = ll + 1
c             call fill_0(ii,var(ii+1),ll)
c             expon(ii,ll)=0
c           enddo
c
            do i=1,5
             ll=ll+1
             do ii=1,4
              call fill_1(ii,var(ii+1),i,ll)
              expon(ii,ll)=0
              if(i.eq.ii)expon(ii,ll)=1
              if(i.eq.5) expon(5,ll)=1
             enddo
            enddo 

            do i=1,5
             do j=i,5
              ll=ll+1
              do ii=1,4
                call fill_2(ii,var(ii+1),i,j,ll)
                expon(ii,ll)=0
                if(i.eq.ii)expon(ii,ll)=1
                if(j.eq.ii)expon(ii,ll)=expon(ii,ll)+1
              enddo
                if(i .eq. 5) expon(5,ll) = 1
                if(j .eq. 5) expon(5,ll) = 1 + expon(5,ll)
             enddo
            enddo             

            do i=1,5
             do j=i,5
              do k=j,5
               ll=ll+1
               do ii=1,4
                 call fill_3(ii,var(ii+1),i,j,k,ll)
                expon(ii,ll)=0
                 if(i.eq.ii)expon(ii,ll)=1
                 if(j.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                 if(k.eq.ii)expon(ii,ll)=expon(ii,ll)+1
               enddo
                if(i .eq. 5) expon(5,ll) = 1
                if(j .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(k .eq. 5) expon(5,ll) = 1 + expon(5,ll)
              enddo
             enddo
            enddo        

            do i=1,5
             do j=i,5
              do k=j,5
               do l=k,5
                ll=ll+1
                do ii=1,4
                 call fill_4(ii,var(ii+1),i,j,k,l,ll)
                 expon(ii,ll)=0
                  if(i.eq.ii)expon(ii,ll)=1
                  if(j.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                  if(k.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                  if(l.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                enddo
                if(i .eq. 5) expon(5,ll) = 1
                if(j .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(k .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(l .eq. 5) expon(5,ll) = 1 + expon(5,ll)
               enddo
              enddo
             enddo
            enddo

            do i=1,5
             do j=i,5
              do k=j,5
               do l=k,5
                do m=l,5
                  ll=ll+1
                  do ii=1,4
                   call fill_5(ii,var(ii+1),i,j,k,l,m,ll)
                   expon(ii,ll)=0
                   if(i.eq.ii)expon(ii,ll)=1
                   if(j.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(k.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(l.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(m.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                  enddo                
                if(i .eq. 5) expon(5,ll) = 1
                if(j .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(k .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(l .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(m .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                enddo
               enddo
              enddo
             enddo
            enddo

            do i=1,5
             do j=i,5
              do k=j,5
               do l=k,5
                do m=l,5
                 do n=m,5 
                  ll=ll+1
                  do ii=1,4
                   call fill_6(ii,var(ii+1),i,j,k,l,m,n,ll)
                   expon(ii,ll)=0
                   if(i.eq.ii)expon(ii,ll)=1
                   if(j.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(k.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(l.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(m.eq.ii)expon(ii,ll)=expon(ii,ll)+1
                   if(n.eq.ii)expon(ii,ll)=expon(ii,ll)+1
		  enddo
                if(i .eq. 5) expon(5,ll) = 1
                if(j .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(k .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(l .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(m .eq. 5) expon(5,ll) = 1 + expon(5,ll)
                if(n .eq. 5) expon(5,ll) = 1 + expon(5,ll)
		 enddo 
                enddo
               enddo
              enddo
             enddo
            enddo        

	end


        subroutine fill_0(ii,var,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,ii


        coeff(ii,ll)= var.me0.value


        end

        subroutine fill_1(ii,var,n,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii


        coeff(ii,ll)= var.me1(n).value


        end

        subroutine fill_2(ii,var,n,nn,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii,nn

        coeff(ii,ll)= var.me2(n,nn).value


        end



        subroutine fill_3(ii,var,n,nn,nnn,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii,nn,nnn


        coeff(ii,ll)= var.me3(n,nn,nnn).value


        end



        subroutine fill_4(ii,var,n,nn,nnn,nnnn,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii,nn,nnn,nnnn


        coeff(ii,ll)= var.me4(n,nn,nnn,nnnn).value


        end

        subroutine fill_5(ii,var,n,nn,nnn,nnnn,nnnnn,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii,nn,nnn,nnnn,nnnnn


        coeff(ii,ll)= var.me5(n,nn,nnn,nnnn,nnnnn).value


        end

        subroutine fill_6(ii,var,n,nn,nnn,nnnn,nnnnn,nnnnnn,ll)


	implicit none

	include 'db.inc'
        include 'conv.inc'


	record /ofp_targ/ var     	! data to use	

	integer ll,n,ii,nn,nnn,nnnn,nnnnn,nnnnnn


        coeff(ii,ll)= var.me6(n,nn,nnn,nnnn,nnnnn,nnnnnn).value


        end