function oc_subcat_exists, subcat_str, catalog, VERBOSE=verbose

; Returns 1 if a subcatalog file exists, or 0 if it doesn't.
;
; The directory $HDOCCUL_TMP must exist
;
; HBT 31-Jan-2005 Original version
; HBT  9-Dec-2005 Changed path location

  path_wcs	= getenv('HDOCCUL_TMP') + '/'
  path_subcat	= path_wcs 		

  return, double(file_exists(path_subcat + subcat_str))
end