Scrambler
1
|
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