void freeze_surface(struct All_variables *E)
{
if(E->parallel.me == 0)
fprintf(stderr,"WARNING: freezing surface boundary condition at time step %i (not working yet)\n",
E->monitor.solution_cycles);
/*
WARNING: this is not working yet
*/
/* no slip on top */
E->mesh.topvbc = 1;E->control.VBXtopval=E->control.VBYtopval=E->control.plate_vel=0.0;
velocity_boundary_conditions(E);
check_bc_consistency(E);
construct_id(E);
//construct_lm(E);
//construct_sub_element(E);
parallel_shuffle_ele_and_id(E);
parallel_communication_routs(E);
//construct_shape_functions(E);
//mass_matrix(E);
velocities_conform_bcs(E, E->U);
}
int
initiate_preregistration_mode (SA *sa)
{
int pos;
/*
* these algs should, ideally, come from the PF_KEY, and they should
* have some implied preference and logical construction. For now just
* stick 'em here in plain serial, logical OR.
*/
sa->hash_alg = HASH_SHA;
sa->encr_alg = ET_DES_CBC;
sa->auth_alg = PRESHRD;
sa->group_desc = 1; /* the default Oakley group */
/* Nike : We use the Aggressive mode */
construct_header(sa, NIKE_PREREGISTRATION, 0, ISA_SA);
pos = sizeof(isakmp_hdr);
construct_isakmp_sa(sa, ISA_KE, &pos);
construct_ke(sa, ISA_SIGREQ, &pos);
construct_sig_req(sa, 0, &pos);
#if 0
switch (sa->auth_alg)
{
case PRESHRD:
construct_id(sa, ISA_HASH, &pos);
construct_hash(sa, 0, &pos);
break;
default:
break;
}
#endif
return(0);
}
