*HEADING
 Transfer from Standard to Explicit: Test for S4R element 
 - Standard analysis
 - loading in bending
*NODE,NSET=ALL
 1,
 2, 2., 0.
 3, 0., 2.
 4, 2., 2.
*NSET,NSET=SIDE
 3,4
*DISTRIBUTION TABLE,NAME=DISTTABLEORI
 COORD3D,COORD3D
*DISTRIBUTION,NAME=DISTORI,LOCATION=ELEMENT,TABLE=DISTTABLEORI
      ,1.,1.,0., -1.,1.,0.
 SHELL,1.,0.,0.,  0.,1.,0.
*DISTRIBUTION TABLE,NAME=DISTTABLEORIANGLE
 ANGLE
*DISTRIBUTION,NAME=DISTORIANGLE,LOCATION=ELEMENT,TABLE=DISTTABLEORIANGLE
      ,45.
 SHELL,0.
*ORIENTATION,NAME=ORI
 DISTORI
 3, DISTORIANGLE
*DISTRIBUTION TABLE, NAME=DISTTABLETHICK
 LENGTH
*DISTRIBUTION,NAME=DISTTHICK,LOCATION=ELEMENT,TABLE=DISTTABLETHICK
  ,1.
 SHELL,0.002
*ELEMENT, TYPE=S4R, ELSET=SHELL
 10, 1,2,4,3
*SHELL SECTION, ELSET=SHELL, MATERIAL=STEEL, SHELL THICKNESS=DISTTHICK,ORIENTATION=ORI
 1.
*MATERIAL,NAME=STEEL
*ELASTIC
 200.E9, 0.
*DENSITY
 1000., 
*BOUNDARY
 1, 1,6
 2, 1,6
 3, 1,1
 3, 5,6
 4, 1,1
 4, 5,6
*AMPLITUDE, name=RAMP
 0.0, 0.0, 2.0, 1.0
*RESTART,WRITE
**
**
*ELSET,ELSET=QA_TEST_ALLELEMS
SHELL,
**
*NSET, NSET=QA_TEST_ALLNODES
ALL, SIDE
**
*STEP,NLGEOM,INC=50
*STATIC 
 0.1, 1.
*PRINT,FREQ=1
*BOUNDARY, type=VELOCITY, amp=RAMP
 3, 4,4, 1.0
 4, 4,4, 1.0
*EL PRINT,FREQ=1
 S,
 E,
 STH,
 PEEQ,
*NODE PRINT,FREQ=1
 U,
 COORD,
 RF,
*ENERGY PRINT
 ALLKE,ALLSE,ALLWK,ALLIE,ETOTAL
*EL FILE, DIRECTIONS=YES
 S,E
 STH,
*NODE FILE
 U,COORD
*OUTPUT,FIELD,VARIABLE=PRESELECT,FREQUENCY=9999
*OUTPUT,FIELD
*ELEMENT OUTPUT
 S,E
 STH,
*OUTPUT,HISTORY
*ELEMENT OUTPUT, ELSET=QA_TEST_ALLELEMS
 S,E
 STH,
*OUTPUT,FIELD
*NODE OUTPUT
 U,COORD
*OUTPUT,HISTORY
*NODE OUTPUT, NSET=QA_TEST_ALLNODES
 U,COORD
*END STEP