implicit real*8 (a-h, o-z) dimension x(3000000),y(3000000),z(3000000),& & mesh(1000000,6),narabi(10000,10000) character mozi*20,mozi0*20 pi=2.d0*asin(1.d0) !read*, mozi0 !1行目の文字を読み込む read*, nset !節点数の読み込み do i=0,nset-1 read*, mesh(i,1),x(i),y(i),z(i) !各節点の座標値の読み込み end do ! open(7,file='yousosuu.txt') !yousosuu.fで数えた要素数ファイル read(7,*) nyou !要素数の読み込み read(7,*) nsyuubun,ntakabun !周方向、高さ方向の分割数の読み込み ! ! ! print*, mozi0 ! print*, nset do i=0,nset-1 ! print*, mesh(i,1),',',x(i)*cos(pi/4)-y(i)*sin(pi/4),',',x(i)*sin(pi/4)+y(i)*cos(pi/4),',',z(i) print*, mesh(i,1),',',x(i)*cos(pi/(nsyuubun/2))-y(i)*sin(pi/(nsyuubun/2)),','& &,x(i)*sin(pi/(nsyuubun/2))+y(i)*cos(pi/(nsyuubun/2)),',',z(i) end do end