SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPumps.f90

module CPumps
    use CPumpsVariables
    use CManifolds
    use CLog4
    implicit none    
    public    
    contains    
    subroutine SetMudPump1LinerDiameter(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1LinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1LinerDiameter' :: SetMudPump1LinerDiameter
        implicit none
        real*8, intent(in) :: v
        MudPump1LinerDiameter = v
        call CalcPump1OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump1LinerDiameter=', MudPump1LinerDiameter)
#endif
    end subroutine
        
    subroutine SetMudPump1Stroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1Stroke
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1Stroke' :: SetMudPump1Stroke
        implicit none
        real*8, intent(in) :: v
        MudPump1Stroke = v  
        !call CalcMudPump1LinerDiameter()
        call CalcPump1OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump1Stroke=', v)
#endif
    end subroutine
        
    subroutine SetMudPump1MechanicalEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1MechanicalEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1MechanicalEfficiency' :: SetMudPump1MechanicalEfficiency
        implicit none
        real*8, intent(in) :: v
        MudPump1MechanicalEfficiency = v            
    end subroutine
                
    subroutine SetMudPump1VolumetricEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1VolumetricEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1VolumetricEfficiency' :: SetMudPump1VolumetricEfficiency
        implicit none
        real*8, intent(in) :: v
        MudPump1VolumetricEfficiency = v  
        !call CalcMudPump1LinerDiameter()
        call CalcPump1OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump1VolumetricEfficiency=', MudPump1VolumetricEfficiency)
#endif
    end subroutine
        
    subroutine SetMudPump1Output(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1Output
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1Output' :: SetMudPump1Output
        implicit none
        real*8, intent(in) :: v
        MudPump1Output = v 
#ifdef deb
	    print*, 'MudPump1Output=', MudPump1Output
#endif
    end subroutine
        
    subroutine SetMudPump1OutputBblStroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1OutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1OutputBblStroke' :: SetMudPump1OutputBblStroke
	    implicit none
	    real*8, intent(in) :: v
	    MudPump1OutputBblStroke = v
        call CalcMudPump1LinerDiameter()
#ifdef deb
	    print*, 'MudPump1OutputBblStroke=', MudPump1OutputBblStroke
#endif
    end subroutine
        
    subroutine SetMudPump1Maximum(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1Maximum
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1Maximum' :: SetMudPump1Maximum
        implicit none
        real*8, intent(in) :: v
        MudPump1Maximum = v            
    end subroutine
        
    subroutine SetMudPump1ReliefValvePressure(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1ReliefValvePressure
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1ReliefValvePressure' :: SetMudPump1ReliefValvePressure
        implicit none
        real*8, intent(in) :: v
        MudPump1ReliefValvePressure = v            
    end subroutine
        
        
        
    subroutine SetMudPump2LinerDiameter(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2LinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2LinerDiameter' :: SetMudPump2LinerDiameter
        implicit none
        real*8, intent(in) :: v
        MudPump2LinerDiameter = v
        call CalcPump2OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump2LinerDiameter=', MudPump2LinerDiameter)
#endif
    end subroutine
                
    subroutine SetMudPump2Stroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2Stroke
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2Stroke' :: SetMudPump2Stroke
        implicit none
        real*8, intent(in) :: v
        MudPump2Stroke = v  
        !call CalcMudPump2LinerDiameter()
        call CalcPump2OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump2Stroke=', MudPump2Stroke)
#endif
    end subroutine
                
    subroutine SetMudPump2MechanicalEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2MechanicalEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2MechanicalEfficiency' :: SetMudPump2MechanicalEfficiency
        implicit none
        real*8, intent(in) :: v
        MudPump2MechanicalEfficiency = v            
    end subroutine
                
    subroutine SetMudPump2VolumetricEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2VolumetricEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2VolumetricEfficiency' :: SetMudPump2VolumetricEfficiency
        implicit none
        real*8, intent(in) :: v
        MudPump2VolumetricEfficiency = v 
        !call CalcMudPump2LinerDiameter()
        call CalcPump2OutputBblStroke()
#ifdef deb
	    call Log_4( 'MudPump2VolumetricEfficiency=', MudPump2VolumetricEfficiency)
#endif
    end subroutine
        
    subroutine SetMudPump2Output(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2Output
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2Output' :: SetMudPump2Output
        implicit none
        real*8, intent(in) :: v
        MudPump2Output = v 
#ifdef deb
	    print*, 'MudPump2Output=', MudPump2Output
#endif
    end subroutine
        
    subroutine SetMudPump2OutputBblStroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2OutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2OutputBblStroke' :: SetMudPump2OutputBblStroke
	    implicit none
	    real*8, intent(in) :: v
	    MudPump2OutputBblStroke = v
        call CalcMudPump2LinerDiameter()
#ifdef deb
	    print*, 'MudPump2OutputBblStroke=', MudPump2OutputBblStroke
#endif
    end subroutine
        
    subroutine SetMudPump2Maximum(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2Maximum
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2Maximum' :: SetMudPump2Maximum
        implicit none
        real*8, intent(in) :: v
        MudPump2Maximum = v            
    end subroutine
        
    subroutine SetMudPump2ReliefValvePressure(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump2ReliefValvePressure
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump2ReliefValvePressure' :: SetMudPump2ReliefValvePressure
        implicit none
        real*8, intent(in) :: v
        MudPump2ReliefValvePressure = v    
    end subroutine
        
        
        
    subroutine SetCementPumpLinerDiameter(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpLinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpLinerDiameter' :: SetCementPumpLinerDiameter
        implicit none
        real*8, intent(in) :: v
        CementPumpLinerDiameter = v  
        call CalcPump3OutputBblStroke()
#ifdef deb
	    call Log_4( 'CementPumpLinerDiameter=', CementPumpLinerDiameter)
#endif
    end subroutine

    subroutine SetCementPumpStroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpStroke
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpStroke' :: SetCementPumpStroke
        implicit none
        real*8, intent(in) :: v
        CementPumpStroke = v   
        !call CalcMudPump3LinerDiameter()
        call CalcPump3OutputBblStroke()
#ifdef deb
	    call Log_4( 'CementPumpStroke=', CementPumpStroke)
#endif
    end subroutine
        
    subroutine SetCementPumpMechanicalEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpMechanicalEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpMechanicalEfficiency' :: SetCementPumpMechanicalEfficiency
        implicit none
        real*8, intent(in) :: v
        CementPumpMechanicalEfficiency = v            
    end subroutine
        
    subroutine SetCementPumpVolumetricEfficiency(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpVolumetricEfficiency
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpVolumetricEfficiency' :: SetCementPumpVolumetricEfficiency
        implicit none
        real*8, intent(in) :: v
        CementPumpVolumetricEfficiency = v    
        !call CalcMudPump3LinerDiameter()
        call CalcPump3OutputBblStroke()
#ifdef deb
	    call Log_4( 'CementPumpVolumetricEfficiency=', CementPumpVolumetricEfficiency)
#endif
    end subroutine
        
    subroutine SetCementPumpOutput(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpOutput
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpOutput' :: SetCementPumpOutput
        implicit none
        real*8, intent(in) :: v
        CementPumpOutput = v 
#ifdef deb
	    print*, 'CementPumpOutput=', CementPumpOutput
#endif
    end subroutine
        
    subroutine SetCementPumpOutputBblStroke(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpOutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpOutputBblStroke' :: SetCementPumpOutputBblStroke
	    implicit none
	    real*8, intent(in) :: v
	    CementPumpOutputBblStroke = v
        call CalcMudPump3LinerDiameter()
#ifdef deb
	    print*, 'CementPumpOutputBblStroke=', CementPumpOutputBblStroke
#endif
    end subroutine
        
    subroutine SetCementPumpMaximum(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpMaximum
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpMaximum' :: SetCementPumpMaximum
        implicit none
        real*8, intent(in) :: v
        CementPumpMaximum = v            
    end subroutine
        
    subroutine SetCementPumpReliefValvePressure(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpReliefValvePressure
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpReliefValvePressure' :: SetCementPumpReliefValvePressure
        implicit none
        real*8, intent(in) :: v
        CementPumpReliefValvePressure = v            
    end subroutine
        
    subroutine SetMudPump1ReliefValveIsSet(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetMudPump1ReliefValveIsSet
    !DEC$ ATTRIBUTES ALIAS: 'SetMudPump1ReliefValveIsSet' :: SetMudPump1ReliefValveIsSet
	    implicit none
	    logical, intent(in) :: v
        if (MudPump1ReliefValveIsSet == v) return
	    MudPump1ReliefValveIsSet = v
#ifdef deb
	    print*, 'MudPump1ReliefValveIsSet=', MudPump1ReliefValveIsSet
#endif
    end subroutine

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

    subroutine SetCementPumpReliefValveIsSet(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetCementPumpReliefValveIsSet
    !DEC$ ATTRIBUTES ALIAS: 'SetCementPumpReliefValveIsSet' :: SetCementPumpReliefValveIsSet
	    implicit none
	    logical, intent(in) :: v
        if (CementPumpReliefValveIsSet == v) return
	    CementPumpReliefValveIsSet = v
#ifdef deb
	    print*, 'CementPumpReliefValveIsSet=', CementPumpReliefValveIsSet
#endif
    end subroutine
        
        
        
        
        
        
    subroutine SetManualPumpPower(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetManualPumpPower
    !DEC$ ATTRIBUTES ALIAS: 'SetManualPumpPower' :: SetManualPumpPower
	    implicit none
	    logical, intent(in) :: v
	    ManualPumpPower = v
        call ChangeValve(23, v)
#ifdef deb
	    print*, 'ManualPumpPower=', ManualPumpPower
#endif
    end subroutine

    subroutine SetValve1(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetValve1
    !DEC$ ATTRIBUTES ALIAS: 'SetValve1' :: SetValve1
	    implicit none
	    logical, intent(in) :: v
	    Valve1 = v
        call ChangeValve(22, v)
#ifdef deb
	    print*, 'Valve1=', Valve1
#endif
    end subroutine

    subroutine SetValve2(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetValve2
    !DEC$ ATTRIBUTES ALIAS: 'SetValve2' :: SetValve2
	    implicit none
	    logical, intent(in) :: v
	    Valve2 = v
        call ChangeValve(19, v)
#ifdef deb
	    print*, 'Valve2=', Valve2
#endif
    end subroutine

    subroutine SetValve3(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetValve3
    !DEC$ ATTRIBUTES ALIAS: 'SetValve3' :: SetValve3
	    implicit none
	    logical, intent(in) :: v
	    Valve3 = v
        call ChangeValve(21, v)
#ifdef deb
	    print*, 'Valve3=', Valve3
#endif
    end subroutine

    subroutine SetValve4(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetValve4
    !DEC$ ATTRIBUTES ALIAS: 'SetValve4' :: SetValve4
	    implicit none
	    logical, intent(in) :: v
	    Valve4 = v
        call ChangeValve(20, v)
#ifdef deb
	    print*, 'Valve4=', Valve4
#endif
    end subroutine

    subroutine SetValve5(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetValve5
    !DEC$ ATTRIBUTES ALIAS: 'SetValve5' :: SetValve5
	    implicit none
	    logical, intent(in) :: v
	    Valve5 = v
        call ChangeValve(24, v)
#ifdef deb
	    print*, 'Valve5=', Valve5
#endif
    end subroutine
        
        
end module CPumps