module CStringUpdate
    use COperationScenariosVariables
    implicit none
    contains
    
    subroutine Evaluate_StringUpdate()
        implicit none
        
!        if (DriveType == TopDrive_DriveType) then
!#ifdef OST
!            print*, 'Evaluate_StringUpdate=TopDrive'
!#endif
!        endif
!        
!        
!        
!        
!        
!        
!        
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            print*, 'Evaluate_StringUpdate=Kelly'
!#endif
!        endif
!        
    end subroutine
    
    subroutine Subscribe_StringUpdate()
        implicit none
    end subroutine
    
end module CStringUpdate