1 !!! $Id: rocmanf90.h,
v 1.3 2004/05/05 14:15:29 brtnfld Exp $
3 !!! **********************************************************************
5 !!! * Author: X. Jiao,
A.
Haselbacher, and M. Breitenfeld *
6 !!! * Created
on: Nov. 14, 2002 *
8 !!! * one physics component. Added initially
for computing *
9 !!! * integrals in sanity checking (such as mass conservation). *
10 !!! **********************************************************************
13 !!! Name of the variable containing the integrals to be registered
with Roccom.
14 CHARACTER(*), PARAMETER :: MAN_INTEG_NAME =
"integrals"
16 !!! Name of the
function that computes the integrals to be registered
with Roccom.
17 CHARACTER(*), PARAMETER :: MAN_COMP_INTEG_NAME =
"compute_integrals"
19 !!! Length of the array
for storing integrals
22 !!! Indices of the entries in the array
31 INTEGER, PARAMETER :: MAN_DBL = SELECTED_REAL_KIND(P=14,R=30)
!$Id A and M Breitenfeld **Created on
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **ARISING OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE v
systems whose!Fortran compilers support!instead of just C or *for comments can!globally replace a C in the first column with
int volume(const block *b)
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE POINTER::global INTEGER
!$Id A and M Breitenfeld **Created ** Purpose
1.8.5