SimulationCore2/CSharp/Problems/CPumpProblems.f90

module CPumpProblems
    use CPumpProblemsVariables
	implicit none    
	public 
    contains
    
!     ! Input routines
! 	subroutine SetPump1PowerFail(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetPump1PowerFail
! 	!DEC$ ATTRIBUTES ALIAS: 'SetPump1PowerFail' :: SetPump1PowerFail
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		Pump1PowerFail = SetDue(v, ChangePump1PowerFail)
! #ifdef deb
! 	    print*, 'Pump1PowerFail%ProblemType=', V%ProblemType
! 	    print*, 'Pump1PowerFail%StatusType=', V%StatusType
! 	    print*, 'Pump1PowerFail%Value=', V%Value
! #endif
! 	end subroutine

! 	subroutine SetPump1BlowPopOffValve(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetPump1BlowPopOffValve
! 	!DEC$ ATTRIBUTES ALIAS: 'SetPump1BlowPopOffValve' :: SetPump1BlowPopOffValve
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		PumpProblems%Pump1BlowPopOffValve = SetDue(v, ChangePump1BlowPopOffValve)
! #ifdef deb
! 	    print*, 'Pump1BlowPopOffValve%ProblemType=', V%ProblemType
! 	    print*, 'Pump1BlowPopOffValve%StatusType=', V%StatusType
! 	    print*, 'Pump1BlowPopOffValve%Value=', V%Value
! #endif
! 	end subroutine

! 	subroutine SetPump2PowerFail(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetPump2PowerFail
! 	!DEC$ ATTRIBUTES ALIAS: 'SetPump2PowerFail' :: SetPump2PowerFail
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		PumpProblems%Pump2PowerFail = SetDue(v, ChangePump2PowerFail)
! #ifdef deb
! 	    print*, 'Pump2PowerFail%ProblemType=', V%ProblemType
! 	    print*, 'Pump2PowerFail%StatusType=', V%StatusType
! 	    print*, 'Pump2PowerFail%Value=', V%Value
! #endif
! 	end subroutine

! 	subroutine SetPump2BlowPopOffValve(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetPump2BlowPopOffValve
! 	!DEC$ ATTRIBUTES ALIAS: 'SetPump2BlowPopOffValve' :: SetPump2BlowPopOffValve
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		PumpProblems%Pump2BlowPopOffValve = SetDue(v, ChangePump2BlowPopOffValve)
! #ifdef deb
! 	    print*, 'Pump2BlowPopOffValve%ProblemType=', V%ProblemType
! 	    print*, 'Pump2BlowPopOffValve%StatusType=', V%StatusType
! 	    print*, 'Pump2BlowPopOffValve%Value=', V%Value
! #endif
! 	end subroutine

! 	subroutine SetCementPumpPowerFail(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpPowerFail
! 	!DEC$ ATTRIBUTES ALIAS: 'SetCementPumpPowerFail' :: SetCementPumpPowerFail
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		PumpProblems%CementPumpPowerFail = SetDue(v, ChangeCementPumpPowerFail)
! #ifdef deb
! 	    print*, 'CementPumpPowerFail%ProblemType=', V%ProblemType
! 	    print*, 'CementPumpPowerFail%StatusType=', V%StatusType
! 	    print*, 'CementPumpPowerFail%Value=', V%Value
! #endif
! 	end subroutine

! 	subroutine SetCementPumpBlowPopOffValve(v)
! 	!DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpBlowPopOffValve
! 	!DEC$ ATTRIBUTES ALIAS: 'SetCementPumpBlowPopOffValve' :: SetCementPumpBlowPopOffValve
! 		implicit none
! 		type(CProblem), intent(in) :: v
! 		PumpProblems%CementPumpBlowPopOffValve = SetDue(v, ChangeCementPumpBlowPopOffValve)
! #ifdef deb
! 	    print*, 'CementPumpBlowPopOffValve%ProblemType=', V%ProblemType
! 	    print*, 'CementPumpBlowPopOffValve%StatusType=', V%StatusType
! 	    print*, 'CementPumpBlowPopOffValve%Value=', V%Value
! #endif
!     end subroutine

end module CPumpProblems