在Fortran中使用MPI_file_read_at_all进行部分调用的示例代码如下：

program mpi_file_read_at_all_example
  use mpi
  implicit none
  
  integer :: ierr, rank, size, filehandle, status(MPI_STATUS_SIZE)
  integer(kind=MPI_OFFSET_KIND) :: offset
  integer, parameter :: bufsize = 100
  character(len=MPI_MAX_ERROR_STRING) :: error_string
  character(len=bufsize) :: data
  
  call MPI_Init(ierr)
  call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
  call MPI_Comm_size(MPI_COMM_WORLD, size, ierr)
  
  ! 打开文件
  call MPI_File_open(MPI_COMM_WORLD, "data.txt", MPI_MODE_RDONLY, MPI_INFO_NULL, filehandle, ierr)
  
  ! 设置读取的偏移量
  offset = rank * bufsize
  
  ! 读取部分文件
  call MPI_File_read_at_all(filehandle, offset, data, bufsize, MPI_CHARACTER, status, ierr)
  
  ! 关闭文件
  call MPI_File_close(filehandle, ierr)
  
  ! 打印读取的数据
  print *, "Rank", rank, ": Data =", data
  
  call MPI_Finalize(ierr)
end program mpi_file_read_at_all_example

上述代码演示了如何使用MPI_file_read_at_all进行部分调用。每个进程通过计算偏移量来决定从文件的哪个位置开始读取数据。每个进程读取的文件块大小为bufsize，这里设置为100个字符。读取的数据存储在字符数组data中，然后进行打印。

请注意，要成功运行此代码，需要将MPI库链接到你的Fortran编译器中。编译和运行上述代码的命令如下：

mpif90 -o mpi_file_read_at_all_example mpi_file_read_at_all_example.f90
mpirun -n 4 ./mpi_file_read_at_all_example

这里假设你使用的是MPI编译器和运行环境。如果你使用不同的编译器和运行环境，请相应地进行调整。