MODULE PRECISION_PARAMETERS ! Set important parameters having to do with variable precision and array allocations IMPLICIT NONE CHARACTER(255), PARAMETER :: precid='$Id: prec.f90 607 2007-09-17 17:53:03Z mcgratta $'CHARACTER(255), PARAMETER :: precrev='$Revision: 607 $'CHARACTER(255), PARAMETER :: precdate='$Date: 2007-09-17 13:53:03 -0400 (Mon, 17 Sep 2007) $'! Precision of "Four Byte" and "Eight Byte" realsINTEGER, PARAMETER :: FB = SELECTED_REAL_KIND(6)INTEGER, PARAMETER :: EB = SELECTED_REAL_KIND(12)! Hardwired bounds for certain species and ZONE arraysINTEGER, PARAMETER :: MAX_SPECIES=20, MAX_LEAK_PATHS=20! Hardwired bounds for surface and material arraysINTEGER, PARAMETER :: MAX_LAYERS=20, MAX_MATERIALS=20, MAX_MATERIALS_TOTAL=400, MAX_REACTIONS=10, MAX_STEPS=20CONTAINSSUBROUTINE GET_REV_prec(MODULE_REV,MODULE_DATE)INTEGER,INTENT(INOUT) :: MODULE_REVCHARACTER(255),INTENT(INOUT) :: MODULE_DATEWRITE(MODULE_DATE,'(A)') precrev(INDEX(precrev,':')+1:LEN_TRIM(precrev)-2)READ (MODULE_DATE,'(I5)') MODULE_REVWRITE(MODULE_DATE,'(A)') precdateEND SUBROUTINE GET_REV_precEND MODULE PRECISION_PARAMETERS