pi.f

基于MPI1.2.5并行环境的MPI示例源代码

      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