Dehnungen DKT nach STAT_NON_LINE auf Knoten

...
...
ERGEBNIS=STAT_NON_LINE(MODELE=EleMod,
                       CHAM_MATER=MatMod,
                       CARA_ELEM=EleProp,
                       EXCIT=(_F(CHARGE=Ground,),
                              _F(CHARGE=Last,
                                 FONC_MULT=LoadFunc,),),
                       COMPORTEMENT=_F(GROUP_MA='ALLEELEM',
                                       RELATION='VMIS_ISOT_TRAC',),
                       INCREMENT=_F(LIST_INST=Linst,
                                    PRECISION=1.0,),
                       METHODE='NEWTON',
                       NEWTON=_F(REAC_INCR=1,
                                 MATRICE='TANGENTE',
                                 REAC_ITER=1,
                                 REAC_ITER_ELAS=1,),
                       CONVERGENCE=_F(RESI_GLOB_MAXI=2.0,
                                      ITER_GLOB_MAXI=5,),
                       SOLVEUR=_F(METHODE='MULT_FRONT',),
                       ARCHIVAGE=_F(LIST_INST=Larch,),);

IMPR_RESU(FORMAT='MED',
          UNITE=80,
          RESU=_F(MAILLAGE=NETZ,
                  RESULTAT=ERGEBNIS,
                  NOM_CHAM='DEPL',),);

ERGEBNIS=CALC_CHAMP(reuse =ERGEBNIS,
                    RESULTAT=ERGEBNIS,
                    PRECISION=1e-06,
#                    CONTRAINTE=('EFGE_ELNO','SIEF_ELNO','EFGE_NOEU',),
                    CONTRAINTE=('SIEF_ELNO',),
                    CRITERES='SIEQ_ELNO',);

ERGEB1Q=POST_CHAMP(RESULTAT=ERGEBNIS,
                   EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO',
                                 NUME_COUCHE=1,
                                 NIVE_COUCHE='INF',),);

ERGEB1F=POST_CHAMP(RESULTAT=ERGEBNIS,
                   EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO',
                                 NUME_COUCHE=5,
                                 NIVE_COUCHE='SUP',),);

ERGEB1M=POST_CHAMP(RESULTAT=ERGEBNIS,
                   EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO',
                                 NUME_COUCHE=3,
                                 NIVE_COUCHE='MOY',),);

ERGEB1Q=CALC_CHAMP(reuse =ERGEB1Q,
                   RESULTAT=ERGEB1Q,
                   CRITERES='SIEQ_NOEU',);

ERGEB1F=CALC_CHAMP(reuse =ERGEB1F,
                   RESULTAT=ERGEB1F,
                   CRITERES='SIEQ_NOEU',);

ERGEB1M=CALC_CHAMP(reuse =ERGEB1M,
                   RESULTAT=ERGEB1M,
                   CRITERES='SIEQ_NOEU',);

IMPR_RESU(FORMAT='MED',
          UNITE=81,
          RESU=_F(MAILLAGE=NETZ,
                  RESULTAT=ERGEB1Q,
                  NOM_CHAM=('SIEQ_NOEU',),),);

IMPR_RESU(FORMAT='RESULTAT',
          UNITE=9,
          RESU=_F(MAILLAGE=NETZ,
                  RESULTAT=ERGEB1Q,
                  NOM_CHAM=('SIEQ_NOEU',),),);

IMPR_RESU(FORMAT='MED',
          UNITE=82,
          RESU=_F(MAILLAGE=NETZ,
                  RESULTAT=ERGEB1F,
                  NOM_CHAM=('SIEQ_NOEU',),),);

IMPR_RESU(FORMAT='MED',
          UNITE=83,
          RESU=_F(MAILLAGE=NETZ,
                  RESULTAT=ERGEB1M,
                  NOM_CHAM=('SIEQ_NOEU',),),);