Ticket #13675: patch-x18f.f90.diff

File patch-x18f.f90.diff, 784 bytes (added by takeshi@…, 17 years ago)
  • examples/f95/x18f.f90

    old new  
    109109
    110110      real(kind=plflt) x(5), y(5), z(5)
    111111      integer i, j
    112       real(kind=plflt) two_pi
     112      real(kind=plflt) two_pi, one_pi
    113113      parameter ( two_pi = 2.0_plflt*pi                )
     114      parameter ( one_pi = 1.0_plflt*pi                )
    114115      logical draw(4,4)
    115116      DATA draw / &
    116117        .true., .true., .true., .true., &
     
    120121      real(kind=plflt) theta, phi
    121122      integer ia
    122123      THETA(ia) = (two_pi * (ia) /20._plflt)
    123       PHI(ia)   = (pi * (ia) / 20.1_plflt)
     124      PHI(ia)   = (one_pi * (ia) / 20.1_plflt)
    124125
    125126      call pladv(0)
    126127      call plvpor(0.0_plflt, 1.0_plflt, 0.0_plflt, 0.9_plflt)