subroutine vsdvini(
C Read only -
     *     nblock, jElem, nIntPt, nLayer, nSectPt, 
     *     ndim, nstatev, cmname, coordMp, charLength,
C Write only (modifiable) -
     *     stateIni ) 
C
      include 'vaba_param.inc'
C
      dimension charLength(nblock), coordMp(nblock,ndim),
     *   stateIni(nblock,nstatev), jElem(nblock)
C
      character*80 cmname
C
      do 100 km = 1,nblock
         stateIni(km,1)=1.D0
         stateIni(km,2)=2.1D1
  100 continue
C
      return
      end