SimulationCore2/Equipments/Drawworks/DrawworksMain.i90

# 1 "/mnt/c/Projects/VSIM/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
        call Drawworks_StartUp
    end subroutine Drawworks_Init
    
    subroutine Drawworks_Step
        call Drawworks_MainSolver
    end subroutine Drawworks_Step
        
    subroutine DrawworksMainBody   
        use SimulationVariables !@
        implicit none
        Call Drawworks_StartUp
        loopdrawsim : do
            Call Drawworks_MainSolver
        end do loopdrawsim
    end subroutine DrawworksMainBody
end module DrawworksMain