<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)
        dimension ngaku(100),nsaiten(100),
     &  sinki(100,20),sinrai(100,20),happyou(100,20),situmon(100,20)
        character(10) saiten(100,20)
!
        read*, ninzuu
        do i=1,ninzuu
         read*, ngaku(i)
         read*, nsaiten(i)
         do j=1,nsaiten(i)
         read*,saiten(i,j),
     &   sinki(i,j),sinrai(i,j),happyou(i,j),situmon(i,j)
         end do
        end do
!
!
!
        do i=1,ninzuu
          gsinki=0.; gsinrai=0.; ghappyou=0.; gsitumon=0.
          nsinki=nsaiten(i);   nsinrai=nsaiten(i)
          nhappyou=nsaiten(i); nsitumon=nsaiten(i)
         do j=1,nsaiten(i)
!
         if(sinki(i,j)>8) then
           nsinki=nsinki-1
         else
          gsinki=gsinki+sinki(i,j)
         end if
!
         if(sinrai(i,j)>8) then
           nsinrai=nsinrai-1
         else
          gsinrai=gsinrai+sinrai(i,j)
         end if
!
         if(happyou(i,j)>8) then
           nhappyou=nhappyou-1
         else
          ghappyou=ghappyou+happyou(i,j)
         end if
!
         if(situmon(i,j)>8) then
          nsitumon=nsitumon-1
         else
          gsitumon=gsitumon+situmon(i,j)
         end if
!
         end do
!
         print*, ngaku(i), ',' , saiten(i,j), ',' ,
     &   gsinki/nsinki, ',' ,
     &   gsinrai/nsinrai, ',' ,
     &   ghappyou/nhappyou, ',' ,
     &   gsitumon/nsitumon
        end do
        end