Subroutine sigini(sigma, coords, ntens, ncrds, noel, npt, layer, kspt, lrebar, names)

!

  Include 'ABA_PARAM.INC'

!

  Dimension sigma(ntens), coords(ncrds)

  Character *80 names(*)

!

  Real :: x_1, y_1, z_1, wi

  Integer :: stripnum, ni, lo, ui, vi

  wi = 0

  Call random_seed()

  Call random_number(x_1)

  wi=100*x_1

  ni = int(wi)

  If (coords(2)>0 .And. coords(2)<ni) Then

    If (coords(1)>0 .And. coords(1)<200) Then

      If (layer==3 .And. kspt==1) Then

        sigma(1) = 0

      End If

      If (layer==3 .And. kspt==2) Then

        sigma(1) = -100000000

      End If

      If (layer==3 .And. kspt==3) Then

        sigma(1) = -300000000

      End If

      If (layer==3 .And. kspt==4) Then

        sigma(1) = -900000000

      End If

      If (layer==3 .And. kspt==5) Then

        sigma(1) = -1200000000

      End If

      If (layer==3 .And. kspt==6) Then

        sigma(1) = -1100000000

      End If

      If (layer==3 .And. kspt==7) Then

        sigma(1) = -1000000000

      End If

    End If

  End If

  Return

End Subroutine sigini