D:/demona/2.0/manual/doc/2-31set/demona/debug/DBGcheckBC.f90

Go to the documentation of this file.

subroutine DBGcheckBC(opt1)
! add an option to use the following sets:
!
!       total set
!       global set


use global


implicit none

integer i,j,k

integer,pointer :: minJ,maxJ

integer opt1

if (opt1.eq.0) return


numberOfPhysics=>myModel%numberOfPhysics


do i=1,numberOfPhysics
        
        print*,'physics=',i
        print*,' '
        
        numberOfDomains=>myModel%physics(i)%numberOfDomains

        do j=1,numberOfDomains
                
                print*,'        domain=',j
                print*,' '

                minJ=>myModel%physics(i)%domain(j)%minJ
                maxJ=>myModel%physics(i)%domain(j)%maxJ
                
                do k=maxJ,minJ,-1

                        print*,myModel%physics(i)%domain(j)%dofMatrix(:,k,1,boundary)

                end do


        end do

end do



end subroutine DBGcheckBC

---