! 08/01/85 call F77ABORT instead of TABFAIL
    I=SAVIND
    SAVIND=SAVIND+W4
    %IF SAVIND>=COM_MAXANAL %THEN {TABFAIL("COM_SAVEANAL")} F77ABORT(5)
    SAVREC==RECORD(COM_SAVEANAL+I)
    SAVREC_PATH=PATH
    SAVREC_NUMCON=NUMCON
    SAVREC_ACON=ACON
    SAVREC_CURBL=CURBL