SUBROUTINE STIRR2(Z,VPLAST)
IMPLICIT DOUBLE PRECISION(A-H,O-Y)