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); }