function PressChange(SCPfile,serv,Col,P)
    fid = fopen(SCPfile, 'r+');
    fseek(fid, 210, 'bof');
    fprintf(fid, '%1.3e ',P);
    fclose(fid);
    serv.PlayScript([pwd,'\',SCPfile])
    Col.ColumnFlowsheet.Run