Scrambler  1
elliptic_comms.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 !    elliptic_comms.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 EllipticComms
00024    USE DataLevelComms
00025    USE GlobalDeclarations
00026    USE TreeDeclarations
00027    USE DataLevelOps
00028   !  USE DataInfoOps
00029 
00030 
00031 CONTAINS
00032 
00037    SUBROUTINE EllipticTransfer(n,fields,nghost)
00038       INTEGER :: n   
00039       INTEGER, DIMENSION(:) :: fields
00040       INTEGER :: nghost
00041       CALL GenericTransfer(n, fields, nghost, lEllipticPeriodic)
00042       !   write(*,*) 'ghosting', n, fields, nghost
00043 !      CALL PostRecvGenericData(n, fields, nghost, lEllipticPeriodic)  ! [BDS][20110113]: Added fields, ghost to facilitate precalculation.
00044 !      CALL PostSendGenericData(n,fields,nghost, lEllipticPeriodic)
00045 !      CALL ApplyGenericOverlaps(n,fields,nghost, lEllipticPeriodic)
00046       !    CALL MPI_CHECK_MSG_GROUPS(iRecvEllipticData, iSendEllipticData, n, n)
00047 !      CALL CompRecvGenericData(n,fields)
00048 !      CALL CompSendGenericData(n)
00049    END SUBROUTINE EllipticTransfer
00050 
00074 
00075 
00076 END MODULE EllipticComms
 All Classes Files Functions Variables