AbaqusUserElement.h

Go to the documentation of this file.

/*
 *
 *                 #####    #####   ######  ######  ###   ###
 *               ##   ##  ##   ##  ##      ##      ## ### ##
 *              ##   ##  ##   ##  ####    ####    ##  #  ##
 *             ##   ##  ##   ##  ##      ##      ##     ##
 *            ##   ##  ##   ##  ##      ##      ##     ##
 *            #####    #####   ##      ######  ##     ##
 *
 *
 *             OOFEM : Object Oriented Finite Element Code
 *
 *               Copyright (C) 1993 - 2013   Borek Patzak
 *
 *
 *
 *       Czech Technical University, Faculty of Civil Engineering,
 *   Department of Structural Mechanics, 166 29 Prague, Czech Republic
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2.1 of the License, or (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */

#ifndef abaqususerelement_h
#define abaqususerelement_h

#include "structuralelement.h"
#include "nlstructuralelement.h"
#include "floatarray.h"
#include "floatmatrix.h"
#include "timestep.h"


#define _IFT_AbaqusUserElement_Name "abaqususerelement"
#define _IFT_AbaqusUserElement_userElement "uel"
#define _IFT_AbaqusUserElement_numcoords "coords"
#define _IFT_AbaqusUserElement_dofs "dofs"
#define _IFT_AbaqusUserElement_numsvars "numsvars"
#define _IFT_AbaqusUserElement_properties "properties"
#define _IFT_AbaqusUserElement_type "type"
#define _IFT_AbaqusUserElement_name "name"


namespace oofem {

class AbaqusUserElement : public NLStructuralElement
{
private:
    void *uelobj;

    int nCoords;
    IntArray dofs;
    FloatMatrix coords;

    int numSvars;

    FloatArray props;

    FloatArray svars, tempSvars;

    int jtype;

    int nrhs = 2;
    FloatMatrix rhs, tempRHS;

    FloatMatrix amatrx, tempAmatrx;

    int ndofel = 0;

    int mcrd = 2;

    int mlvarx = 1;

    FloatArray U, V, A;
    FloatMatrix DU;

    IntArray lFlags;

    int kinc = 1, kstep = 1;

    int npredef = 1;
    FloatArray predef;

    FloatArray energy;

    int ndLoad = 0;
    int mdLoad = 0;

    FloatMatrix adlmag, ddlmag;
    int *jdltype = NULL;                // Temporary init.

    double params [ 3 ];

    IntArray jprops;

    bool hasTangentFlag;

    void (*uel)(double *rhs, double *amatrx, double *svars, double energy [ 8 ], int *ndofel,            // 5
                int *nrhs, int *nsvars, double *props, int *nprops, double *coords, int *mcrd,           // 6
                int *nnode, double *u, double *du, double *v, double *a, int *jtype,                     // 6
                double time [ 2 ], double *dtime, int *kstep, int *kinc, int *jelem,                     // 5
                double params [ 3 ], int *ndload, int *jdltyp, double *adlmag, double *predef,           // 5
                int *npredef, int *lflags, int *mvarx, double *ddlmag, int *mdload,                      // 5
                double *pnewdt, int *jprops, int *njprop, double *period);                               // 4 - tot 36

    std :: string filename;

public:
    AbaqusUserElement(int n, Domain *d);

    virtual ~AbaqusUserElement();

    virtual void computeConsistentMassMatrix(FloatMatrix &answer, TimeStep *tStep, double &mass, const double *ipDensity = NULL);
    //virtual void computeInitialStressMatrix(FloatMatrix &answer, TimeStep *tStep);
    virtual void computeStiffnessMatrix(FloatMatrix &answer, MatResponseMode rMode, TimeStep *tStep);
    virtual void giveInternalForcesVector(FloatArray &answer, TimeStep *tStep, int useUpdatedGpRecord = 0);
    virtual void giveInternalForcesVector(FloatArray &answer, TimeStep *tStep, FloatArray &U, FloatMatrix &DU, int useUpdatedGpRecord);
    virtual int computeNumberOfDofs() { return this->ndofel; }
    virtual void giveDofManDofIDMask(int inode, IntArray &answer) const;
    virtual void computeField(ValueModeType mode, TimeStep *tStep, const FloatArray &lcoords, FloatArray &answer)
    { OOFEM_ERROR("Abaqus user element cannot support computing local unknown vector\n"); }
    virtual void updateYourself(TimeStep *tStep);
    virtual void updateInternalState(TimeStep *tStep);

    bool hasTangent() const {
        return hasTangentFlag;
    }
    virtual void letTempTangentBe(FloatMatrix &src) {
        tempAmatrx = src;
        hasTangentFlag = true;
    }
    virtual FloatMatrix &letTempRhsBe(FloatMatrix &src) {
        return tempRHS = src;
    }
    virtual FloatArray &letTempSvarsBe(FloatArray &src) {
        return tempSvars = src;
    }
    virtual const FloatArray &giveStateVector() const {
        return svars;
    }
    virtual const FloatArray &giveTempStateVector() const {
        return tempSvars;
    }
    virtual const FloatMatrix &giveTempTangent() {
        return tempAmatrx;
    }

    virtual Interface *giveInterface(InterfaceType it);

    virtual IRResultType initializeFrom(InputRecord *ir);
    virtual void giveInputRecord(DynamicInputRecord &input);
    virtual void postInitialize();

    // definition & identification
    virtual const char *giveClassName() const { return "AbaqusUserElement"; }
    virtual const char *giveInputRecordName() const { return _IFT_AbaqusUserElement_Name; }
    virtual integrationDomain giveIntegrationDomain() const {
        return _UnknownIntegrationDomain;
    }
    virtual Element_Geometry_Type giveGeometryType() const {
        return EGT_line_1;
    }

protected:
    virtual void computeStressVector(FloatArray &answer, const FloatArray &strain, GaussPoint *gp, TimeStep *tStep) {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }
    virtual void computeConstitutiveMatrixAt(FloatMatrix &answer, MatResponseMode rMode, GaussPoint *gp, TimeStep *tStep) {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }

    virtual void computeBmatrixAt(GaussPoint *, FloatMatrix &, int = 1, int = ALL_STRAINS) {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }

    virtual int giveIPValue(FloatArray &answer, GaussPoint *gp, InternalStateType type, TimeStep *tStep) {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
        return 0;
    }
};

}// namespace oofem

#endif  // abaqususerelement_h