& integr_GeoPot, selectFindRoSurf
INTEGER integr_GeoPot, selectFindRoSurf
IF (integr_GeoPot.EQ.1) THEN
ELSEIF (integr_GeoPot.EQ.0) THEN
IF (integr_GeoPot.EQ.0) THEN
ELSEIF (integr_GeoPot.EQ.1) THEN
ELSEIF ( integr_GeoPot.EQ.2
& .OR. integr_GeoPot.EQ.3 ) THEN
CALL WRITE_0D_I( integr_GeoPot, INDEX_NONE, 'integr_GeoPot =',
IF ( integr_GeoPot.EQ.1 ) THEN
IF (selectMode.EQ.2 .AND. integr_GeoPot.NE.1) THEN
IF (selectMode.EQ.-2 .AND. integr_GeoPot.NE.1) THEN
& eosType, selectP_inEOS_Zc, integr_GeoPot, selectFindRoSurf,
integr_GeoPot = 2
ELSEIF ( integr_GeoPot.EQ.1 ) THEN