Scrambler  1
distribution_declarations.f90
Go to the documentation of this file.
00001 !#########################################################################
00002 !               
00003 !    Copyright (C) 2003-2012 Department of Physics and Astronomy,
00004 !                            University of Rochester,
00005 !                            Rochester, NY
00006 !
00007 !    distribution_declarations.f90 is part of AstroBEAR.
00008 !
00009 !    AstroBEAR is free software: you can redistribute it and/or modify    
00010 !    it under the terms of the GNU General Public License as published by 
00011 !    the Free Software Foundation, either version 3 of the License, or    
00012 !    (at your option) any later version.
00013 !
00014 !    AstroBEAR is distributed in the hope that it will be useful, 
00015 !    but WITHOUT ANY WARRANTY; without even the implied warranty of
00016 !    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00017 !    GNU General Public License for more details.
00018 !
00019 !    You should have received a copy of the GNU General Public License
00020 !    along with AstroBEAR.  If not, see <http://www.gnu.org/licenses/>.
00021 !
00022 !#########################################################################
00023 MODULE DistributionDeclarations
00024    USE GlobalDeclarations
00025    IMPLICIT NONE
00026    SAVE
00027    REAL(KIND=qPREC), DIMENSION(:), ALLOCATABLE :: MyRemainingWorkLoad
00028 
00030    TYPE ProcList
00031       INTEGER, DIMENSION(:), POINTER :: p
00032    END TYPE ProcList
00033 
00034    Type(ProcList), PUBLIC, DIMENSION(:), POINTER :: ParentProcs, ChildProcs
00035 
00036   INTEGER :: Rootn
00037   REAL, PARAMETER :: log2=0.69314718055994530942
00038   REAL :: di,dj,dk
00039 
00040 
00041 END MODULE DistributionDeclarations
 All Classes Files Functions Variables