To Bug-fix team,

  I would like to report a bug in fortran mode.
  The problem is the change of the color scheme when we write this

     if (qmmm_mpi%commqmmm_master) then
    write (6,'(/a,i4,a)') '|QMMM: Running QMMM calculation in parallel mode
on ',qmmm_mpi%numthreads,' threads.'
        write (6,'(a)') '|QMMM: All atom division among
threads:'

        write (6,'(a)') '|QMMM:                  Start       End
Count'

    !Already know my
own.

    write(6,'(a,i8,a,i8,a,i8,a)') &
              '|QMMM: Thread(   0):
',qmmm_mpi%natom_start,'->',qmmm_mpi%natom_end,
&
                                    '
(',qmmm_mpi%natom_end-qmmm_mpi%natom_start+1,')'

    do i = 1, qmmm_mpi%numthreads-1
        call
mpi_recv(istartend,2,mpi_integer,i,0,qmmm_mpi%commqmmm,istatus,ier)

           write(6,'(a,i4,a,i8,a,i8,a,i8,a)') &
        '|QMMM: Thread(',i,'): ',istartend(1),'->',istartend(2),
&

                                    '
(',istartend(2)-istartend(1)+1,')'

       end do

and when we write only the second part of it

    do i = 1, qmmm_mpi%numthreads-1
        call
mpi_recv(istartend,2,mpi_integer,i,0,qmmm_mpi%commqmmm,istatus,ier)

           write(6,'(a,i4,a,i8,a,i8,a,i8,a)') &
        '|QMMM: Thread(',i,'): ',istartend(1),'->',istartend(2),
&

                                    '
(',istartend(2)-istartend(1)+1,')'

       end do

Can you tell me how to fix it?

Thank you in advance,
Victor Holanda Rusu
Departamento de Química Fundamental
Universidade Federal de Pernambuco
Fone: +55-81-2126-8440 ext 5007