	    if (savespec) {
		if (imaccess (specpath, READ_WRITE) == NO) {
		    call eprintf ("EMSAO: cannot write to %s; not saving results\n")
			call pargstr (specpath)
		    }
		else {
		    call putspec (specim, mspec0, spectrum, TY_REAL, debug)
		    if (debug) {
			call printf ("EMSAO: spectrum for %s ap %d saved\n")
			    call pargstr (specfile)
			    call pargi (mspec0)
			call flush (STDOUT)
			}
		    savespec = FALSE
		    }
		}
