public static String LV_CCRD ( int ivcord ) { //Translate known vertical coordinates or look for parameter name. String vcoord = "" ; //Check for numeric vertical coordinates. if ( ( ivcord >= 0 ) && ( ivcord < vertCoords . length ) ) { vcoord = vertCoords [ ivcord ] ; } else if ( ivcord > 100 ) { // Check for character name as vertical coordinate. Check that // each character is an alphanumeric character. vcoord = ST_ITOC ( ivcord ) ; /* Check for bad values DO i = 1, 4 v = vcoord (i:i) IF ( ( ( v .lt. 'A' ) .or. ( v .gt. 'Z' ) ) .and. + ( ( v .lt. '0' ) .or. ( v .gt. '9' ) ) ) THEN ier = -1 END IF END DO END IF */ } return vcoord ; }
This subroutine translates a numeric value for IVCORD into its character value in VCOORD .