source: issm/trunk/src/c/ThicknessExtrudex/ThicknessExtrudex.cpp@ 586

Last change on this file since 586 was 586, checked in by Eric.Larour, 16 years ago

Added dakota parallel c code capability + Prognostic capability
File size: 853 bytes
Line 
1/*!\file ThicknessExtrudex
2 * \brief: vertical velocity extrusion
3 */
4
5#include "./ThicknessExtrudex.h"
6
7#undef __FUNCT__
8#define __FUNCT__ "ThicknessExtrudex"
9
10#include "../shared/shared.h"
11#include "../include/macros.h"
12#include "../toolkits/toolkits.h"
13#include "../EnumDefinitions/EnumDefinitions.h"
14
15void ThicknessExtrudex( Vec tg, DataSet* elements,DataSet* nodes, DataSet* loads, DataSet* materials){
16
17 double* tg_serial=NULL;
18
19 /*First, get elements and nodes configured: */
20 elements->Configure(elements,loads, nodes, materials);
21 nodes->Configure(elements,loads, nodes, materials);
22
23 /*Serialize velcoity: */
24 VecToMPISerial(&tg_serial,tg);
25
26 /*Extrude velocity vertically: */
27 elements->ThicknessExtrude(tg,tg_serial);
28
29 /*Assemble vector: */
30 VecAssemblyBegin(tg);
31 VecAssemblyEnd(tg);
32
33 /*Free ressources:*/
34 xfree((void**)&tg_serial);
35
36}
Note: See TracBrowser for help on using the repository browser.