SimulationCore2/CSharp/Problems/CBitProblems.f90

module CBitProblems
	use CBitProblemsVariables
	implicit none    
	public 
    contains   
    
    ! Input routines
    subroutine SetPlugJets(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetPlugJets
    !DEC$ ATTRIBUTES ALIAS: 'SetPlugJets' :: SetPlugJets
	    implicit none
	    type(CProblem), intent(in) :: v
	    BitProblems%PlugJets = SetDue(v, ChangePlugJets)
#ifdef deb
	    !print*, 'PlugJets%ProblemType=', PlugJets%ProblemType
	    !print*, 'PlugJets%StatusType=', PlugJets%StatusType
	    !print*, 'PlugJets%Value=', PlugJets%Value
	    !print*, 'PlugJets%DueValue=', PlugJets%DueValue
        
        call Log_3("==============================")
        call Log_3("PlugJets%ProblemType=", BitProblems%PlugJets%ProblemType)
	    call Log_3("PlugJets%StatusType=", BitProblems%PlugJets%StatusType)
	    call Log_3("PlugJets%Value=", BitProblems%PlugJets%Value)
	    call Log_3("PlugJets%DueValue=", BitProblems%PlugJets%DueValue)
        call Log_3("==============================")
#endif
    end subroutine

    subroutine SetJetWashout(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetJetWashout
    !DEC$ ATTRIBUTES ALIAS: 'SetJetWashout' :: SetJetWashout
	    implicit none
	    type(CProblem), intent(in) :: v
	    BitProblems%JetWashout = SetDue(v, ChangeJetWashout)
#ifdef deb
	    print*, 'JetWashout%ProblemType=', BitProblems%JetWashout%ProblemType
	    print*, 'JetWashout%StatusType=', BitProblems%JetWashout%StatusType
	    print*, 'JetWashout%Value=', BitProblems%JetWashout%Value
	    print*, 'JetWashout%DueValue=', BitProblems%JetWashout%DueValue
#endif
    end subroutine

    subroutine SetPlugJetsCount(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetPlugJetsCount
    !DEC$ ATTRIBUTES ALIAS: 'SetPlugJetsCount' :: SetPlugJetsCount
	    implicit none
	    integer, intent(in) :: v
	    BitProblems%PlugJetsCount = v
#ifdef deb
	    print*, 'PlugJetsCount=', BitProblems%PlugJetsCount
#endif
    end subroutine

    subroutine SetJetWashoutCount(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetJetWashoutCount
    !DEC$ ATTRIBUTES ALIAS: 'SetJetWashoutCount' :: SetJetWashoutCount
	    implicit none
	    integer, intent(in) :: v
	    BitProblems%JetWashoutCount = v
#ifdef deb
	    print*, 'JetWashoutCount=', BitProblems%JetWashoutCount
#endif
    end subroutine
    
end module CBitProblems