Fortran将u.dat转化为二进制文件u.grd

可以使用Fortran中的`OPEN`、`READ`和`WRITE`语句来实现将`u.dat`文件转化为二进制文件`u.grd`的操作。具体实现如下：

program convert
  implicit none
  integer :: i, j, nx, ny
  real*4 :: x, y, u
  character(20) :: infile, outfile
  open(10, file='u.dat', status='old', action='read') !打开u.dat文件
  read(10,*) nx, ny !读取nx和ny的值
  open(20, file='u.grd', status='replace', action='write') !打开u.grd文件
  write(20) nx, ny !将nx和ny值写入到u.grd文件中
  do j=1,ny
    do i=1,nx
      read(10,*) x, y, u !读取x、y、u的值
      write(20) u !将u的值写入到u.grd文件中
    end do
  end do
  close(10) !关闭u.dat文件
  close(20) !关闭u.grd文件
end program convert

在上述代码中，我们首先打开了`u.dat`文件，并通过`read`语句读取了文件中的`nx`和`ny`的值。然后，我们打开`u.grd`文件，并通过`write`语句将`nx`和`ny`的值写入到文件中。接着，我们通过两个嵌套的循环，读取`u.dat`文件中的每个点的`x`、`y`和`u`的值，并将`u`的值写入到`u.grd`文件中。最后，我们分别关闭了`u.dat`和`u.grd`文件。

需要注意的是，在读取`u.dat`文件时，我们使用了`real*4`类型的变量来存储`x`、`y`和`u`的值，这是因为`u.grd`文件是以二进制形式存储数据的，因此需要使用固定长度的数据类型来确保数据的正确读取和写入。如果`u.dat`文件中的数据类型不是`real*4`，则需要相应地修改代码中的数据类型。