SimulationCore2/trash/CKellyEnum.f90

module CKellyEnum
    use OperationScenariosModule
    implicit none
    contains
    
    subroutine Evaluate_Kelly()
        !use UnitySignalsModule
        implicit none
        
        
!        if (DriveType == TopDrive_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_Kelly=TopDrive'
!#endif
!        endif
!        
!        
!        
!        
!        
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_Kelly=Kelly'
!#endif
!        endif
        
        
        
        
        
!        if(OperationCondition == OPERATION_DRILL) then
!            call Set_Kelly(INSTALL_KELLY)
!#ifdef deb
!	    if(print_log) print*, 'KELLY=INSTALL_KELLY'
!#endif
!        endif
!        if(OperationCondition == OPERATION_TRIP) then
!            call Set_Kelly(KELLY_BACK)
!#ifdef deb
!	    if(print_log) print*, 'KELLY=KELLY_BACK'
!#endif
!        endif
        
    end subroutine
    
    subroutine Subscribe_Kelly()
        implicit none
        !call OnOperationConditionChangeInt%Add(On_OperationCondition)
    end subroutine
!    
!    subroutine On_OperationCondition(v)
!        implicit none
!        integer , intent(in) :: v
!        if(v == OPERATION_DRILL) then
!            call Set_Kelly(KELLY_INSTALL)
!#ifdef deb
!	    if(print_log) print*, 'KELLY=INSTALL_KELLY'
!#endif
!        endif
!        if(v == OPERATION_TRIP) then
!            call Set_Kelly(KELLY_REMOVE)
!#ifdef deb
!	    if(print_log) print*, 'KELLY=KELLY_BACK'
!#endif
!        endif
!        
!    end subroutine
    
end module CKellyEnum