RFLU_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 in Rocflu
!   library.
!
! Description: None
!
! Notes: None.
!
! ******************************************************************************
!
! $Id: RFLU_ModInterfacesLibrary.F90,v 1.41 2008/12/06 08:44:22 mtcampbe Exp $
!
! Copyright: (c) 2003-2006 by the University of Illinois
!
! ******************************************************************************
  
MODULE rflu_modinterfaceslibrary

  IMPLICIT NONE

  INTERFACE

  SUBROUTINE dgesdd(JOBZ,M,N,A,LDA,S,U,LDU,VT,LDVT,WORK,LWORK,IWORK,INFO)
    CHARACTER :: jobz
    INTEGER :: info,lda,ldu,ldvt,lwork,m,n
    INTEGER :: iwork(:)
    DOUBLE PRECISION :: a(:,:),s(:),u(:,:),vt(:,:),work(:)  
  END SUBROUTINE dgesdd

  SUBROUTINE rflu_allocatememorytbc(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_allocatememorytbc

  SUBROUTINE rflu_builddatastruct(global,levels)
    USE modglobal, ONLY: t_global
    USE moddatastruct, ONLY: t_level
    TYPE(t_global), POINTER :: global
    TYPE(t_level), POINTER :: levels(:)
  END SUBROUTINE rflu_builddatastruct  

  SUBROUTINE rflu_buildinterpstencilc2v(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_buildinterpstencilc2v

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

  SUBROUTINE rflu_checkpositivity(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkpositivity 
 
  SUBROUTINE rflu_checkpositivity_gl(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkpositivity_gl
 
  SUBROUTINE rflu_checkpositivitywrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkpositivitywrapper     
 
  SUBROUTINE rflu_checkuserinput(regions)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), DIMENSION(:), POINTER :: regions  
  END SUBROUTINE rflu_checkuserinput
 
  SUBROUTINE rflu_checkvalidity(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkvalidity   
 
  SUBROUTINE rflu_checkvalidity_gl(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkvalidity_gl

  SUBROUTINE rflu_checkvaliditywrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_checkvaliditywrapper

  SUBROUTINE rflu_closepostinfo(global)
    USE modglobal, ONLY: t_global
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_closepostinfo
 
  SUBROUTINE rflu_closerestartinfo(global)
    USE modglobal, ONLY: t_global
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_closerestartinfo 
 
  SUBROUTINE rflu_compinterpweightsc2v(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_compinterpweightsc2v

  SUBROUTINE rflu_computedcuhreinfo(global,NDIM,NF,KEY,MAXCLS,NW)
    USE modglobal, ONLY: t_global
    INTEGER, INTENT(IN) :: key,ndim,nf
    INTEGER, INTENT(OUT) :: nw
    INTEGER, INTENT(INOUT) :: maxcls
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_computedcuhreinfo

  SUBROUTINE rflu_convertcvcons2prim(pRegion,cvStateFuture)
    USE moddatastruct, ONLY: t_region  
    INTEGER, INTENT(IN) :: cvstatefuture
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_convertcvcons2prim

  SUBROUTINE rflu_convertcvprim2cons(pRegion,cvStateFuture)
    USE moddatastruct, ONLY: t_region  
    INTEGER, INTENT(IN) :: cvstatefuture
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_convertcvprim2cons

  SUBROUTINE rflu_creategrid(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_creategrid

  SUBROUTINE rflu_createregions(global,iLev,levels)
    USE modglobal, ONLY: t_global
    USE moddatastruct, ONLY: t_level
    INTEGER, INTENT(IN) :: ilev
    TYPE(t_global), POINTER :: global
    TYPE(t_level), DIMENSION(:), POINTER :: levels
  END SUBROUTINE rflu_createregions

  LOGICAL FUNCTION rflu_decideneedbgradface(pRegion,pPatch)
!  LOGICAL FUNCTION RFLU_DecideNeedBGradFace(pRegion,iPatch)
    USE moddatastruct, ONLY: t_region
    USE modbndpatch, ONLY: t_patch
    TYPE(t_region), POINTER :: pregion
    INTEGER :: ipatch
    TYPE(t_patch), POINTER :: ppatch
  END FUNCTION rflu_decideneedbgradface

  LOGICAL FUNCTION rflu_decideprint(global)
    USE modglobal, ONLY: t_global    
    TYPE(t_global), POINTER :: global    
  END FUNCTION rflu_decideprint
    
  LOGICAL FUNCTION rflu_decidewrite(global)
    USE modglobal, ONLY: t_global    
    TYPE(t_global), POINTER :: global    
  END FUNCTION rflu_decidewrite
  
  SUBROUTINE rflu_derivedinputvalues(regions)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), DIMENSION(:), POINTER :: regions  
  END SUBROUTINE rflu_derivedinputvalues

  SUBROUTINE rflu_destroygrid(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_destroygrid

  SUBROUTINE rflu_enforceboundswrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_enforceboundswrapper

  SUBROUTINE rflu_getuserinput(regions,inPrep)
    USE moddatastruct, ONLY: t_region
    LOGICAL, OPTIONAL :: inprep
    TYPE(t_region), DIMENSION(:), POINTER :: regions
  END SUBROUTINE rflu_getuserinput

  INTEGER FUNCTION rflu_getcvloc(global,fluidModel,var)
    USE modglobal, ONLY: t_global
    INTEGER, INTENT(IN) :: fluidmodel,var
    TYPE(t_global), POINTER :: global
  END FUNCTION rflu_getcvloc
  
  SUBROUTINE rflu_initglobal(casename,verbLevel,communicator,global)
    USE moddatatypes
    USE modglobal, ONLY: t_global
    CHARACTER(*), INTENT(IN) :: casename
    INTEGER, INTENT(IN) :: communicator,verblevel    
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_initglobal

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

  SUBROUTINE rflu_invertmatrixsvd(global,nRows,nCols,a,aInv,sCount)
    USE moddatatypes  
    USE modglobal, ONLY: t_global
    INTEGER, INTENT(IN) :: nrows,ncols
    INTEGER, INTENT(OUT) :: scount
    REAL(RFREAL) :: a(nrows,ncols),ainv(ncols,nrows)
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_invertmatrixsvd

  SUBROUTINE rflu_openpostinfo(global,fileStatus,fileExists)
    USE modglobal, ONLY: t_global
    LOGICAL, INTENT(OUT) :: fileexists
    INTEGER, INTENT(IN) :: filestatus
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_openpostinfo

  SUBROUTINE rflu_openrestartinfo(global,filePosition,fileExists)
    USE modglobal, ONLY: t_global
    LOGICAL, INTENT(OUT) :: fileexists
    INTEGER, INTENT(IN) :: fileposition
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflu_openrestartinfo 

  SUBROUTINE rflu_printchangeinfo(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion 
  END SUBROUTINE rflu_printchangeinfo

  SUBROUTINE rflu_printflowinfo(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion 
  END SUBROUTINE rflu_printflowinfo

  SUBROUTINE rflu_printflowinfowrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion 
  END SUBROUTINE rflu_printflowinfowrapper

  SUBROUTINE rflu_printgridinfo(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion 
  END SUBROUTINE rflu_printgridinfo

  SUBROUTINE rflu_printlocinfo(pRegion,locUnsorted,nLocUnsorted,locInfoMode, & 
                               outputmode)
    USE modparameters
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: locinfomode,nlocunsorted,outputmode
    INTEGER, INTENT(INOUT) :: locunsorted(nlocunsorted,min_val:max_val)
    TYPE(t_region), POINTER :: pregion 
  END SUBROUTINE rflu_printlocinfo

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

  SUBROUTINE rflu_printwarninfo(global)
    USE modglobal, ONLY: t_global
    TYPE(t_global), POINTER :: global    
  END SUBROUTINE rflu_printwarninfo

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

  SUBROUTINE rflu_readrestartinfo(global)
    USE modglobal, ONLY: t_global
    TYPE(t_global), POINTER :: global  
  END SUBROUTINE rflu_readrestartinfo

  SUBROUTINE rflu_readtbcinputfile(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_readtbcinputfile

  SUBROUTINE rflu_readtbcsection(pRegion,tbcType)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
    INTEGER, INTENT(IN)     :: tbctype
  END SUBROUTINE rflu_readtbcsection

  SUBROUTINE rflu_scalarfirst(pRegion,nVarScal,cvScal,resScal)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: cvscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(INOUT) :: resscal
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarfirst
  
  SUBROUTINE rflu_scalarsecond(pRegion,nVarScal,cvScal,gradCellScal,resScal)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: cvscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(INOUT) :: resscal
    REAL(RFREAL), DIMENSION(:,:,:), INTENT(IN) :: gradcellscal    
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarsecond     
  
  SUBROUTINE rflu_scalarfirstpatch(pRegion,pPatch,nVarScal,cvScal,valScal, & 
                                   resscal)
    USE moddatatypes
    USE modbndpatch, ONLY: t_bcvalues,t_patch
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: cvscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(OUT) :: resscal
    TYPE(t_bcvalues) :: valscal
    TYPE(t_patch), POINTER :: ppatch
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarfirstpatch 
  
  SUBROUTINE rflu_scalarsecondpatch(pRegion,pPatch,nVarScal,cvScal, & 
                                    gradcellscal,valscal,resscal)
    USE moddatatypes
    USE modbndpatch, ONLY: t_bcvalues,t_patch
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: cvscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(OUT) :: resscal
    REAL(RFREAL), DIMENSION(:,:,:), INTENT(IN) :: gradcellscal    
    TYPE(t_bcvalues) :: valscal
    TYPE(t_patch), POINTER :: ppatch
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarsecondpatch   
  
  SUBROUTINE rflu_scalarcheckpositivity(pRegion,moduleType,nVarScal,cvScal)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal,moduletype
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: cvscal    
    TYPE(t_region), POINTER :: pregion  
  END SUBROUTINE rflu_scalarcheckpositivity  
  
  SUBROUTINE rflu_scalarinitrhs(pRegion,nVarScal,dissScal,resScal)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: dissscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(INOUT) :: resscal
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarinitrhs
  
  SUBROUTINE rflu_scalarviscousfluxes(pRegion,nVarScal,tvScal,gradScal,resScal)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: nvarscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(IN) :: tvscal
    REAL(RFREAL), DIMENSION(:,:), INTENT(INOUT) :: resscal 
    REAL(RFREAL), DIMENSION(:,:,:), INTENT(IN) :: gradscal   
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_scalarviscousfluxes 
  
  SUBROUTINE rflu_setdependentvars(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setdependentvars
    
  SUBROUTINE rflu_setderiveduserinput(regions)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), DIMENSION(:), POINTER :: regions  
  END SUBROUTINE rflu_setderiveduserinput 
  
  SUBROUTINE rflu_setgasvars(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setgasvars
  
  SUBROUTINE rflu_setmoduletype(global,moduleType)
    USE modglobal, ONLY: t_global    
    INTEGER, INTENT(IN) :: moduletype
    TYPE(t_global), POINTER :: global      
  END SUBROUTINE rflu_setmoduletype
  
  SUBROUTINE rflu_setrestarttimeflag(global)
    USE modglobal, ONLY: t_global    
    TYPE(t_global), POINTER :: global    
  END SUBROUTINE rflu_setrestarttimeflag

  SUBROUTINE rflu_settransportvars(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_settransportvars  

  SUBROUTINE rflu_setvarinfo(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion  
  END SUBROUTINE rflu_setvarinfo 
  
  SUBROUTINE rflu_setvarinfowrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion  
  END SUBROUTINE rflu_setvarinfowrapper  

  SUBROUTINE rflu_setvars(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setvars
  
  SUBROUTINE rflu_setvarscontwrapper(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setvarscontwrapper
  
  SUBROUTINE rflu_setvarsdiscwrapper(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setvarsdiscwrapper    
  
  SUBROUTINE rflu_setvarswrapper(pRegion,icgBeg,icgEnd)
    USE moddatastruct, ONLY: t_region
    INTEGER, INTENT(IN) :: icgbeg,icgend
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_setvarswrapper

  LOGICAL FUNCTION rflu_testisfirstregion(pRegion) 
    USE moddatatypes
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion                                       
  END FUNCTION rflu_testisfirstregion  

  SUBROUTINE rflu_updatecommlists(pRegion)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: pregion    
  END SUBROUTINE rflu_updatecommlists

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

#ifdef STATS
  SUBROUTINE rflu_readstat( region )
    USE moddatastruct, ONLY: t_region
    TYPE(t_region) :: region    
  END SUBROUTINE rflu_readstat

  SUBROUTINE rflu_writestat( region )
    USE moddatastruct, ONLY: t_region
    TYPE(t_region) :: region    
  END SUBROUTINE rflu_writestat
#endif

  SUBROUTINE rflu_writeversionstring(global)
    USE modglobal, ONLY: t_global
    TYPE(t_global), POINTER :: global    
  END SUBROUTINE rflu_writeversionstring

  SUBROUTINE rflu_zerovirtualcellvars(pRegion,var)
    USE moddatatypes
    USE moddatastruct, ONLY: t_region  
    REAL(RFREAL), POINTER :: var(:,:)
    TYPE(t_region), POINTER :: pregion
  END SUBROUTINE rflu_zerovirtualcellvars

  END INTERFACE

END MODULE rflu_modinterfaceslibrary

! ******************************************************************************
!
! RCS Revision history:
!
! $Log: RFLU_ModInterfacesLibrary.F90,v $
! Revision 1.41  2008/12/06 08:44:22  mtcampbe
! Updated license.
!
! Revision 1.40  2008/11/19 22:17:33  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.39  2006/08/19 15:39:08  mparmar
! Added RFLU_DecideNeedBGradFace
!
! Revision 1.38  2006/08/04 03:05:58  haselbac
! Removed interface for RFLU_TestIsBoundaryCell
!
! Revision 1.37  2006/03/26 20:22:04  haselbac
! Added ifs for GL routines
!
! Revision 1.36  2006/02/06 23:56:55  haselbac
! Adapted to changes in arg list of RFLU_InitGlobal
!
! Revision 1.35  2005/12/24 21:30:10  haselbac
! Removed ifs for routines moved into modules
!
! Revision 1.34  2005/11/10 22:23:34  fnajjar
! ACH: Added ifs for new SetVars routines
!
! Revision 1.33  2005/06/09 20:21:40  haselbac
! Removed interface for RFLU_CheckMoveGridInput
!
! Revision 1.32  2005/05/16 20:42:43  haselbac
! Removed/added interfaces
!
! Revision 1.31  2005/04/29 12:55:30  haselbac
! Removed interface for RFLU_DecideWriteProbe
!
! Revision 1.30  2005/04/15 15:06:59  haselbac
! Removed intfcs for RFLU_InitFlowScratch, changed intfc for RFLU_SetVarsXyz
!
! Revision 1.29  2005/03/11 02:20:38  haselbac
! Added and removed interfaces
!
! Revision 1.28  2004/11/14 19:45:49  haselbac
! Added interfaces, some clean-up
!
! Revision 1.27  2004/11/06 03:18:53  haselbac
! Added interface for RFLU_GetCvLoc
!
! Revision 1.26  2004/11/05 21:48:22  fnajjar
! Added interface for RFLU_TestInCellFancy
!
! Revision 1.25  2004/11/05 20:25:43  haselbac
! Removed interface for RFLU_ComputeLineCellXSectDist
!
! Revision 1.24  2004/11/02 02:32:29  haselbac
! Added interfaces for RFLU_SetVarInfo and RFLU_SetVarInfoWrapper
!
! Revision 1.23  2004/10/19 19:28:07  haselbac
! Added and removed interfaces
!
! Revision 1.22  2004/07/30 22:47:36  jferry
! Implemented Equilibrium Eulerian method for Rocflu
!
! Revision 1.21  2004/07/06 15:14:43  haselbac
! Removed many subroutines and functions bcos moved into modules
!
! Revision 1.20  2004/06/25 20:09:33  haselbac
! Added entry for RFLU_SetRestartTimeFlag
!
! Revision 1.19  2004/05/05 20:54:39  fnajjar
! Adapted entries for RFLU_ComputeLineCellXSect{Dist}
!
! Revision 1.18  2004/03/19 21:19:54  haselbac
! Added interface for RFLU_InitFlowScratch
!
! Revision 1.17  2004/03/17 04:26:53  haselbac
! Modified interface for RFLU_WriteDimensionsWrapper
!
! Revision 1.16  2004/03/01 23:54:53  haselbac
! Added interfaces for RFLU_ComputeLineCellXSect* routines
!
! Revision 1.15  2004/02/26 21:02:03  haselbac
! Added interfaces for read/write dimensions wrapper routines
!
! Revision 1.14  2004/02/23 23:04:05  haselbac
! Added interface for RFLU_ComputeExactFlowProudman
!
! Revision 1.13  2004/02/13 02:57:42  haselbac
! Added interface for RFLU_TestIsBoundaryCell
!
! Revision 1.12  2004/01/29 22:57:36  haselbac
! Added and deleted various interfaces
!
! Revision 1.11  2003/12/04 03:28:49  haselbac
! Added and removed several interfaces
!
! Revision 1.10  2003/11/25 21:03:25  haselbac
! Added interfaces for new routines
!
! Revision 1.9  2003/10/29 21:39:19  haselbac
! Added interfaces for RFLU_DecideXXX functions
!
! Revision 1.8  2003/08/07 15:32:26  haselbac
! Added RFLU_PrintWarnInfo
!
! Revision 1.7  2003/07/22 02:04:16  haselbac
! Removed RFLU_CreateInterpolant (in module)
!
! Revision 1.6  2003/06/20 22:34:33  haselbac
! Added interfaces for restart info file routines
!
! Revision 1.5  2003/06/09 14:03:46  haselbac
! Added RFLU_CreateRegions
!
! Revision 1.4  2003/06/04 22:09:28  haselbac
! Added, deleted, and modified some interfaces
!
! Revision 1.3  2003/06/04 20:05:54  jferry
! re-worked implementation of TBCs in unstructured code
!
! Revision 1.2  2003/04/28 22:45:15  haselbac
! Changed interface for RFLU_PrintLocInfo
!
! Revision 1.1  2003/04/10 14:37:10  haselbac
! Initial revision
!
! ******************************************************************************