第一个方框四个点，第二个方框三个点，第三个方框一个点，第四个方框四个点，在fortran中用循环和数组对每个点标上序号

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

program label_points
  implicit none
  
  integer :: i, j, k, point_number
  
  integer, dimension(4) :: points = [4, 3, 1, 4]
  
  point_number = 1
  
  do i = 1, size(points)
    do j = 1, points(i)
      write(*,*) "Point", point_number, "is in box", i
      point_number = point_number + 1
    end do
  end do
  
end program label_points

这个程序使用了两个循环来遍历数组中的每个元素，并对每个点进行标号。程序使用 `point_number` 变量来记录当前点的序号，每次遍历到一个点，就输出该点所在方框的编号以及当前点的序号，并将 `point_number` 加一。