SimulationCore2/Rop/RopMain.f90

module RopMain
    implicit none
    public
    contains
    
    ! subroutine Rop_Setup()
    !     ! use CSimulationVariables
    !     implicit none
    !     call OnSimulationInitialization%Add(Rop_Init)
    !     call OnSimulationStop%Add(Rop_Init)
    !     call OnRopStep%Add(Rop_Step)
    !     call OnRopOutput%Add(Rop_Output)
    !     call OnRopMain%Add(RopMainBody)
    ! end subroutine
    
    ! subroutine Rop_Init
    !     implicit none
    ! end subroutine Rop_Init
    
    subroutine Rop_Step
        implicit none
    end subroutine Rop_Step
    
    ! subroutine Rop_Output
    !     implicit none
    ! end subroutine Rop_Output
    
    
    ! subroutine RopMainBody   
    !     implicit none   
    !     !loop1: do
    !     !call sleep(1)
    !     !call Calculate_ROP
    !         !write(*,*) 'ROP main reached'
    !     !end do loop1
    ! end subroutine RopMainBody
    
end module RopMain