SimulationCore2/Geo/GeoMain.i90

# 1 "/home/admin/SimulationCore2/Geo/GeoMain.f90"
module GeoMain
    use CLog4
    implicit none
    
    public
    
    integer :: SampleValue, TestValue
    
    contains
! subroutine Setup()
!     use CPathChangeEvents
!     implicit none
        
!     call BeforeTraverse%Add(InitialVarsBeforePathsChanges)
!     call OnPathOpen%Add(WhenPathOpen)
!     !call OnPathClose%Add(WhenPathClose)
        
! end subroutine
    
!     subroutine InitialVarsBeforePathsChanges()
!         implicit none
        
! #ifdef deb
!         if(print_log) print*, "ValveOne: FALSE (init)"
! #endif
        
!     end subroutine
    
!     subroutine WhenPathOpen(valves)
!         implicit none
!         integer, allocatable, intent (in) :: valves(:)
        
! !        if ( any(valves == 1)) then
! !#ifdef deb
! !            if(print_log) print*, "ValveOne: TRUE"
! !#endif
! !        endif
        
!     end subroutine
    
!     subroutine Geo_Setup()
!         ! use CSimulationVariables
!         implicit none
!         !call OnSimulationInitialization%Add(Geo_Init)
!         call OnSimulationStop%Add(Geo_Stop)
!         call OnGeoStart%Add(Geo_Start)
!         call OnGeoStep%Add(Geo_Step)
!         !call OnGeoOutput%Add(Geo_Output)
!         call OnGeoMain%Add(GeoMainBody)
!     end subroutine
    
    subroutine Geo_Stop
        implicit none
!if(print_log) print*, 'Geo_Stop'
    end subroutine Geo_Stop
    
! subroutine Geo_Start
!     implicit none
!     !if(print_log) print*, '****************Geo_Start****************'
! end subroutine Geo_Start
    
    subroutine Geo_Step
        implicit none
    end subroutine Geo_Step
    
! !subroutine Geo_Output
! !    implicit none
! !    !if(print_log) print*, 'Geo_Output'
! !end subroutine Geo_Output
    
! subroutine GeoMainBody
!     implicit none
! end subroutine GeoMainBody
    
end module GeoMain