StartTreeMig.f90

Go to the documentation of this file.

!==============================================================================
!==============================================================================
PROGRAM starttreemig
    USE tmmpitypes, only: numprocs, master
    IMPLICIT NONE
    INTEGER ::  iam
    LOGICAL ::  doparallel
    
    ! according to f90 compiler options -DPARALLEL, -DWITHMPI. Done with the compiler directives #...
   
    numprocs = 0
    doparallel = .false.
    
    !#ifdef WITHMPI  ! from compiler option flag DWITHMPI
    !      print *, 'compiled with mpi  '
    !#ifdef PARALLEL ! from compiler option flag DPARALLEL 
    !     doParallel=.true.
    !      print *, 'compiled for parallel execution'
    !#endif
    !     print *, 'parallel setup?', doParallel 
    !#endif 
    
    master = 0 
    iam = master 
    
  !if (doParallel) then
    !#ifdef WITHMPI 
    !print *, 'withmpi', Iam
    !CALL DoParallelComputing(master, Iam, doParallel)    ! Comment out if run without MPI 
    !#endif
    !      else ! if normal, i.e. not parallel 
    !#ifdef WITHMPI
    !call InitializeMPIStuff (Iam)  ! Comment out if run without MPI 
    !#endif
    
    if (iam == master) CALL treemig(doparallel)
    
    !#ifdef WITHMPI
    !CALL PrintPerformanceSequentialRun             ! Comment out if run without MPI
    !#endif
  ! END IF  ! (doParallel)
    ! PRINT *, 'Ready !'
    
end PROGRAM starttreemig