implicit real*8 (a-h, o-z)
dimension o(3000000),p(3000000),q(3000000),&
&x(3000000),y(3000000),z(3000000),&
&         mesh(1000000,11),narabi(10000,10000)
!-----------------------------------------------------------------------------
!いらない0の行を消す必要がある。
!0の下にABCを入れてあるので検索のときに使うと楽かも？
!
!上の床版の前半部分
open(7,file='syouban.txt')
read(7,*) mx
read(7,*) my
read(7,*) mz
read(7,*) nk
read(7,*) ny
read(7,*) nz
read(7,*) nset !節点数の読み込み
do i=1,nset
read(7,*) mesh(i,1),mesh(i,2),mesh(i,3),mesh(i,4),mesh(i,5),mesh(i,6),mesh(i,7),mesh(i,8),mesh(i,9)
end do
!上弦材の共有節点を出力
!----------------------------------------------------------------------------
!1点目まで
print *,"*ELEMENT, TYPE=C3D8, ELSET=Banmen_ue"
 do i=1,(0.5*mz/14-1)*mx*my+mx*(0.5*my-1)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!end do
!
!--------------------------------------------------------------------------------------------------------------------------------
!
!1点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',(3*nz+1),',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
!---------------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',3*nz+1&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------------------------------------------------------------
!2〜3点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)-2
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!----------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',3*nz+1,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------
!3〜4点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1),((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!-----------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',3*nz+1,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!-----------------------------------------------------------------------------
!
if  ( mx > my ) then
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
 else
do   i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
end if
!------------------------------------------------------------------------------------------------------------------------


!
!1点目
do  j=1,3
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz*j+3*nz+1,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+2&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+mx&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+2&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+mx&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
!--------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz*j+3*nz+1&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------
!2〜3点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz*j+3*nz+1,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!3〜4点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz*j+3*nz+1,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!
!do j=1,2
if  ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
end do
print *,"ABC"
!
!
!----------------------------------------------------------------------------------------------------------------------
!上の床版の後半部分
open(7,file='syouban2.txt')
read(7,*) mx
read(7,*) my
read(7,*) mz
read(7,*) nk
read(7,*) ny
read(7,*) nz
read(7,*) nset !節点数の読み込み
do i=1,nset
read(7,*) mesh(i,1),mesh(i,2),mesh(i,3),mesh(i,4),mesh(i,5),mesh(i,6),mesh(i,7),mesh(i,8),mesh(i,9)
end do
!上弦材の共有節点を出力
!----------------------------------------------------------------------------
!1点目まで
 do i=1,(0.5*mz/14-1)*mx*my+mx*(0.5*my-1)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!end do
!
!--------------------------------------------------------------------------------------------------------------------------------
!
!1点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz+33*nz+1,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
!---------------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz+33*nz+1&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------------------------------------------------------------
!2〜3点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)-2
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!----------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz+33*nz+1,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------
!3〜4点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1),((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!-----------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz+33*nz+1,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!-----------------------------------------------------------------------------
!
if  ( mx > my ) then
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
 else
do   i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
end if
!------------------------------------------------------------------------------------------------------------------------


!
!1点目
do  j=1,3
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz*(j+1)+33*nz+1,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+2&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+mx&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+2&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+mx&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
!--------------------------------------------------------------------------------------------------------------------------
!2点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz*(j+1)+33*nz+1&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------
!2〜3点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz*(j+1)+33*nz+1,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!3〜4点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz*(j+1)+33*nz+1,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!
!do j=1,2
if  ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
end do
print *,"ABC"
!
!--------------------------------------------------------------------------------------------------------------------------------------
!下の床版の前半部分
open(7,file='syouban3.txt')
read(7,*) mx
read(7,*) my
read(7,*) mz
read(7,*) nk
read(7,*) ny
read(7,*) nz
read(7,*) nset !節点数の読み込み
do i=1,nset
read(7,*) mesh(i,1),mesh(i,2),mesh(i,3),mesh(i,4),mesh(i,5),mesh(i,6),mesh(i,7),mesh(i,8),mesh(i,9)
end do
!
!上弦材の共有節点を出力
!-------------------------------------------------------------------------------------------------------------------------------------------
!1点目まで
print *,"*ELEMENT, TYPE=C3D8, ELSET=Banmen_sita"
 do i=1,(0.5*mz/14-1)*mx*my+mx*(0.5*my-1)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!end do
!
!--------------------------------------------------------------------------------------------------------------------------------
!
!1点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',3*nz+1+2,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
!---------------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',3*nz+1+2&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------------------------------------------------------------
!2〜3点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)-2
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!----------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',3*nz+1+2,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------
!3〜4点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1),((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!-----------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',3*nz+1+2,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!-----------------------------------------------------------------------------
!
if  ( mx > my ) then
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
 else
do   i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
end if
!------------------------------------------------------------------------------------------------------------------------


!
!1点目
do  j=1,3
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz*j+3*nz+1+2,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+2&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+mx&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+2&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+mx&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
!--------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz*j+3*nz+1+2&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------
!2〜3点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz*j+3*nz+1+2,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!3〜4点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz*j+3*nz+1+2,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!
!do j=1,2
if  ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
end do
print *,"ABC"
!
!-------------------------------------------------------------------------------------------------------
!下の床版の後半部分
open(7,file='syouban4.txt')
read(7,*) mx
read(7,*) my
read(7,*) mz
read(7,*) nk
read(7,*) ny
read(7,*) nz
read(7,*) nset !節点数の読み込み
do i=1,nset
read(7,*) mesh(i,1),mesh(i,2),mesh(i,3),mesh(i,4),mesh(i,5),mesh(i,6),mesh(i,7),mesh(i,8),mesh(i,9)
end do
!上弦材の共有節点を出力
!----------------------------------------------------------------------------
!1点目まで
 do i=1,(0.5*mz/14-1)*mx*my+mx*(0.5*my-1)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!end do
!
!--------------------------------------------------------------------------------------------------------------------------------
!
!1点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz+33*nz+1+2,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
!---------------------------------------------------------------------------------------------------------------------------------
!2点目
print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz+33*nz+1+2&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------------------------------------------------------------
!2〜3点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)-2
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!----------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz+33*nz+1+2,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!----------------------------------------------------------------------------
!3〜4点目
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1),((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)
  print *,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
!-----------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz+33*nz+1+2,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!-----------------------------------------------------------------------------
!
if  ( mx > my ) then
do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
 else
do   i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2&
   &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
   &+(mx+1)*my-1
    print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
     &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
  end do
end if
!------------------------------------------------------------------------------------------------------------------------


!
!1点目
do  j=1,3
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',12*nz*(j+1)+33*nz+1+2,',',mesh(i,5)&
 &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------
!1〜2点目
!
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+2&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)&
    &+(mx+1)*my-1+mx&
    &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+2&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
    &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)&
    &+(mx+1)*my-1+mx&
    &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
!--------------------------------------------------------------------------------------------------------------------------
!2点目
print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',12*nz*(j+1)+33*nz+1+2&
  &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!---------------------------------------------------------------------------------------------------------------------------
!2〜3点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!3点目
  print *,mesh(i,1),',',mesh(i,2),',',12*nz*(j+1)+33*nz+1+2,',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!3〜4点目
if ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx-2&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
end if
!-------------------------------------------------------------------------------------------------------------------------------
!4点目
  print *,mesh(i,1),',',12*nz*(j+1)+33*nz+1+2,',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
!--------------------------------------------------------------------------------------------------------------------------------
!
!do j=1,2
if  ( mx > my ) then
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1&
     &+((2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
end do
else
 do i=((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)&
     &,((0.5*mz/14-1)*mx*my+mx*(0.5*my-1))+mx+2+mx*(my-1)+(mx-2)+2+(2*my*(mz/14)-(2*my+1))*mx-(my+1)+(mx+1)*my-1+mx+2&
     &+mx*(my-1)+mx+(2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1&
     &+((2*mx*(mz/14)-(2*mx+1))*my-(mx+1)+(mx+1)*my-1+mx+2+mx*(my-1)+mx)*(j-1)
 print*,mesh(i,1),',',mesh(i,2),',',mesh(i,3),',',mesh(i,4),',',mesh(i,5)&
    &,',',mesh(i,6),',',mesh(i,7),',',mesh(i,8),',',mesh(i,9)
 end do
end if
end do
print *,"ABC"
!
!
end
