SimulationCore2/CSharp/OperationScenarios/Permissions/Permissions.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Permissions/Permissions.f90"
module PermissionsModule
    use SimulationVariables
    implicit none
    
contains
    subroutine Set_SwingTiltPermission(v)
        implicit none
        logical , intent(in) :: v
# 11

        data%State%permissions%SwingTiltPermission = v
# 15

!**call data%State%permissions%OnSwingTiltPermissionChange%RunAll()
    end subroutine

    logical function Get_SwingTiltPermission()
        implicit none
        Get_SwingTiltPermission = data%State%permissions%SwingTiltPermission
    end function

    subroutine Set_SwingOffPermission(v)
        implicit none
        logical , intent(in) :: v
# 29

        data%State%permissions%SwingOffPermission = v
# 33

!**call data%State%permissions%OnSwingOffPermissionChange%RunAll()
    end subroutine

    logical function Get_SwingOffPermission()
        implicit none
        Get_SwingOffPermission = data%State%permissions%SwingOffPermission
    end function

    subroutine Set_SwingDrillPermission(v)
        implicit none
        logical , intent(in) :: v
# 47

        data%State%permissions%SwingDrillPermission = v
# 51

!**call data%State%permissions%OnSwingDrillPermissionChange%RunAll()
    end subroutine

    logical function Get_SwingDrillPermission()
        implicit none
        Get_SwingDrillPermission = data%State%permissions%SwingDrillPermission
    end function

    subroutine Set_RemoveMudBucketPermission(v)
        implicit none
        logical , intent(in) :: v
# 65

        data%State%permissions%RemoveMudBucketPermission = v
# 69

!**call data%State%permissions%OnRemoveMudBucketPermissionChange%RunAll()
    end subroutine

    logical function Get_RemoveMudBucketPermission()
        implicit none
        Get_RemoveMudBucketPermission = data%State%permissions%RemoveMudBucketPermission
    end function


    subroutine Set_RemoveFillupHeadPermission(v)
        implicit none
        logical , intent(in) :: v
# 84

        data%State%permissions%RemoveFillupHeadPermission = v
# 88

!**call data%State%permissions%OnRemoveFillupHeadPermissionChange%RunAll()
    end subroutine

    logical function Get_RemoveFillupHeadPermission()
        implicit none
        Get_RemoveFillupHeadPermission = data%State%permissions%RemoveFillupHeadPermission
    end function

    subroutine Set_IrSafetyValvePermission(v)
        implicit none
        logical , intent(in) :: v
# 102

        data%State%permissions%IrSafetyValvePermission = v
# 106

!**call data%State%permissions%OnIrSafetyValvePermissionChange%RunAll()
    end subroutine

    logical function Get_IrSafetyValvePermission()
        implicit none
        Get_IrSafetyValvePermission = data%State%permissions%IrSafetyValvePermission
    end function

    subroutine Set_IrIbopPermission(v)
        implicit none
        logical , intent(in) :: v
# 120

        data%State%permissions%IrIbopPermission = v
# 124

!**call data%State%permissions%OnIrIbopPermissionChange%RunAll()
    end subroutine

    logical function Get_IrIbopPermission()
        implicit none
        Get_IrIbopPermission = data%State%permissions%IrIbopPermission
    end function


    subroutine Set_InstallMudBucketPermission(v)
        implicit none
        logical , intent(in) :: v
# 139

        data%State%permissions%InstallMudBucketPermission = v
# 143

!**call data%State%permissions%OnInstallMudBucketPermissionChange%RunAll()
    end subroutine

    logical function Get_InstallMudBucketPermission()
        implicit none
        Get_InstallMudBucketPermission = data%State%permissions%InstallMudBucketPermission
    end function

    subroutine Set_InstallFillupHeadPermission(v)
        implicit none
        logical , intent(in) :: v
# 157

        data%State%permissions%InstallFillupHeadPermission = v
# 161

!**call data%State%permissions%OnInstallFillupHeadPermissionChange%RunAll()
    end subroutine

    logical function Get_InstallFillupHeadPermission()
        implicit none
        Get_InstallFillupHeadPermission = data%State%permissions%InstallFillupHeadPermission
    end function

    subroutine Set_FillupHeadPermission(v)
        implicit none
        logical , intent(in) :: v
# 175

        data%State%permissions%FillupHeadPermission = v
# 179

!**call data%State%permissions%OnFillupHeadPermissionChange%RunAll()
    end subroutine

    logical function Get_FillupHeadPermission()
        implicit none
        Get_FillupHeadPermission = data%State%permissions%FillupHeadPermission
    end function

end module PermissionsModule