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 ! read(*,*) m do i=1,m read(*,*) num print*, & ',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',' print*, & ',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',' print*, & ',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',',' print*,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 ! ! print*,'学習・教育目標',',','必修',',','必修',',', & '◎',',','◎',',','○',',','○',',','取得単位' print*,'学習・教育目標',',','必要',',','取得',',', & '必要',',','取得',',','必要',',','取得',',','取得単位' ! print*,'(A-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎30単位',',',28,',',nhia12,',',2,',',na12,',', & '-',',','-',',','◎', nhia12 +na12,'/30' print*,'○35単位',',',31,',',nhia11,',','-',',','-',',', & 4,',',na11,',', '○', nhia11 +na11,'/35' ! print*,'(A-2) 基礎知識',',',',',',',',',',',',',',' print*,'◎10単位',',', 6,',',nhia22,',',4,',',na22,',', & '-',',','-',',','◎', nhia22 +na22,'/10' print*,'○30単位',',',24,',',nhia21,',','-',',','-',',', & 6,',',na21,',', '○', nhia21 +na21,'/30' ! print*,'(A-3) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 6単位',',', 4,',',nhia32,',',2,',',na32,',', & '-',',','-',',','◎', nhia32 +na32,'/ 6' print*,'○22単位',',',18,',',nhia31,',','-',',','-',',', & 4,',',na31,',', '○', nhia31 +na31,'/22' ! print*,'(B-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 8単位',',', 2,',',nhib12,',',6,',',nb12,',', & '-',',','-',',','◎', nhib12 +nb12,'/ 8' print*,'○30単位',',',26,',',nhib11,',','-',',','-',',', & 4,',',nb11,',', '○', nhib11 +nb11,'/30' ! print*,'(B-2) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 4単位',',', 0,',',nhib22,',',4,',',nb22,',', & '-',',','-',',','◎', nhib22 +nb22,'/ 4' print*,'○16単位',',',12,',',nhib21,',','-',',','-',',', & 4,',',nb21,',', '○', nhib21 +nb21,'/16' ! print*,'(C-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎25単位',',',21,',',nhic12,',',4,',',nc12,',', & '-',',','-',',','◎', nhic12 +nc12,'/25' print*,'○18単位',',',14,',',nhic11,',','-',',','-',',', & 4,',',nc11,',', '○', nhic11 +nc11,'/18' ! print*,'(D-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎25単位',',',25,',',nhid12,',',0,',',nd12,',', & '-',',','-',',','◎', nhid12 +nd12,'/25' print*,'○13単位',',', 7,',',nhid11,',','-',',','-',',', & 6,',',nd11,',', '○', nhid11 +nd11,'/13' ! print*,'(D-2) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 5単位',',', 1,',',nhid22,',',4,',',nd22,',', & '-',',','-',',','◎', nhid22 +nd22,'/ 5' print*,'○10単位',',',10,',',nhid21,',','-',',','-',',', & 0,',',nd21,',', '○', nhid21 +nd21,'/10' ! print*,'(D-3) 基礎知識',',',',',',',',',',',',',',' print*,'◎23単位',',',17,',',nhid32,',',6,',',nd32,',', & '-',',','-',',','◎', nhid32 +nd32,'/23' print*,'○11単位',',', 7,',',nhid31,',','-',',','-',',', & 4,',',nd31,',', '○', nhid31 +nd31,'/11' ! print*,'(E-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎12単位',',', 8,',',nhie12,',',4,',',ne12,',', & '-',',','-',',','◎', nhie12 +ne12,'/12' print*,'○17単位',',',13,',',nhie11,',','-',',','-',',', & 4,',',ne11,',', '○', nhie11 +ne11,'/17' ! print*,'(E-2) 基礎知識',',',',',',',',',',',',',',' print*,'◎10単位',',', 8,',',nhie22,',',2,',',ne22,',', & '-',',','-',',','◎', nhie22 +ne22,'/10' print*,'○ 9単位',',', 7,',',nhie21,',','-',',','-',',', & 2,',',ne21,',', '○', nhie21 +ne21,'/ 9' ! print*,'(E-3) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 7単位',',', 5,',',nhie32,',',2,',',ne32,',', & '-',',','-',',','◎', nhie32 +ne32,'/ 7' print*,'○ 2単位',',', 2,',',nhie31,',','-',',','-',',', & 0,',',ne31,',', '○', nhie31 +ne31,'/ 2' ! print*,'(F-1) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 2単位',',', 2,',',nhif12,',',0,',',nf12,',', & '-',',','-',',','◎', nhif12 +nf12,'/ 2' print*,'○15単位',',',15,',',nhif11,',','-',',','-',',', & 0,',',nf11,',', '○', nhif11 +nf11,'/15' ! print*,'(F-2) 基礎知識',',',',',',',',',',',',',',' print*,'◎ 8単位',',', 8,',',nhif22,',',0,',',nf22,',', & '-',',','-',',','◎', nhif22 +nf22,'/ 8' print*,'○ 7単位',',', 7,',',nhif21,',','-',',','-',',', & 0,',',nf21,',', '○', nhif21 +nf21,'/ 7' ! ! end do end !