POURSUITE(LANG='FR')

ondo = DEFI_FONCTION(NOM_PARA='INST',
                     VALE=(1.0, 25.39, 601.0, 25.48, 1201.0, 25.74, 1801.0, 25.91, 2401.0, 25.91))

listr2 = DEFI_LIST_REEL(DEBUT=1.0,
                        INTERVALLE=_F(JUSQU_A=2401.0,
                                      PAS=4.0))

times2 = DEFI_LIST_INST(DEFI_LIST=_F(LIST_INST=listr2),
                        METHODE='MANUEL')

field0 = CREA_CHAMP(AFFE=_F(GROUP_MA=('sen', ),
                            NOM_CMP=('TEMP', ),
                            VALE_F=(ondo, )),
                    MODELE=model,
                    OPERATION='AFFE',
                    TYPE_CHAM='NOEU_TEMP_F')

statvars = CREA_RESU(AFFE=_F(CARA_ELEM=elemprop,
                             CHAM_GD=field0,
                             LIST_INST=listr2,
                             MODELE=model),
                     NOM_CHAM='TEMP',
                     OPERATION='AFFE',
                     TYPE_RESU='EVOL_VARC')

mate2 = AFFE_MATERIAU(AFFE=_F(GROUP_MA=('sen', ),
                              MATER=(mater, )),
                      AFFE_VARC=_F(EVOL=statvars,
                                   GROUP_MA=('sen', ),
                                   NOM_CHAM='TEMP',
                                   NOM_VARC='TEMP',
                                   VALE_REF=0.0),
                      MODELE=model)

resnonl1 = DYNA_NON_LINE(CARA_ELEM=elemprop,
                         CHAM_MATER=mate2,
                         COMPORTEMENT=_F(DEFORMATION='GROT_GDEP',
                                         GROUP_MA=('sen', ),
                                         RELATION='CABLE'),
                         CONVERGENCE=_F(ITER_GLOB_MAXI=50),
                         ETAT_INIT=_F(EVOL_NOLI=resnonl),
                         EXCIT=(_F(CHARGE=load),
                                _F(CHARGE=zyuryoku,
                                   FONC_MULT=keisuu)),
                         INCREMENT=_F(LIST_INST=times2),
                         MODELE=model,
                         NEWTON=_F(MATRICE='TANGENTE',
                                   REAC_ITER=1),
                         SCHEMA_TEMPS=_F(BETA=0.25,
                                         FORMULATION='DEPLACEMENT',
                                         GAMMA=0.5,
                                         SCHEMA='NEWMARK'))

calc2 = CALC_CHAMP(CARA_ELEM=elemprop,
                   CHAM_MATER=mate2,
                   CONTRAINTE=('EFGE_ELNO', ),
                   FORCE=('REAC_NODA', ),
                   MODELE=model,
                   RESULTAT=resnonl1)

IMPR_RESU(FORMAT='MED',
          RESU=(_F(CARA_ELEM=elemprop,
                   MAILLAGE=mesh,
                   NOM_CHAM=('DEPL', ),
                   RESULTAT=resnonl1),
                _F(CARA_ELEM=elemprop,
                   MAILLAGE=mesh,
                   NOM_CHAM=('EFGE_ELNO', 'REAC_NODA'),
                   RESULTAT=calc2)),
          UNITE=80)

FIN()