SimulationCore2/trash/CSlipsEnum.f90

module CSlipsEnum
    use OperationScenariosModule
    implicit none
    contains
    
    subroutine Evaluate_Slips()
        implicit none
        
!        if (DriveType == TopDrive_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_Slips=TopDrive'
!#endif
!        endif
!        
!        
!        
!        
!        
!        
!        
!        
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            if(print_log) print*, 'Evaluate_Slips=Kelly'
!#endif
!        endif
        
    end subroutine
    
    ! subroutine Subscribe_Slips()
    !     use CDrillingConsoleVariables
    !     use ConfigurationVariables
    !     use ConfigurationVariables
    !     implicit none
        
    !     !call Set_Slips(SLIPS_SET)
        
    !     call OnSlipsPress%Add(ButtonPress_Slips)
    ! end subroutine
    

    
end module CSlipsEnum