pi.f

来自「基于MPI技术的并行计算方法的FORTRAN程序」· F 代码 · 共 22 行

      program main

     

      double precision  PI25DT
      parameter        (PI25DT = 3.141592653589793238462643d0)

      double precision  pi
     

         write(6, 97) PI25DT
 97      format('  pi is approximately: ', F18.16)
    

 
      stop
      end