Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
implicit real*8 (a-h,o-z) character(100) a dimension mtani(10000000),nhi(100000000),na1(10000000), & na2(10000000),na3(10000000),nb1(100000000),nb2(10000000), & nc1(10000000),nd1(10000000),nd2(100000000),nd3(10000000), & ne1(10000000),ne2(10000000),ne3(100000000),nf1(10000000), & nf2(10000000) ! dimension kamo(1000),tani(1000), syuu(1000),kamoku(10000000) open(7,file='moku0.csv') read(7,*) a nkamoku=338 ! moku0.csvの全科目数 do i=1,nkamoku read(7,*) j,mtanii,nhii,na1i,na2i,na3i, & nb1i,nb2i,nc1i,nd1i,nd2i,nd3i,ne1i,ne2i, & ne3i,nf1i,nf2i ! mtani(j)=mtanii; nhi(j)=nhii; na1(j)=na1i; na2(j)=na2i na3(j)=na3i; nb1(j)=nb1i; nb2(j)=nb2i; nc1(j)=nc1i; nd1(j)=nd1i nd2(j)=nd2i; nd3(j)=nd3i; ne1(j)=ne1i; ne2(j)=ne2i; ne3(j)=ne3i nf1(j)=nf1i; nf2(j)=nf2i ! ! moku0.csvに空欄があると、前回読み込み値が引き継がれるので、ここで初期化。 mtanii=0; nhii=0; na1i=0; na2i=0 na3i=0; nb1i=0; nb2i=0; nc1i=0; nd1i=0 nd2i=0; nd3i=0; ne1i=0; ne2i=0; ne3i=0 nf1i=0; nf2i=0 ! end do ! ! open(8,file='souka03h.tex') write(8,*) '\\documentclass[a4j]{jsarticle}' write(8,*) '\\begin{document}' ! ! read(*,*) m do i=1,m read(*,*) num ! ! read(*,*) kamsuu ! nhia12=0; nhia11=0; na12=0; na11=0 nhia22=0; nhia21=0; na22=0; na21=0 nhia32=0; nhia31=0; na32=0; na31=0 nhib12=0; nhib11=0; nb12=0; nb11=0 nhib22=0; nhib21=0; nb22=0; nb21=0 nhic12=0; nhic11=0; nc12=0; nc11=0 nhid12=0; nhid11=0; nd12=0; nd11=0 nhid22=0; nhid21=0; nd22=0; nd21=0 nhid32=0; nhid31=0; nd32=0; nd31=0 nhie12=0; nhie11=0; ne12=0; ne11=0 nhie22=0; nhie21=0; ne22=0; ne21=0 nhie32=0; nhie31=0; ne32=0; ne31=0 nhif12=0; nhif11=0; nf12=0; nf11=0 nhif22=0; nhif21=0; nf22=0; nf21=0 ! do j=1,kamsuu read*, k, tanij, syuuj ! A-1 if((nhi(k)==20).and.(na1(k)==2)) nhia12=nhia12+mtani(k) if((nhi(k)==20).and.(na1(k)==1)) nhia11=nhia11+mtani(k) if((nhi(k)==10).and.(na1(k)==2)) na12=na12+mtani(k) if((nhi(k)==10).and.(na1(k)==1)) na11=na11+mtani(k) ! A-2 if((nhi(k)==20).and.(na2(k)==2)) nhia22=nhia22+mtani(k) if((nhi(k)==20).and.(na2(k)==1)) nhia21=nhia21+mtani(k) if((nhi(k)==10).and.(na2(k)==2)) na22=na22+mtani(k) if((nhi(k)==10).and.(na2(k)==1)) na21=na21+mtani(k) ! A-3 if((nhi(k)==20).and.(na3(k)==2)) nhia32=nhia32+mtani(k) if((nhi(k)==20).and.(na3(k)==1)) nhia31=nhia31+mtani(k) if((nhi(k)==10).and.(na3(k)==2)) na32=na32+mtani(k) if((nhi(k)==10).and.(na3(k)==1)) na31=na31+mtani(k) ! B-1 if((nhi(k)==20).and.(nb1(k)==2)) nhib12=nhib12+mtani(k) if((nhi(k)==20).and.(nb1(k)==1)) nhib11=nhib11+mtani(k) if((nhi(k)==10).and.(nb1(k)==2)) nb12=nb12+mtani(k) if((nhi(k)==10).and.(nb1(k)==1)) nb11=nb11+mtani(k) ! B-2 if((nhi(k)==20).and.(nb2(k)==2)) nhib22=nhib22+mtani(k) if((nhi(k)==20).and.(nb2(k)==1)) nhib21=nhib21+mtani(k) if((nhi(k)==10).and.(nb2(k)==2)) nb22=nb22+mtani(k) if((nhi(k)==10).and.(nb2(k)==1)) nb21=nb21+mtani(k) ! C-1 if((nhi(k)==20).and.(nc1(k)==2)) nhic12=nhic12+mtani(k) if((nhi(k)==20).and.(nc1(k)==1)) nhic11=nhic11+mtani(k) if((nhi(k)==10).and.(nc1(k)==2)) nc12=nc12+mtani(k) if((nhi(k)==10).and.(nc1(k)==1)) nc11=nc11+mtani(k) ! D-1 if((nhi(k)==20).and.(nd1(k)==2)) nhid12=nhid12+mtani(k) if((nhi(k)==20).and.(nd1(k)==1)) nhid11=nhid11+mtani(k) if((nhi(k)==10).and.(nd1(k)==2)) nd12=nd12+mtani(k) if((nhi(k)==10).and.(nd1(k)==1)) nd11=nd11+mtani(k) ! D-2 if((nhi(k)==20).and.(nd2(k)==2)) nhid22=nhid22+mtani(k) if((nhi(k)==20).and.(nd2(k)==1)) nhid21=nhid21+mtani(k) if((nhi(k)==10).and.(nd2(k)==2)) nd22=nd22+mtani(k) if((nhi(k)==10).and.(nd2(k)==1)) nd21=nd21+mtani(k) ! D-3 if((nhi(k)==20).and.(nd3(k)==2)) nhid32=nhid32+mtani(k) if((nhi(k)==20).and.(nd3(k)==1)) nhid31=nhid31+mtani(k) if((nhi(k)==10).and.(nd3(k)==2)) nd32=nd32+mtani(k) if((nhi(k)==10).and.(nd3(k)==1)) nd31=nd31+mtani(k) ! E-1 if((nhi(k)==20).and.(ne1(k)==2)) nhie12=nhie12+mtani(k) if((nhi(k)==20).and.(ne1(k)==1)) nhie11=nhie11+mtani(k) if((nhi(k)==10).and.(ne1(k)==2)) ne12=ne12+mtani(k) if((nhi(k)==10).and.(ne1(k)==1)) ne11=ne11+mtani(k) ! E-2 if((nhi(k)==20).and.(ne2(k)==2)) nhie22=nhie22+mtani(k) if((nhi(k)==20).and.(ne2(k)==1)) nhie21=nhie21+mtani(k) if((nhi(k)==10).and.(ne2(k)==2)) ne22=ne22+mtani(k) if((nhi(k)==10).and.(ne2(k)==1)) ne21=ne21+mtani(k) ! E-3 if((nhi(k)==20).and.(ne3(k)==2)) nhie32=nhie32+mtani(k) if((nhi(k)==20).and.(ne3(k)==1)) nhie31=nhie31+mtani(k) if((nhi(k)==10).and.(ne3(k)==2)) ne32=ne32+mtani(k) if((nhi(k)==10).and.(ne3(k)==1)) ne31=ne31+mtani(k) ! F-1 if((nhi(k)==20).and.(nf1(k)==2)) nhif12=nhif12+mtani(k) if((nhi(k)==20).and.(nf1(k)==1)) nhif11=nhif11+mtani(k) if((nhi(k)==10).and.(nf1(k)==2)) nf12=nf12+mtani(k) if((nhi(k)==10).and.(nf1(k)==1)) nf11=nf11+mtani(k) ! F-2 if((nhi(k)==20).and.(nf2(k)==2)) nhif22=nhif22+mtani(k) if((nhi(k)==20).and.(nf2(k)==1)) nhif21=nhif21+mtani(k) if((nhi(k)==10).and.(nf2(k)==2)) nf22=nf22+mtani(k) if((nhi(k)==10).and.(nf2(k)==1)) nf21=nf21+mtani(k) ! end do ! ! write(8,*) '\\begin{table}[h]' write(8,*) '\\vspace{-20mm}' write(8,*) '\\begin{tabular}{crrrc}' write(8,*) num,' \\\\' ! ! write(8,*) '学習・教育目標 & 必修 & 選択 & 取得単位 & 未/了\\\\' ! write(8,*) '(A-1) 基礎知識 & & & & \\\\' call maru2(30,29,nhia12,1,na12) call maru1(35,31,nhia11,4,na11) ! write(8,*) '(A-2) 基礎知識 & & & & \\\\' call maru2( 8, 4,nhia22,4,na22) call maru1(32,26,nhia21,6,na21) ! write(8,*) '(A-3) 基礎知識 & & & & \\\\' call maru2( 6, 4,nhia32,2,na32) call maru1(25,21,nhia31,4,na31) ! write(8,*) '(B-1) 基礎知識 & & & & \\\\' call maru2(10, 4,nhib12,6,nb12) call maru1(30,26,nhib11,4,nb11) ! write(8,*) '(B-2) 基礎知識 & & & & \\\\' call maru2( 4, 0,nhib22,4,nb22) call maru1(16,12,nhib21,4,nb21) ! write(8,*) '(C-1) 基礎知識 & & & & \\\\' call maru2(27,23,nhic12,4,nc12) call maru1(18,14,nhic11,4,nc11) ! write(8,*) '(D-1) 基礎知識 & & & & \\\\' call maru2(26,26,nhid12,0,nd12) call maru1(15, 9,nhid11,6,nd11) ! write(8,*) '(D-2) 基礎知識 & & & & \\\\' call maru2( 7, 3,nhid22,4,nd22) call maru1(12,12,nhid21,0,nd21) ! write(8,*) '(D-3) 基礎知識 & & & & \\\\' call maru2(23,17,nhid32,6,nd32) call maru1(11, 7,nhid31,4,nd31) ! write(8,*) '(E-1) 基礎知識 & & & & \\\\' call maru2(14,10,nhie12,4,ne12) call maru1(21,17,nhie11,4,ne11) ! write(8,*) '(E-2) 基礎知識 & & & & \\\\' call maru2(12,10,nhie22,2,ne22) call maru1( 9, 7,nhie21,2,ne21) ! write(8,*) '(E-3) 基礎知識 & & & & \\\\' call maru2( 9, 7,nhie32,2,ne32) call maru1( 2, 2,nhie31,0,ne31) ! write(8,*) '(F-1) 基礎知識 & & & & \\\\' call maru2( 3, 3,nhif12,0,nf12) call maru1(15,15,nhif11,0,nf11) ! write(8,*) '(F-2) 基礎知識 & & & & \\\\' call maru2( 9, 9,nhif22,0,nf22) call maru1( 7, 7,nhif21,0,nf21) ! write(8,*) '\\end{tabular}' write(8,*) '\\end{table}' write(8,*) '\\clearpage' ! end do write(8,*) '\\end{document}' close(8) end ! subroutine maru2(nkei,nhihi,nhisyu,nhi,nsyu) ngou=nhisyu+nsyu if(ngou>=nkei) then write(8,*) '◎',nkei,'単位 &',nhisyu,'/',nhihi,' &', & nsyu,'/',nhi,' &', ngou,'/',nkei,' &','了 \\\\' else write(8,*) '◎',nkei,'単位 &',nhisyu,'/',nhihi,' &', & nsyu,'/',nhi,' &', ngou,'/',nkei,' &','■未■ \\\\' end if return end ! ! subroutine maru1(nkei,nhihi,nhisyu,nhi,nsyu) ngou=nhisyu+nsyu if(ngou>=nkei) then write(8,*) '◯',nkei,'単位 &',nhisyu,'/',nhihi,' &', & nsyu,'/',nhi,' &', ngou,'/',nkei,' &','了 \\\\' else write(8,*) '◯',nkei,'単位 &',nhisyu,'/',nhihi,' &', & nsyu,'/',nhi,' &', ngou,'/',nkei,' &','■未■ \\\\' end if return end ! ! ! !