[Omp] (no subject)

[chandrapal.kailasanathan at dpi.nsw.gov.au]

Hi there,

Can anyone help me to parallelize the following piece of code? I know this 
is where it fails when i run in debug mode.



integer :: dim_header1_skip, dim_header2_skip, i, j, flag1, com_field1
integer, dimension(100) :: header1_skip_key, header2_skip_key


!$OMP PARALLEL DO
 
      do i=1,dim_header2_skip                                   ! for each column in header2_skip
      flag1=1
 
!$OMP PARALLEL DO
 
      do j=1,dim_header1_skip                                   ! check if it is in header1_skip
 
        !if (header2_skip(i)==header1_skip(j)) then
        if  (header2_skip_key(i)==header1_skip_key(j)) then
          flag1=0
          com_field1=j
          print *, flag1, com_field1
        endif 
 
      enddo
 
!$OMP END PARALLEL DO

      enddo

!$OMP END PARALLEL DO 


Regards,
Chandrapal

This message is intended for the addressee named and may contain 
confidential information. If you are not the intended recipient or 
received it in error, please delete the message and notify sender. Views 
expressed are those of the individual sender and are not necessarily the 
views of their organisation.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://openmp.org/pipermail/omp/attachments/20070905/aa3deaf6/attachment.html