subroutine foo(a)
      logical bar
      dimension a(12,2)
      dimension b(12,8)
      if(cd .eq. 1) then
         if (bar) write(iw,*) norb
         if(ef.ne.1) then
            do i=1,norb
            end do
         end if
      end if
         do 400 j = 1,8
            b(i,j) = 0
  400    continue
         do 410 j=1,norb
            a(i,j) = 0
  410    continue
      call rdrsym(b)
      end