Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE InitializeZoneInfoTable
! SUBROUTINE INFORMATION:
! AUTHOR Greg Stark
! DATE WRITTEN July 2008
! MODIFIED January 2010, Kyle Benne
! Name cleanup
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine initializes the zone information SQL tables
! METHODOLOGY EMPLOYED:
! Standard SQL92 queries and commands via the Fortran SQLite3 API
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: result
result = SQLiteExecuteCommandMacro ( &
'CREATE TABLE Zones (' &
//'ZoneIndex INTEGER PRIMARY KEY, ' &
//'ZoneName TEXT, ' &
//'RelNorth REAL, ' &
//'OriginX REAL, ' &
//'OriginY REAL, ' &
//'OriginZ REAL, ' &
//'CentroidX REAL, ' &
//'CentroidY REAL, ' &
//'CentroidZ REAL, ' &
//'OfType INTEGER, ' &
//'Multiplier REAL, ' &
//'ListMultiplier REAL, ' &
//'MinimumX REAL, ' &
//'MaximumX REAL, ' &
//'MinimumY REAL, ' &
//'MaximumY REAL, ' &
//'MinimumZ REAL, ' &
//'MaximumZ REAL, ' &
//'CeilingHeight REAL, ' &
//'Volume REAL, ' &
//'InsideConvectionAlgo INTEGER, ' &
//'OutsideConvectionAlgo INTEGER, ' &
//'FloorArea REAL, ' &
//'ExtGrossWallArea REAL, ' &
//'ExtNetWallArea REAL, ' &
//'ExtWindowArea REAL, ' &
//'IsPartOfTotalArea INTEGER);')
result = SQLitePrepareStatementMacro (ZoneInfoInsertStmt, &
'INSERT INTO Zones (' &
//'ZoneIndex, ' &
//'ZoneName, ' &
//'RelNorth, ' &
//'OriginX, ' &
//'OriginY, ' &
//'OriginZ, ' &
//'CentroidX, ' &
//'CentroidY, ' &
//'CentroidZ, ' &
//'OfType, ' &
//'Multiplier, ' &
//'ListMultiplier, ' &
//'MinimumX, ' &
//'MaximumX, ' &
//'MinimumY, ' &
//'MaximumY, ' &
//'MinimumZ, ' &
//'MaximumZ, ' &
//'CeilingHeight, ' &
//'Volume, ' &
//'InsideConvectionAlgo, ' &
//'OutsideConvectionAlgo, ' &
//'FloorArea, ' &
//'ExtGrossWallArea, ' &
//'ExtNetWallArea, ' &
//'ExtWindowArea, ' &
//'IsPartOfTotalArea) ' &
//'VALUES (?,?,?,?,?, ?,?,?,?,?, ?,?,?,?,?, ?,?,?,?,?, ?,?,?,?,?, ?,?);')
END SUBROUTINE InitializeZoneInfoTable