& usingPCoords, usingZCoords, useDynP_inEos_Zc,
LOGICAL usingZCoords
IF ( usingZCoords ) THEN
& usingZCoords.AND.rhoRefFile .NE. ' ' ) ) THEN
IF ( (usingZCoords .AND. K .EQ. 2) .OR.
CALL WRITE_0D_L( usingZCoords, INDEX_NONE,
IF ( select_rStar.EQ.0 .AND. usingZCoords ) THEN
usingZCoords = .FALSE.
usingZCoords = .TRUE.
IF ( usingZCoords ) rEmpty = rF(1)
IF ( usingZCoords ) rSigBndRS = rF(1)
IF ( usingZCoords .AND. setInterFDr ) THEN
IF ( usingZCoords .AND. setCenterDr ) THEN
ELSEIF ( usingZCoords ) THEN
useDynP_inEos_Zc = ( fluidIsWater .AND. usingZCoords
IF ( usingZCoords .AND. rhoRefFile .NE. ' ' ) THEN
IF (usingZCoords) upward = -1