INTEGER FUNCTION LogicalToInteger( Flag )
! SUBROUTINE INFORMATION:
! AUTHOR Dimitri Curtil
! DATE WRITTEN November 2004
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! This subroutine uses an input logical and makes
! an integer (true=1, false=0)
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
LOGICAL, INTENT(IN) :: Flag
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
IF ( Flag ) THEN
LogicalToInteger = 1
ELSE
LogicalToInteger = 0
ENDIF
RETURN
END FUNCTION LogicalToInteger