SimulationCore2/CSharp/Equipments/ControlPanels/CHook.i90

# 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CHook.f90"
module CHook
    use CHookVariables
    use SimulationVariables
    implicit none    
    public
    contains

! subroutine HookFromJson(jsonfile)
! 	type(json_file)::jsonfile
! 	logical::found

!     call jsonfile%get('Equipments.HookHeight',data%State%Drawworks%Hook_Height_final,found)
!     if ( .not. found ) call logg(4,"Not found: Equipments.Hook.HookHeight")
! end subroutine

! subroutine HookToJson(parent)
!     type(json_value),pointer :: parent
!     type(json_core) :: json
!     type(json_value),pointer :: p

!     ! 1. create new node
!     call json%create_object(p,'Hook')
!     call json%add(p,"Velocity",data%State%Drawworks%HookLinearVelocity_final)
!     call json%add(parent,p)
! end subroutine
    
    subroutine Set_HookHeight(v)
        use CDrillingConsoleVariables
        use SimulationVariables
        implicit none
        real , intent(in) :: v
        data%Equipments%Hook%HookHeight = v
        
! if(associated(HookHeightPtr)) then
!     call HookHeightPtr(data%Equipments%Hook%HookHeight)
! end if
                
!**call data%Equipments%Hook%OnHookHeightChange%RunAll(data%Equipments%Hook%HookHeight)
    end subroutine
    
    
    subroutine Set_HookHeight_S(v)
        implicit none
        real , intent(in) :: v
        
        if(v == data%Equipments%Hook%HookHeight) then
            return
        elseif (v > data%Equipments%Hook%HookHeight) then
            loop1: do
                call Set_HookHeight(data%Equipments%Hook%HookHeight + 0.2)
                if(abs(v - data%Equipments%Hook%HookHeight) <= 0.1) then
                    call Set_HookHeight(v)
                    exit loop1
                endif
                call sleepqq(100)
            enddo loop1
        else ! v < HookHeight
            loop2: do
                call Set_HookHeight(data%Equipments%Hook%HookHeight - 0.2)
                if(abs(data%Equipments%Hook%HookHeight - v) <= 0.1) then
                    call Set_HookHeight(v)
                    exit loop2
                endif
                call sleepqq(100)
            enddo loop2
        endif
        
    end subroutine    
    
    subroutine Update_HookHeight_From_Snapshot()
        implicit none
        call Set_HookHeight_S(data%Equipments%Hook%HookHeight_S)
    end subroutine            
 end module CHook