RFLO_ModInterfacesLibrary.F90

Go to the documentation of this file.

! *********************************************************************
! * Rocstar Simulation Suite                                          *
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved.        *
! *                                                                   *
! * Illinois Rocstar LLC                                              *
! * Champaign, IL                                                     *
! * www.illinoisrocstar.com                                           *
! * sales@illinoisrocstar.com                                         *
! *                                                                   *
! * License: See LICENSE file in top level of distribution package or *
! * http://opensource.org/licenses/NCSA                               *
! *********************************************************************
! *********************************************************************
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,   *
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES   *
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND          *
! * NONINFRINGEMENT.  IN NO EVENT SHALL THE CONTRIBUTORS OR           *
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   *
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE    *
! * USE OR OTHER DEALINGS WITH THE SOFTWARE.                          *
! *********************************************************************
!******************************************************************************
!
! Purpose: set explicit interfaces to subroutines and functions.
!
! Description: none
!
! Notes: none.
!
!******************************************************************************
!
! $Id: RFLO_ModInterfacesLibrary.F90,v 1.23 2008/12/06 08:44:16 mtcampbe Exp $
!
! Copyright: (c) 2001 by the University of Illinois
!
!******************************************************************************
  
MODULE rflo_modinterfaceslibrary

  IMPLICIT NONE

  INTERFACE

! =============================================================================
! ROCFLO specific library
! =============================================================================

  SUBROUTINE rflo_arclengthbounds( region,xyz,arcLen12,arcLen34,arcLen56 )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL), POINTER :: arclen12(:,:), arclen34(:,:), arclen56(:,:)
    REAL(RFREAL), POINTER :: xyz(:,:)
    TYPE(t_region) :: region
  END SUBROUTINE rflo_arclengthbounds

  SUBROUTINE rflo_boundarydeformation( region,boundMoved,edgeMoved, &
                                       arclen12,arclen34,arclen56,  &
                                       xyzold,dnode )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    LOGICAL :: boundmoved(6), edgemoved(12)
    REAL(RFREAL), POINTER :: arclen12(:,:), arclen34(:,:), arclen56(:,:)
    REAL(RFREAL), POINTER :: dnode(:,:), xyzold(:,:)
    TYPE(t_region) :: region
  END SUBROUTINE rflo_boundarydeformation

  SUBROUTINE rflo_calccellcentroids( region )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
  END SUBROUTINE rflo_calccellcentroids

  SUBROUTINE rflo_calcfacecentroids( region )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
  END SUBROUTINE rflo_calcfacecentroids

  SUBROUTINE rflo_calcgradvector( region,iBegV,iEndV,iBegG,iEndG, &
                                  var,gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)        :: region
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: var(:,:), gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgradvector

  SUBROUTINE rflo_calcgradfaces( region,ilev,iBegV,iEndV,iBegG,iEndG, &
                                 var,gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)        :: region
    INTEGER               :: ilev, ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: var(:,:), gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgradfaces

  SUBROUTINE rflo_calcgradconnbc( region,patch,iConBc,iBegV,iEndV,iBegG,iEndG, &
                                  var,gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region)        :: region
    TYPE(t_patch)         :: patch
    INTEGER               :: iconbc(6), ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: var(:,:), gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgradconnbc

  SUBROUTINE rflo_calcgradphysbc( region,patch,iBegV,iEndV,iBegG,iEndG, &
                                  var,gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region)        :: region
    TYPE(t_patch)         :: patch
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: var(:,:), gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgradphysbc

  SUBROUTINE rflo_calcgraddummy( region,patch,iBegV,iEndV,iBegG,iEndG, &
                                 gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region)        :: region
    TYPE(t_patch)         :: patch
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgraddummy

  SUBROUTINE rflo_calcgraddummyphys( region,lbound,idir,jdir,kdir, &
                                     indbeg,indend,jndbeg,jndend,kndbeg,kndend, &
                                     ibegv,iendv,ibegg,iendg, &
                                     gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)        :: region
    INTEGER               :: lbound,idir,jdir,kdir
    INTEGER               :: indbeg, indend, jndbeg, jndend, kndbeg, kndend
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgraddummyphys

  SUBROUTINE rflo_calcgraddummysymm( region,lbound,idir,jdir,kdir, &
                                     inode,jnode,knode,ibeg,iend,jbeg,jend, &
                                     kbeg,kend,indbeg,indend,jndbeg,jndend, &
                                     kndbeg,kndend,ibegv,iendv,ibegg,iendg, &
                                     gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)        :: region
    INTEGER               :: lbound,idir,jdir,kdir,inode,jnode,knode
    INTEGER               :: ibeg, iend, jbeg, jend, kbeg, kend
    INTEGER               :: indbeg, indend, jndbeg, jndend, kndbeg, kndend
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgraddummysymm

  SUBROUTINE rflo_calcgraddummyconn( region,lbound,idir,jdir,kdir, &
                                     indbeg,indend,jndbeg,jndend,kndbeg,kndend, &
                                     ibegv,iendv,ibegg,iendg,gradi,gradj,gradk )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)        :: region
    INTEGER               :: lbound,idir,jdir,kdir
    INTEGER               :: indbeg, indend, jndbeg, jndend, kndbeg, kndend
    INTEGER               :: ibegv, iendv, ibegg, iendg
    REAL(RFREAL), POINTER :: gradi(:,:), gradj(:,:), gradk(:,:)
  END SUBROUTINE rflo_calcgraddummyconn

  SUBROUTINE rflo_copyedgefacenorm( region,iFBeg,iFEnd,fvari,fvarj,fvark )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ifbeg, ifend
    REAL(RFREAL), POINTER :: fvari(:,:), fvarj(:,:), fvark(:,:)
  END SUBROUTINE rflo_copyedgefacenorm

  SUBROUTINE rflo_copyedgefaceparal( region,iFBeg,iFEnd,fvari,fvarj,fvark )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ifbeg, ifend
    REAL(RFREAL), POINTER :: fvari(:,:), fvarj(:,:), fvark(:,:)
  END SUBROUTINE rflo_copyedgefaceparal

  SUBROUTINE rflo_changeinteriorgrid( region,boundMoved,edgeMoved, &
                                      arclen12,arclen34,arclen56, &
                                      xyzold,xyz )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    LOGICAL :: boundmoved(6), edgemoved(12)
    REAL(RFREAL), POINTER :: arclen12(:,:), arclen34(:,:), arclen56(:,:)
    REAL(RFREAL), POINTER :: xyz(:,:), xyzold(:,:)
    TYPE(t_region) :: region
  END SUBROUTINE rflo_changeinteriorgrid

  SUBROUTINE rflo_checkvalidity( region )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), TARGET :: region
  END SUBROUTINE rflo_checkvalidity

  SUBROUTINE rflo_derivedinputvalues( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_derivedinputvalues

  SUBROUTINE rflo_edgedeformation( region,boundMoved,edgeMoved, &
                                   arclen12,arclen34,arclen56,xyzold,dnode )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    LOGICAL :: boundmoved(6), edgemoved(12)
    REAL(RFREAL), POINTER :: arclen12(:,:), arclen34(:,:), arclen56(:,:)
    REAL(RFREAL), POINTER :: dnode(:,:), xyzold(:,:)
    TYPE(t_region) :: region
  END SUBROUTINE rflo_edgedeformation

  SUBROUTINE rflo_edgedeformationstraight( region,boundMoved,boundFlat, &
                                    edgemoved,arclen12,arclen34,arclen56, &
                                    xyzorig,xyzold,dnode )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    LOGICAL :: boundmoved(6), boundflat(6), edgemoved(12)
    REAL(RFREAL), POINTER :: arclen12(:,:), arclen34(:,:), arclen56(:,:)
    REAL(RFREAL), POINTER :: dnode(:,:), xyzold(:,:), xyzorig(:,:)
    TYPE(t_region) :: region
  END SUBROUTINE rflo_edgedeformationstraight

  SUBROUTINE rflo_exchangednodecopy( region,regionSrc,patch,patchSrc, &
                                     average,dnode,dnodesrc )
    USE moddatatypes
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    LOGICAL :: average
    REAL(RFREAL), POINTER :: dnode(:,:), dnodesrc(:,:)
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangednodecopy

  SUBROUTINE rflo_exchangednoderecv( region,regionSrc,patch,patchSrc, &
                                     average,dnode )
    USE moddatatypes
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    LOGICAL :: average
    REAL(RFREAL), POINTER :: dnode(:,:)
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangednoderecv

  SUBROUTINE rflo_exchangednodesend( region,regionSrc,patch,dNode )
    USE moddatatypes
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL), POINTER :: dnode(:,:)
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_exchangednodesend

  SUBROUTINE rflo_extrapintcellscal( region,fVec )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)          :: region
    REAL(RFREAL), POINTER   :: fvec(:)
  END SUBROUTINE rflo_extrapintcellscal

  SUBROUTINE rflo_extrapintcellvec( region,idBeg,idEnd,fVec )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)          :: region
    INTEGER                 :: idbeg,idend
    REAL(RFREAL), POINTER   :: fvec(:,:)
  END SUBROUTINE rflo_extrapintcellvec

  SUBROUTINE rflo_generatecoarsegrids( region )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
  END SUBROUTINE rflo_generatecoarsegrids

  SUBROUTINE rflo_getdimensdummy( region,iLev,idcbeg,idcend,jdcbeg,jdcend, &
                                  kdcbeg,kdcend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, idcbeg, idcend, jdcbeg, jdcend, kdcbeg, kdcend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getdimensdummy

  SUBROUTINE rflo_getdimensphys( region,iLev,ipcbeg,ipcend,jpcbeg,jpcend, &
                                 kpcbeg,kpcend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, ipcbeg, ipcend, jpcbeg, jpcend, kpcbeg, kpcend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getdimensphys

  SUBROUTINE rflo_getdimensdummynodes( region,iLev,idnbeg,idnend,jdnbeg,jdnend,&
                                       kdnbeg,kdnend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, idnbeg, idnend, jdnbeg, jdnend, kdnbeg, kdnend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getdimensdummynodes

  SUBROUTINE rflo_getdimensphysnodes( region,iLev,ipnbeg,ipnend,jpnbeg,jpnend, &
                                      kpnbeg,kpnend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, ipnbeg, ipnend, jpnbeg, jpnend, kpnbeg, kpnend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getdimensphysnodes

  SUBROUTINE rflo_getcelloffset( region,iLev,iCellOffset,ijCellOffset )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, icelloffset, ijcelloffset
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getcelloffset

  SUBROUTINE rflo_getnodeoffset( region,iLev,iNodeOffset,ijNodeOffset )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, inodeoffset, ijnodeoffset
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getnodeoffset

  SUBROUTINE rflo_getcornercellsindices( region,iLev,icorner, &
                                         icbeg,icend,jcbeg,jcend,kcbeg,kcend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, icorner, icbeg, icend, jcbeg, jcend, kcbeg, kcend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getcornercellsindices

  SUBROUTINE rflo_getedgecellsindices( region,iLev,iedge, &
                                       iebeg,ieend,jebeg,jeend,kebeg,keend )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, iedge
    INTEGER        :: iebeg, ieend, jebeg, jeend, kebeg, keend
    TYPE(t_region) :: region
  END SUBROUTINE rflo_getedgecellsindices

  SUBROUTINE rflo_getpatchdirection( patch,idir,jdir,kdir )
    USE modbndpatch, ONLY : t_patch
    INTEGER       :: idir, jdir, kdir
    TYPE(t_patch) :: patch
  END SUBROUTINE rflo_getpatchdirection

  SUBROUTINE rflo_getpatchindices( region,patch,iLev, &
                                   ibeg,iend,jbeg,jend,kbeg,kend )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, ibeg, iend, jbeg, jend, kbeg, kend
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_getpatchindices

  SUBROUTINE rflo_getpatchindicesnodes( region,patch,iLev,ibeg,iend, &
                                        jbeg,jend,kbeg,kend )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ilev, ibeg, iend, jbeg, jend, kbeg, kend
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_getpatchindicesnodes

  SUBROUTINE rflo_getpatchmapping( lb,lbs,l1SrcDir,l2SrcDir,align, &
                                   idir,jdir,kdir,idirsrc,jdirsrc,kdirsrc, &
                                   ibeg,iend,jbeg,jend,kbeg,kend, &
                                   ibegsrc,iendsrc,jbegsrc,jendsrc, &
                                   kbegsrc,kendsrc,mapmat )
    INTEGER :: lb, lbs, l1srcdir, l2srcdir
    INTEGER :: idir, jdir, kdir, idirsrc, jdirsrc, kdirsrc
    INTEGER :: ibeg, iend, jbeg, jend, kbeg, kend
    INTEGER :: ibegsrc, iendsrc, jbegsrc, jendsrc, kbegsrc, kendsrc
    INTEGER :: mapmat(3,4)
    LOGICAL :: align
  END SUBROUTINE rflo_getpatchmapping

  SUBROUTINE rflo_gridremesh( region )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
  END SUBROUTINE rflo_gridremesh

  SUBROUTINE rflo_initinputvalues( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_initinputvalues

  SUBROUTINE rflo_interpoldistrib( n1f,n2f,n1c,n2c,nData,valf,valc )
    USE moddatatypes
    INTEGER :: n1f, n2f, n1c, n2c, ndata
    REAL(RFREAL), POINTER :: valf(:,:), valc(:,:)
  END SUBROUTINE rflo_interpoldistrib

  SUBROUTINE rflo_randominit( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_randominit

  SUBROUTINE rflo_readregiontopology( global,regions )
    USE moddatastruct, ONLY : t_region
    USE modglobal, ONLY     : t_global
    TYPE(t_global), POINTER :: global
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readregiontopology

  SUBROUTINE rflo_readdatafileint( global,fileId,form,nDim1,nDim2,ivar )
    USE modglobal, ONLY : t_global
    INTEGER :: fileid, form, ndim1, ndim2
    INTEGER :: ivar(:,:)
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_readdatafileint

  SUBROUTINE rflo_readdatafilereal( global,fileId,form,nDim1,nDim2,var )
    USE modglobal, ONLY : t_global
    USE moddatatypes
    INTEGER :: fileid, form, ndim1, ndim2
    REAL(RFREAL) :: var(:,:)
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_readdatafilereal

  SUBROUTINE rflo_readgrid( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readgrid

  SUBROUTINE rflo_readgridregion( iReg,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readgridregion

  SUBROUTINE rflo_readrandomstate( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readrandomstate

  SUBROUTINE rflo_readsolution( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readsolution

  SUBROUTINE rflo_readsolutionregion( iReg,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readsolutionregion

  SUBROUTINE rflo_setmstagecoeffs( global,input,nrkStages )
    USE modglobal, ONLY: t_global
    USE modmixture, ONLY : t_mixt_input
    TYPE(t_mixt_input)  :: input
    INTEGER :: nrksteps
    TYPE(t_global), POINTER :: global    
  END SUBROUTINE rflo_setmstagecoeffs

  SUBROUTINE rflo_tfint1d( s,p1,p2,xyz )
    USE moddatatypes
    REAL(RFREAL) :: s, p1(3), p2(3), xyz(3)
  END SUBROUTINE rflo_tfint1d

  SUBROUTINE rflo_tfint2d( s1,s2,s3,s4,e1,e2,e3,e4,p1,p2,p3,p4,xyz )
    USE moddatatypes
    REAL(RFREAL) :: s1, s2, s3, s4
    REAL(RFREAL) :: e1(3), e2(3), e3(3), e4(3)
    REAL(RFREAL) :: p1(3), p2(3), p3(3), p4(3)
    REAL(RFREAL) :: xyz(3)
  END SUBROUTINE rflo_tfint2d

  SUBROUTINE rflo_writedatafileint( global,fileId,form,nDim1,nDim2,ivar )
    USE modglobal, ONLY : t_global
    INTEGER :: fileid, form, ndim1, ndim2
    INTEGER :: ivar(:,:)
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_writedatafileint

  SUBROUTINE rflo_writedatafilereal( global,fileId,form,nDim1,nDim2,var )
    USE modglobal, ONLY : t_global
    USE moddatatypes
    INTEGER :: fileid, form, ndim1, ndim2
    REAL(RFREAL) :: var(:,:)
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_writedatafilereal

  SUBROUTINE rflo_writegrid( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writegrid

  SUBROUTINE rflo_writegridregion( iReg,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writegridregion

  SUBROUTINE rflo_writerandomstate( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writerandomstate

  SUBROUTINE rflo_writeregiontopology( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writeregiontopology

  SUBROUTINE rflo_writesolution( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writesolution

  SUBROUTINE rflo_writesolutionregion( iReg,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writesolutionregion

#ifdef STATS
  SUBROUTINE rflo_readstat( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readstat

  SUBROUTINE rflo_readstatregion( iReg,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readstatregion

  SUBROUTINE rflo_writestat( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_writestat
#endif

  SUBROUTINE rflo_zerodummycells( region,var )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region)         :: region
    REAL(RFREAL), POINTER  :: var(:,:)
  END SUBROUTINE rflo_zerodummycells

  END INTERFACE

END MODULE rflo_modinterfaceslibrary

!******************************************************************************
!
! RCS Revision history:
!
! $Log: RFLO_ModInterfacesLibrary.F90,v $
! Revision 1.23  2008/12/06 08:44:16  mtcampbe
! Updated license.
!
! Revision 1.22  2008/11/19 22:17:27  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.21  2006/03/18 11:07:55  wasistho
! removed RFLO_GridFlatPatch
!
! Revision 1.20  2006/03/12 22:00:54  wasistho
! added RFLO_GridFlatPatch
!
! Revision 1.19  2006/03/12 20:39:40  wasistho
! added RFLO_EdgeDeformationStraight
!
! Revision 1.18  2005/11/11 07:16:27  wasistho
! removed RFLO_WriteDegeneratEC
!
! Revision 1.17  2005/10/27 05:55:56  wasistho
! removed RFLO_LaplaceGrid... routines
!
! Revision 1.16  2005/10/20 06:54:13  wasistho
! added RFLO_CalcCellCentroids and RFLO_CalcFaceCentroids
!
! Revision 1.15  2005/05/27 01:52:55  wasistho
! added rflo_gridremesh
!
! Revision 1.14  2004/11/17 16:28:43  haselbac
! Adapted interface for RFLO_SetMStageCoeffs
!
! Revision 1.13  2004/11/09 10:53:23  wasistho
! added RFLO_readStatRegion
!
! Revision 1.12  2004/09/30 16:57:20  wasistho
! added RFLO_extrapIntCellVec/Scal routines
!
! Revision 1.11  2004/08/21 00:34:43  wasistho
! added RFLO_writeDegeneratEC
!
! Revision 1.10  2004/07/26 19:29:48  wasistho
! changed POINTER to TARGET in RFLO_CheckValidity
!
! Revision 1.9  2004/07/26 19:04:28  wasistho
! add RFLO_CheckValidity
!
! Revision 1.8  2003/11/21 22:36:37  fnajjar
! Update Random Number Generator
!
! Revision 1.7  2003/08/25 21:51:24  jblazek
! Full version of global grid motion scheme.
!
! Revision 1.6  2003/08/11 21:51:17  jblazek
! Added basic global grid smoothing scheme.
!
! Revision 1.5  2003/07/03 21:48:45  jblazek
! Implemented dual-time stepping.
!
! Revision 1.4  2003/03/14 22:05:11  jblazek
! Improved mesh motion algorithm - node movement exchaged between blocks.
!
! Revision 1.3  2003/02/17 19:31:12  jferry
! Implemented portable random number generator ModRandom
!
! Revision 1.2  2003/02/03 19:20:46  jblazek
! Added treatment of edge and corner cells for one processor.
!
! Revision 1.1  2002/12/27 22:07:14  jblazek
! Splitted up RFLO_ModInterfaces and ModInterfaces.
!
!******************************************************************************