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