SimulationCore2/CSharp/BasicInputs/CMudProperties.f90

module CMudProperties
    use CMudPropertiesVariables
    use CLog4
    implicit none    
    public    
    contains    
    subroutine SetActiveMudType(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveMudType
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveMudType' :: SetActiveMudType
        implicit none
        integer, intent(in) :: v
        ActiveMudType = v            
    end subroutine
        
    subroutine SetActiveRheologyModel(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveRheologyModel
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveRheologyModel' :: SetActiveRheologyModel
        implicit none
        integer, intent(in) :: v
        ActiveRheologyModel = v
#ifdef deb
        call Log_4( '=====ActiveRheologyModel=', ActiveRheologyModel)
#endif
    end subroutine
        
    subroutine SetActiveMudVolume(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveMudVolume
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveMudVolume' :: SetActiveMudVolume
        implicit none
        real*8, intent(in) :: v
        ActiveMudVolume = v
        !call Log_5('ActiveDensity=', ActiveDensity)
#ifdef deb
        print*, 'ActiveMudVolume=', ActiveMudVolume
#endif
        ActiveMudVolumeGal = v * 42.0
        call OnActiveMudVolumeChange%RunAll(v * 42.0d0)
    end subroutine
        
    subroutine SetActiveDensity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveDensity
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveDensity' :: SetActiveDensity
        implicit none
        real*8, intent(in) :: v
        ActiveDensity = v   
        !call Log_5('ActiveDensity=', ActiveDensity)
#ifdef deb
        print*, 'ActiveDensity=', ActiveDensity
#endif
        call OnActiveDensityChange%RunAll(v)
    end subroutine
    
    subroutine SetActiveThetaThreeHundred(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveThetaThreeHundred
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveThetaThreeHundred' :: SetActiveThetaThreeHundred
        implicit none
        real*8, intent(in) :: v
        ActiveThetaThreeHundred = v            
    end subroutine
        
    subroutine SetActiveThetaSixHundred(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveThetaSixHundred
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveThetaSixHundred' :: SetActiveThetaSixHundred
        implicit none
        real*8, intent(in) :: v
        ActiveThetaSixHundred = v            
    end subroutine
    
    
    subroutine SetReserveMudType(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveMudType
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveMudType' :: SetReserveMudType
        implicit none
        integer, intent(in) :: v
        ReserveMudType = v            
    end subroutine
    
    subroutine SetReserveMudVolume(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveMudVolume
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveMudVolume' :: SetReserveMudVolume
        implicit none
        real*8, intent(in) :: v
        ReserveMudVolume = v 
        !call Log_5('ReserveMudVolume=', ReserveMudVolume)
#ifdef deb
        print*, 'ReserveMudVolume=', ReserveMudVolume
#endif

        ReserveMudVolumeGal = v * 42.0
        call OnReserveMudVolumeChange%RunAll(v * 42.0d0)
    end subroutine
        
    subroutine SetReserveDensity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveDensity
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveDensity' :: SetReserveDensity
        implicit none
        real*8, intent(in) :: v
        ReserveDensity = v 
        !call Log_5('ReserveDensity=', ReserveDensity)
#ifdef deb
        print*, 'ReserveDensity=', ReserveDensity
#endif
        call OnReserveDensityChange%RunAll(v)
    end subroutine
    
    subroutine SetReserveThetaThreeHundred(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveThetaThreeHundred
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveThetaThreeHundred' :: SetReserveThetaThreeHundred
        implicit none
        real*8, intent(in) :: v
        ReserveThetaThreeHundred = v            
    end subroutine
        
    subroutine SetReserveThetaSixHundred(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveThetaSixHundred
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveThetaSixHundred' :: SetReserveThetaSixHundred
        implicit none
        real*8, intent(in) :: v
        ReserveThetaSixHundred = v            
    end subroutine
    
    
    subroutine SetActiveTotalTankCapacity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveTotalTankCapacity
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveTotalTankCapacity' :: SetActiveTotalTankCapacity
	    implicit none
	    real*8, intent(in) :: v
	    ActiveTotalTankCapacity = v
	    ActiveTotalTankCapacityGal = v * 42.0
#ifdef deb
	    print*, 'ActiveTotalTankCapacity=', ActiveTotalTankCapacity
#endif
    end subroutine

    subroutine SetActiveSettledContents(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveSettledContents
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveSettledContents' :: SetActiveSettledContents
	    implicit none
	    real*8, intent(in) :: v
	    ActiveSettledContents = v
	    ActiveSettledContentsGal = v * 42.0
#ifdef deb
	    print*, 'ActiveSettledContents=', ActiveSettledContents
#endif
    end subroutine

    subroutine SetActiveTotalContents(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveTotalContents
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveTotalContents' :: SetActiveTotalContents
	    implicit none
	    real*8, intent(in) :: v
	    ActiveTotalContents = v
	    ActiveTotalContentsGal = v * 42.0
#ifdef deb
	    print*, 'ActiveTotalContents=', ActiveTotalContents
#endif
    end subroutine

    subroutine SetActivePlasticViscosity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActivePlasticViscosity
    !DEC$ ATTRIBUTES ALIAS: 'SetActivePlasticViscosity' :: SetActivePlasticViscosity
	    implicit none
	    real*8, intent(in) :: v
	    ActivePlasticViscosity = v
#ifdef deb
	    print*, 'ActivePlasticViscosity=', ActivePlasticViscosity
#endif
    end subroutine

    subroutine SetActiveYieldPoint(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveYieldPoint
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveYieldPoint' :: SetActiveYieldPoint
	    implicit none
	    real*8, intent(in) :: v
	    ActiveYieldPoint = v
#ifdef deb
	    print*, 'ActiveYieldPoint=', ActiveYieldPoint
#endif
    end subroutine

    subroutine SetActiveAutoDensity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetActiveAutoDensity
    !DEC$ ATTRIBUTES ALIAS: 'SetActiveAutoDensity' :: SetActiveAutoDensity
	    implicit none
	    logical, intent(in) :: v
	    ActiveAutoDensity = v
#ifdef deb
	    print*, 'ActiveAutoDensity=', ActiveAutoDensity
#endif
    end subroutine

    subroutine SetReservePlasticViscosity(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReservePlasticViscosity
    !DEC$ ATTRIBUTES ALIAS: 'SetReservePlasticViscosity' :: SetReservePlasticViscosity
	    implicit none
	    real*8, intent(in) :: v
	    ReservePlasticViscosity = v
#ifdef deb
	    print*, 'ReservePlasticViscosity=', ReservePlasticViscosity
#endif
    end subroutine

    subroutine SetReserveYieldPoint(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetReserveYieldPoint
    !DEC$ ATTRIBUTES ALIAS: 'SetReserveYieldPoint' :: SetReserveYieldPoint
	    implicit none
	    real*8, intent(in) :: v
	    ReserveYieldPoint = v
#ifdef deb
	    print*, 'ReserveYieldPoint=', ReserveYieldPoint
#endif
    end subroutine

    subroutine SetInitialTripTankMudVolume(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetInitialTripTankMudVolume
    !DEC$ ATTRIBUTES ALIAS: 'SetInitialTripTankMudVolume' :: SetInitialTripTankMudVolume
	    implicit none
	    real*8, intent(in) :: v
	    InitialTripTankMudVolume = v
	    InitialTripTankMudVolumeGal = v * 42.0
#ifdef deb
	    print*, 'InitialTripTankMudVolume=', InitialTripTankMudVolume
#endif
    end subroutine

    subroutine SetPedalFlowMeter(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetPedalFlowMeter
    !DEC$ ATTRIBUTES ALIAS: 'SetPedalFlowMeter' :: SetPedalFlowMeter
	    implicit none
	    real*8, intent(in) :: v
	    PedalFlowMeter = v
#ifdef deb
	    print*, 'PedalFlowMeter=', PedalFlowMeter
#endif
    end subroutine
        
end module CMudProperties