msolve_struct.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	msolve_struct (n, r, z, nelt, ia, ja, a, isym, rwork, iwork)

Function/Subroutine Documentation

msolve_struct()

subroutine msolve_struct	(	integer	n,
		real*8, dimension(*)	r,
		real*8, dimension(*)	z,
		integer	nelt,
		integer, dimension(*)	ia,
		integer, dimension(*)	ja,
		real*8, dimension(*)	a,
		integer	isym,
		real*8, dimension(*)	rwork,
		integer, dimension(*)	iwork
	)

!
      implicit none
!
      integer n,nelt,ia(*),ja(*),isym,iwork(*),i,nd
!
      real*8 r(*),z(*),a(*),rwork(*)
!
c$omp parallel default(none)
c$omp& shared(n,z,r,rwork)
c$omp& private(i)
c$omp do
      do i=1,n
         z(i)=r(i)*rwork(i)
      enddo
c$omp end do
c$omp end parallel
!
      return