AbaqusUserElement.h

Go to the documentation of this file.

/*
 *
 *                 #####    #####   ######  ######  ###   ###
 *               ##   ##  ##   ##  ##      ##      ## ### ##
 *              ##   ##  ##   ##  ####    ####    ##  #  ##
 *             ##   ##  ##   ##  ##      ##      ##     ##
 *            ##   ##  ##   ##  ##      ##      ##     ##
 *            #####    #####   ##      ######  ##     ##
 *
 *
 *             OOFEM : Object Oriented Finite Element Code
 *
 *               Copyright (C) 1993 - 2025   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 "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 ParamKey;
class AbaqusUserElement : public StructuralElement
{
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 = nullptr;                // 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;
 
    static ParamKey IPK_AbaqusUserElement_userElement;
    static ParamKey IPK_AbaqusUserElement_numcoords;
    static ParamKey IPK_AbaqusUserElement_dofs;
    static ParamKey IPK_AbaqusUserElement_numsvars;
    static ParamKey IPK_AbaqusUserElement_properties;
    static ParamKey IPK_AbaqusUserElement_type;
    static ParamKey IPK_AbaqusUserElement_name;
 
public:
    AbaqusUserElement(int n, Domain *d);

    virtual ~AbaqusUserElement();
 
    void computeConsistentMassMatrix(FloatMatrix &answer, TimeStep *tStep, double &mass, const double *ipDensity = NULL) override;
    //void computeInitialStressMatrix(FloatMatrix &answer, TimeStep *tStep) override;
    void computeStiffnessMatrix(FloatMatrix &answer, MatResponseMode rMode, TimeStep *tStep) override;
    void giveInternalForcesVector(FloatArray &answer, TimeStep *tStep, int useUpdatedGpRecord = 0) override;
    virtual void giveInternalForcesVector(FloatArray &answer, TimeStep *tStep, FloatArray &U, FloatMatrix &DU, int useUpdatedGpRecord);
    int computeNumberOfDofs() override { return this->ndofel; }
    void giveDofManDofIDMask(int inode, IntArray &answer) const override;
    void computeField(ValueModeType mode, TimeStep *tStep, const FloatArray &lcoords, FloatArray &answer) override
    { OOFEM_ERROR("Abaqus user element cannot support computing local unknown vector\n"); }
    void updateYourself(TimeStep *tStep) override;
    void updateInternalState(TimeStep *tStep) override;
 
    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;
    }
 
    void initializeFrom(InputRecord &ir, int priority) override;
    void giveInputRecord(DynamicInputRecord &input) override;
    void postInitialize() override;
 
    // definition & identification
    const char *giveClassName() const override { return "AbaqusUserElement"; }
    const char *giveInputRecordName() const override { return _IFT_AbaqusUserElement_Name; }
    integrationDomain giveIntegrationDomain() const override { return _UnknownIntegrationDomain; }
    Element_Geometry_Type giveGeometryType() const override { return EGT_line_1; }
 
protected:
    void computeStressVector(FloatArray &answer, const FloatArray &strain, GaussPoint *gp, TimeStep *tStep) override {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }
    void computeConstitutiveMatrixAt(FloatMatrix &answer, MatResponseMode rMode, GaussPoint *gp, TimeStep *tStep) override {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }
 
    void computeBmatrixAt(GaussPoint *, FloatMatrix &, int = 1, int = ALL_STRAINS) override {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }
 
    int giveIPValue(FloatArray &answer, GaussPoint *gp, InternalStateType type, TimeStep *tStep) override {
        OOFEM_ERROR("Function not defined for AbaqusUserElement and should never be called. This is a bug.");
    }
};
}// namespace oofem
 
#endif  // abaqususerelement_h