*HEADING BASIC VERIFICATION OF USER SUBROUTINE VHETVAL TEST TYPE: USER SUBROUTINE, TEST NAME: VHETVALX *NODE,NSET=NALL 1, 0., 0. 2, 5., 0. 3, 10.,0. 11,0., 2. 12,5., 2. 13,10.,2. 21,0., 3. 22,5., 3. 23,10.,3. 31,0., 5. 32,5., 5. 33,10.,5. *NSET, NSET=QAOUTPUT 1, 21 *ELEMENT,TYPE=CPS4RT,ELSET=UBLOCK 1,1,2,12,11 2,2,3,13,12 *ELEMENT,TYPE=CPS4RT,ELSET=ABLOCK 3,21,22,32,31 4,22,23,33,32 *SOLID SECTION,ELSET=UBLOCK,MATERIAL=UBLOCK 1., *SOLID SECTION,ELSET=ABLOCK,MATERIAL=ABLOCK 1., *MATERIAL,NAME=UBLOCK *ELASTIC 1.0,0.0 *EXPANSION 0.0, *CONDUCTIVITY 7.872E-4, *DENSITY 0.2829, *SPECIFIC HEAT 0.1431, *HEAT GENERATION, PROPERTIES=1 0.40483 *MATERIAL,NAME=ABLOCK *ELASTIC 1.0,0.0 *EXPANSION 0.0, *CONDUCTIVITY 7.872E-4, *DENSITY 0.2829, *SPECIFIC HEAT 0.1431, ** *STEP *DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT ,50. *DFLUX ABLOCK, BF, 0.40483 *OUTPUT,FIELD, NUM=10 *NODE OUTPUT NT, *OUTPUT,HISTORY *NODE OUTPUT, NSET=QAOUTPUT NT11 *END STEP