Fixed Form Fortran OpenMP

      do ii = 0, 8

!c     Adding Parallelism to Collision loops - loop 1

      !$omp parallel do collapse(2) private(ii) shared(variables defined outside loop)
      do j = 0, 0
      do i = 0, nx

	  maths

	  enddo
	  enddo


!c     Adding Parallelism to Collision loops - loop 2

      !$omp parallel do collapse(2) private(ii) shared(ic, uu0, vv0, rr0, cp0, udr, udru, udc, udcu, ff, wa, RT, iter, nx)
      do j = 1, 1
      do i = 0, nx

	  maths

	  enddo
	  enddo


!c     Adding Parallelism to Collision loops - loop 3
      !$omp parallel do collapse(2) private(ii) shared(ic, uu0, vv0, rr0, cp0, udr, udru, udc, udcu, ff, wa, RT, iter, nx)
      do j = 2, ny
      do i = 0, nx
         print *, "Number of threads:", omp_get_num_threads()
         print *, "Thread ", omp_get_thread_num(), " is processing i = ", i, " j = ", j

		 maths

	  enddo
	  enddo
	  enddo