SimulationCore2/Equipments/Drawworks/DrawworksMain.f90

module DrawworksMain
    implicit none
    public
    contains
    
    subroutine Drawworks_Setup()
        use CSimulationVariables
        implicit none
        call OnSimulationInitialization%Add(Drawworks_Init)
        call OnSimulationStop%Add(Drawworks_Init)
        call OnDrawworksStep%Add(Drawworks_Step)
        call OnDrawworksOutput%Add(Drawworks_Output)
        call OnDrawworksMain%Add(DrawworksMainBody)
    end subroutine
    
    subroutine Drawworks_Init
        implicit none
    end subroutine Drawworks_Init
    
    subroutine Drawworks_Step
        implicit none
    end subroutine Drawworks_Step
    
    subroutine Drawworks_Output
        implicit none
    end subroutine Drawworks_Output
    
    subroutine DrawworksMainBody
       
        Use Drawworks_VARIABLES
    
        implicit none
    
    
        Call Drawworks_StartUp
    
    
        loopdrawsim : do
        
            Call Drawworks_MainSolver
        
        end do loopdrawsim 
    
    
    end subroutine DrawworksMainBody
        
end module DrawworksMain