SimulationCore2/Equipments/BopStack/KillLineMain.i90

# 1 "/home/admin/SimulationCore2/Equipments/BopStack/KillLineMain.f90"
module KillLineMain
    implicit none
    public
    contains
    
! subroutine KillLine_Setup()
!     ! use CSimulationVariables
!     implicit none
!     call OnSimulationInitialization%Add(KillLine_Init)
!     call OnSimulationStop%Add(KillLine_Init)
!     call OnKillLineStep%Add(KillLine_Step)
!     call OnKillLineOutput%Add(KillLine_Output)
!     call OnKillLineMain%Add(KillLineMainBody)
! end subroutine
    
! subroutine KillLine_Init
!     implicit none
! end subroutine KillLine_Init
    
    subroutine KillLine_Step
        use SimulationVariables
        implicit none
        if (data%State%KillLine%finished/=0) then
            call KILL_LINE
            if (data%State%KillLine%IsOpening .or. data%State%KillLine%IsClosing) then
                if(data%State%KillLine%finished==0) then
                    call KILL_LINE_SUB !only body of loop2
                endif
            endif
        else
            call KILL_LINE_SUB
        endif
    end subroutine KillLine_Step
    
    
end module KillLineMain