        implicit real*8(a-h,o-z)
         pi=2.d0*asin(1.d0)
         b=0.3d0
         h=3.d0
         ell=15.d0
         e=210.d9
         poi=0.3d0
         g=e/2.d0/(1.d0+poi)
          yi=h*b**3/12.d0
          eiy=e*yi
          call kukei(b,h,cj,wi)
          gj=g*cj
          eiw=e*wi
           a1=sqrt(eiy*gj)/ell/ell
           a2=sqrt(eiw/gj)*pi/ell
           tra=a1*(3.95d0+3.52d0*a2)
           print*,'tra=',tra,'N'
           print*,'tra=',tra/1.d3,'kN'
           print*,'tra=',tra/1.d6,'MN'
           print*,'tra=',tra/1.d9,'GN'
           ! tram=tra*ell**2/eiy
           !r=sqrt(yi/b/h)
           !rmd=ell/r
!          print '(a,1pd11.3)','wi=',wi
!          print '(f5.0, 3f8.2,1p4d11.3 )', ell,tra,pe,gosa,tram,pem,
!          print*, ell,tra,pe,gosa,tram,pem,gj,wi
!          write(*,100) ell,tra,pe,gosa,tram,pem,rmd
         end
! 
          subroutine kukei(tan,tyou,cj,wi)
          implicit real*8 (a-h, o-z)
          dimension x(5000),y(5000)
! ねじりの応力関数、そり関数の級数の項数：kyuu
          kyuu=9
          a=tan/2.d0
          b=tyou/2.d0
! 短辺/2の分割数:na
! と長辺/2の分割数:nb（偶数）
          na=500
          nb=500
          an=a/float(na)
          bn=b/float(nb)
          f=an*bn
          pi=2.d0*asin(1.d0)
        do i=1,na
         x(i)=an*i -an/2.d0
		end do
        do j=1,nb
         y(j)=bn*j -bn/2.d0
		end do
!
         xi=0.d0
         yi=0.d0
         pj=0.d0
         ww=0.d0
         do l=1,na
         do m=1,nb
           xl=x(l)
           ym=y(m)
           call sori(kyuu,a,b,xl,ym,pi,w)
           ww=ww+w**2*f
		  end do
		  end do
           wi=ww*4.d0
!
          call timj(kyuu,a,b,pi,tj)
               bt33=tyou*tan**3/3.d0
               cj=tj*bt33
!       write(*,500) ' ねじり定数（Timoshenkoの長方形断面）：  ',cj
!       write(*,500) ' ねじり定数（薄肉の近似：bt^3/3）：      ',bt33
!       write(*,500) ' そりねじり定数（断面積分）：            ',wi
!       write(*,500) ' そりねじり定数（薄肉近似：(bt)^3/144）：',
!     &                (tyou*tan)**3/144.d0
! (bt)^3/144 というのは _|_ 型断面の出っ張り | の厚さを
! 0 としたそりねじり定数
! 500      format(a,1pd15.7)
         return
         end
!
! ******* ねじり定数 ********
! Timoshenko が計算した正解
! 手で積分して、級数も極限を取れる部分は取ってある
! 極限を取れない級数は、19項まで
         subroutine timj(kyuu,a,b,pi,tj)
          implicit real*8 (a-h, o-z)
           tj=0.d0
          do n=1,kyuu,2
           tj=tj+1.d0/n**5*tanh(n*pi*b/2.d0/a)
		  end do
           tj=1.d0-192.d0/pi**5*a/b*tj
          return
          end
!
!
! ******** そりねじり定数 **********
! 正規化そり関数の級数について和を取る
         subroutine sori(kyuu,a,b,x,y,pi,w)
          implicit real*8 (a-h, o-z)
          w=0.d0
          do n=1,kyuu,2
           w=w+(-1.d0)**( (n+1)/2 )/ n**3 *&
&       sinh(n*pi*y/2.d0/a) / cosh(n*pi*b/2.d0/a)&
&       *sin(n*pi*x/2.d0/a)
           end do
           w=32.d0*a**2/pi**3* w + x*y
          return
          end
!

