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

Go to the documentation of this file.

subroutine DBGtestDiscrete(opt1,opt2)
! opt1 to return w/o execution
! opt2 = 0 for y evaluation (y is overwritten!)
! opt2 = 1 for tempy evaluation (tempy is overwritten) 
!          if you want to keep y ontouched then use the following
!          tempy=y
!          call testDiscrete(1,1)
! 

use global

use model


implicit none


integer i

integer opt1,opt2


if (opt1.eq.0) return




select case(opt2)


        case(0)

                y=discrete(0)

                do i=1,globalCurrentSetLength



                !y(setVec(i))=i
                print*,i,y(i)


                end do


        case(1)


                tempy=discrete(1)

                do i=1,globalCurrentSetLength



                !y(setVec(i))=i
                print*,i,tempy(i)


                end do



        case default


        print*,'invalid opt2'
        print*,'demona stop in testDiscrete'
        stop



end select




end subroutine DBGtestDiscrete

---