fortran中怎么再子程序中使用和主程序变量名相同的i,j，k

在Fortran中，可以使用`USE`语句在子程序中引用主程序中定义的模块，这样就可以在子程序中使用和主程序变量名相同的`i`、`j`、`k`等变量了。具体做法如下：

1. 在主程序所在的文件中定义一个模块，例如：

   module mymodule
     integer :: i, j, k
   end module mymodule

2. 在主程序中使用`USE`语句将模块引入：

   program main
     use mymodule
     !... 主程序代码 ...
   end program main

3. 在子程序中也使用`USE`语句引入该模块：

   subroutine mysubroutine
     use mymodule
     !... 子程序代码 ...
   end subroutine mysubroutine

4. 在子程序中就可以使用和主程序变量名相同的`i`、`j`、`k`等变量了，例如：

   subroutine mysubroutine
     use mymodule
     do i = 1, 10
        !... 子程序中使用主程序中的循环变量i ...
     end do
   end subroutine mysubroutine

注意，在使用`USE`语句引入模块时，需要保证模块名称和文件名相同。如果需要在不同的文件中定义和使用模块，可以将模块定义和使用分别保存在不同的文件中，然后在编译时将它们一起编译链接即可。