& integr_GeoPot, selectFindRoSurf
INTEGER integr_GeoPot, selectFindRoSurf
CALL WRITE_0D_I( selectFindRoSurf, INDEX_NONE,
IF (selectFindRoSurf.NE.0) THEN
IF (selectFindRoSurf.EQ.0 .AND. selectMode .GT. 0 ) THEN
IF ( selectFindRoSurf.EQ.1 ) THEN
IF ( selectFindRoSurf*selectMode .GT. 0) THEN
IF (selectFindRoSurf.EQ.1) THEN
IF ( selectFindRoSurf.LT.0 .OR. selectFindRoSurf.GT.1 ) THEN
& 'INI_P_GROUND: selectFindRoSurf =', selectFindRoSurf,
& eosType, integr_GeoPot, selectFindRoSurf,
selectFindRoSurf = 0