第一个方框四个点，第二个方框三个点，第三个方框一个点，第四个方框四个点，在fortran中用循环和数组进行统计

假设这四个方框的点数已经存储在一个长度为4的数组 `points` 中，可以使用以下 Fortran 代码来统计：

program count_points
  implicit none
  
  integer :: i, j, total_points
  
  integer, dimension(4) :: points = [4, 3, 1, 4]
  
  total_points = 0
  
  do i = 1, size(points)
    do j = 1, points(i)
      total_points = total_points + 1
    end do
  end do
  
  write(*,*) "Total points:", total_points
  
end program count_points

这个程序使用了两个循环来遍历数组中的每个元素，并将每个元素所代表的点数累加到 `total_points` 变量中。最后，程序输出了统计出的点数。