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