<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
        implicit real*8 (a-h,o-z)
        character(100) a
        dimension mtani(1000),nhi(10000),na1(1000),
     &  na2(1000),na3(1000),nb1(10000),nb2(1000),
     &  nc1(1000),nd1(1000),nd2(10000),nd3(1000),
     &  ne1(1000),ne2(1000),ne3(10000),nf1(1000),
     &  nf2(1000),kamkodo(1000)
!       dimension kamo(1000),tani(1000), syuu(1000),kamoku(1000)
        open(7,file='moku0.csv')
        read(7,*) a
         nkamoku=347 ! 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
!
        kamkodo(i)=j
        mtani(i)=mtanii; nhi(i)=nhii; na1(i)=na1i; na2(i)=na2i 
        na3(i)=na3i; nb1(i)=nb1i; nb2(i)=nb2i; nc1(i)=nc1i; nd1(i)=nd1i
        nd2(i)=nd2i; nd3(i)=nd3i; ne1(i)=ne1i; ne2(i)=ne2i; ne3(i)=ne3i
        nf1(i)=nf1i; nf2(i)=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='siito.tex')
        write(8,*) '\\documentclass[a4j,8pt]{jsarticle}'
        write(8,*) '\\setlength{\\topmargin}{-30mm}'
        write(8,*) '\\setlength{\\textheight}{300mm}'
        write(8,*) '\\setlength{\\textwidth}{220mm}'
        write(8,*) '\\begin{document}'
        write(8,*) '\\pagestyle{empty}'
        write(8,*) '\\vspace{-20mm}'
! A-1
!
        write(8,*) '\\section*{A-1 基礎知識}'
        call hyou(nkamoku,kamkodo,mtani,nhi,na1)
        call omake(1,4)
!
        write(8,*) '\\section*{A-2 応用知識}'
        call hyou(nkamoku,kamkodo,mtani,nhi,na2)
        call omake(4,6)
!
        write(8,*) '\\section*{A-3 総合解決能力}'
        call hyou(nkamoku,kamkodo,mtani,nhi,na3)
        call omake(2,4)
!
        write(8,*) '\\section*{B-1 地球環境}'
        call hyous1(nkamoku,kamkodo,mtani,nhi,nb1)
        call omake(6,4)
!
        write(8,*) '\\section*{B-2 倫理観}'
        call hyous1(nkamoku,kamkodo,mtani,nhi,nb2)
        call omake(4,4)
        write(8,*) '\\clearpage'
!
        write(8,*) '\\section*{C-1 継続的学習}'
        call hyous250(nkamoku,kamkodo,mtani,nhi,nc1)
        call omake(4,4)
!
        write(8,*) '\\section*{D-1 自然科学}'
        call hyous150(nkamoku,kamkodo,mtani,nhi,nd1)
        call omake(0,6)
!
        write(8,*) '\\section*{D-2 人文・社会}'
        call hyous250(nkamoku,kamkodo,mtani,nhi,nd2)
        call omake(4,0)
!
        write(8,*) '\\section*{D-3 情報}'
        call hyous1(nkamoku,kamkodo,mtani,nhi,nd3)
        call omake(6,4)
!
        write(8,*) '\\section*{E-1 記述・発表}'
        call hyou(nkamoku,kamkodo,mtani,nhi,ne1)
        call omake(4,4)
!
        write(8,*) '\\section*{E-2 ディベート}'
        call hyou(nkamoku,kamkodo,mtani,nhi,ne2)
        call omake(2,2)
!
        write(8,*) '\\section*{E-3 コミュニケーション}'
        call hyous250(nkamoku,kamkodo,mtani,nhi,ne3)
        call omake(2,0)
!
        write(8,*) '\\section*{F-1 立案}'
        call hyou(nkamoku,kamkodo,mtani,nhi,nf1)
        call omake(0,0)
!
        write(8,*) '\\section*{F-2 立案}'
        call hyou(nkamoku,kamkodo,mtani,nhi,nf2)
        call omake(0,0)
!
        write(8,*) '\\end{document}'
        close(8)
        end
!
!
!
!
        subroutine hyou(nkamoku,kamkodo,mtani,nhi,ni)
        implicit real*8 (a-h, o-z)
        dimension mtani(1000),nhi(10000),ni(1000),
     &            kamkodo(1000)
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        return
        end
!
!
!
        subroutine hyous1(nkamoku,kamkodo,mtani,nhi,ni)
        implicit real*8 (a-h, o-z)
        dimension mtani(1000),nhi(10000),ni(1000),
     &            kamkodo(1000)
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
        write(8,*) '\\clearpage'
!
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
!
        return
        end
!
!
!
        subroutine hyous150(nkamoku,kamkodo,mtani,nhi,ni)
        implicit real*8 (a-h, o-z)
        dimension mtani(1000),nhi(10000),ni(1000),
     &            kamkodo(1000)
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
        write(8,*) '\\clearpage'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        ngyou=0
        ibanme=0
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        if((nhii==10).and.(nii==1)) ngyou=ngyou+1
        if(ngyou==50) then
           ibanme=i
         exit
         end if
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        ngyou=0
        do i=ibanme,nkamoku
        if(ibanme==0) exit
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        return
        end
!
!
        subroutine hyous250(nkamoku,kamkodo,mtani,nhi,ni)
        implicit real*8 (a-h, o-z)
        dimension mtani(1000),nhi(10000),ni(1000),
     &            kamkodo(1000)
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hiss1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
!
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択必修○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call hise1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        ngyou=0
        ibanme=0
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent2(k,mtanii,nhii,nii)
        if((nhii==10).and.(nii==2)) ngyou=ngyou+1
        if(ngyou==50) then
           ibanme=i
         exit
         end if
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!        write(8,*) '\\clearpage'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択◎',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        do i=ibanme,nkamoku
        if(ibanme==0) exit
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent2(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        ngyou=0
        do i=1,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        if((nhii==10).and.(nii==1)) ngyou=ngyou+1
        if(ngyou==55) then
           ibanme=i
         exit
         end if
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
!
        write(8,*) '\\begin{minipage}[h]{0.32\\textwidth}'
        write(8,*) '\\begin{center}'
        write(8,*) '\\begin{tabular}{|c|c|c|}'
        write(8,*) '\\hline'
        write(8,*) '選択○',' &','単位',' &','取得 \\\\'
        write(8,*) '\\hline'
        ngyou=0
        do i=ibanme,nkamoku
        k=kamkodo(i);mtanii=mtani(i);nhii=nhi(i);nii=ni(i)
        call sent1(k,mtanii,nhii,nii)
        end do
        write(8,*) '\\end{tabular}'
        write(8,*) '\\end{center}'
        write(8,*) '\\end{minipage}'
!
        return
        end
!
!
        subroutine hiss2(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==20).and.(nii==2)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
!        else
!                print*,i,mtanii,nhii,nii
        end if
        return
        end
!
        subroutine hiss1(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==20).and.(nii==1)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
        end if
        return
        end
!
        subroutine hise2(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==15).and.(nii==2)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
        end if
        return
        end
!
        subroutine hise1(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==15).and.(nii==1)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
        end if
        return
        end
!
        subroutine sent2(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==10).and.(nii==2)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
        end if
        return
        end
!
        subroutine sent1(i,mtanii,nhii,nii)
        implicit real*8(a-h, o-z)
        if((nhii==10).and.(nii==1)) then
        write(8,*) i,' &',mtanii,' & \\\\'
        write(8,*) '\\hline'
        end if
        return
        end
!
        subroutine omake(i2,i1)
!        write(8,*) '\\vspace{-10mm}'
        write(8,*) '\\begin{enumerate}'
        write(8,*) '\\item 必修科目の単位をすべて取得していること'
        write(8,*) '取得単位\\underline{\\hspace{10mm}}単位、'
        write(8,*) '必要単位\\underline{\\hspace{10mm}}単位'
        write(8,*) '\\item 選択必修科目◎、選択科目◎から'
        write(8,*) i2,'単位以上取得していること。'
        write(8,*) '取得単位\\underline{\\hspace{10mm}}単位、'
        write(8,*) '必要単位\\underline{\\hspace{10mm}}単位'
        write(8,*) '\\item 選択必修科目○、選択科目○から'
        write(8,*) i1,'単位以上取得していること。'
        write(8,*) '取得単位\\underline{\\hspace{10mm}}単位、'
        write(8,*) '必要単位\\underline{\\hspace{10mm}}単位'
        write(8,*) '\\end{enumerate}'
!        write(8,*) '\\clearpage'
        return
        end
!
!