*HEADING
DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [CPS4RT]
**
** See ch. 1.4.8 of ABAQUS/Verification Manual
**
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
*NSET,NSET=FIX1
 1,2
*NSET,NSET=FIX2
 2,3
*NSET,NSET=FIX3
 3,4
*NSET,NSET=FIX4
 1,4
*NSET,NSET=QA_TEST
ALL
*ELEMENT, TYPE=CPS4RT, ELSET=EALL
 1, 1,2,3,4
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460.,STEFAN BOLTZMANN=.1714E-8
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0.
*CONDUCTIVITY
 3.77E-5
*SPECIFIC HEAT
 .39
*DENSITY
 82.9
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*************************
*FILE OUTPUT, NUM=1
*NODE FILE,NSET=ALL 
U,NT, 
*************************
*OUTPUT,FIELD, NUMBER INTERVAL=1
*NODE OUTPUT,NSET=QA_TEST
U,NT
*ELEMENT OUTPUT
S,
**************************
***OUTPUT, HISTORY, FREQ=500
***NODE OUTPUT, NSET=ALL
**RF, NT 
*************************
*OUTPUT, HISTORY, FREQ=99999
*ENERGY OUTPUT,VAR=ALL
*************************
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
 1, BX, 100.
 1, BY, 200.
*DFLUX, OP=NEW
 1, BF, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
 1, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
 1, BF, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*DLOAD, OP=NEW
 1, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
 1, S1, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1, 1, .001E-08
 ALL, 2, 2, .0005E-08
*BOUNDARY, OP=NEW
 FIX4, 11
*DFLUX,OP=NEW
 1, S2, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,1, -.001E-08
 ALL, 2,2, -.0005E-08
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
 1, P1, 100.
 1, P2, 200.
 1, P3, 300.
 1, P4, 400.
*DFLUX,OP=NEW
 1, S3, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*DLOAD, OP=NEW
 1, P1, 100.
 1, P2, 200.
 1, P3, 300.
 1, P4, 400.
*DFLUX,OP=NEW
 1, S4, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*DFLUX,OP=NEW
*FILM
 1, F1, 75., .103
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*FILM,OP=NEW
 1, F2, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX4, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*FILM,OP=NEW
 1, F3, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*DLOAD, OP=NEW
*FILM,OP=NEW
 1, F4, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*FILM,OP=NEW
*RADIATE, OP=NEW
 1, R1, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*RADIATE, OP=NEW
 1, R2, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX4, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*RADIATE, OP=NEW
 1, R3, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*RADIATE,OP=NEW
 1, R4, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*END STEP