        program sousigm
        implicit real*8(a-h,o-z)
        dimension sigm(3,3)
c
!       print*,'$B85$ND9$5$rF~$l$F2<$5$$(B'
!       read*,zl
       zl=0.02d0
       print*,'$BJQ0L$rF~$l$F2<$5$$(B'
       read*,w
       hizumi=w*30.d0
       hizumi=w/zl
        do i=1,3
        do j=1,3
        sigm(i,j)=0
        end do
        end do
c
c        read(*,*)sigm(1,1)
       print*,'6$B$D$N1~NO$r(B , $B$+H>3Q$G6h@Z$C$F$$$l$F2<$5$$(B'
        read(*,*)sigm(1,1),sigm(2,2),sigm(3,3),sigm(1,2),sigm(2,3)
     &,sigm(3,1)
c        sigm(1,1)=0.33021d0
c        read(*,*)sigm(2,2)
c        sigm(2,2)=sigm(1,1)
c        read(*,*)sigm(3,3)
c        sigm(3,3)=238.33d0
c        read(*,*)sigm(1,2)
c        sigm(1,2)=4.0178d-15
c        read(*,*)sigm(2,3)
c        sigm(2,3)=4.2779d-14
c        read(*,*)sigm(3,1)
c        sigm(3,1)=-9.6142d-14
c
        eqsigm=((sigm(1,1)-sigm(2,2))**2+(sigm(2,2)-sigm(3,3))**2
     &  +(sigm(3,3)-sigm(1,1))**2+6.d0*((sigm(2,3))**2+(sigm(3,1))**2
     &  +(sigm(1,2))**2))/6.d0
       print*,'$B$R$:$_(B=',hizumi
        write(*,*)'$BBh(B2$BITJQNL(BJ2=',sqrt(eqsigm)
        write(*,*)hizumi,sqrt(eqsigm)!*sqrt(3.d0)
        end
