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_Step implicit none end subroutine Rop_Step end module RopMain