goptCount = 0
IF ( delX(1) .NE. UNSET_RL ) goptCount = goptCount + 1
IF ( dxSpacing .NE. UNSET_RL ) goptCount = goptCount + 1
IF ( delXFile .NE. ' ' ) goptCount = goptCount + 1
IF ( goptCount.GT.1 ) THEN
IF ( delY(1) .NE. UNSET_RL ) goptCount = goptCount + 1
IF ( dySpacing .NE. UNSET_RL ) goptCount = goptCount + 1
IF ( delYFile .NE. ' ' ) goptCount = goptCount + 1
IF ( usingCartesianGrid ) goptCount = goptCount+1
IF ( usingSphericalPolarGrid ) goptCount = goptCount+1
IF ( usingCurvilinearGrid ) goptCount = goptCount+1
IF ( usingCylindricalGrid ) goptCount = goptCount+1
IF ( goptCount .GT. 1 ) THEN
IF ( goptCount .LT. 1 ) THEN
INTEGER goptCount