*---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|
      PROGRAM pi_calc_0
* Calcul de pi, version 0
      IMPLICIT NONE

C Déclarations
      DOUBLE PRECISION :: pi


c pi = 4 * arctan(1), par serie de Taylor
      pi = 4D0 * (1 - 1D0/3D0 + 1D0/5D0 - 1D0/7D0 + 1D0/9 
     -      - 1D0/11D0 + 1D0/13D0 - 1D0/15D0 + 1D0/17D0 
     -      - 1D0/19D0 )
	    
      WRITE(*,*) 'Pi approché ', pi
      WRITE(*,*) 'Cette manière de calculer pi est à déconseiller, '//
     >           'car il faut inclure plus de 500 termes pour avoir une
     >précision de ... trois décimales.'
      END
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|
