      program test_format 
                                                                        
!     ***************************************************************0**
! *   Test_Format: test how is writen a float, according format g or e  
!     P. Robert, Jan 2003                                               
!     ***************************************************************0**
!                                                                       
      real v(22) 
!                                                                       
                                                                        
      v( 1)= -      0.1234567e-7 
      v( 2)= -      0.1234567e-6 
      v( 3)= -      0.1234567e-5 
      v( 4)= -      0.1234567e-4 
      v( 5)= -      0.1234567e-3 
      v( 6)= -      0.1234567e-2 
      v( 7)= -      0.1234567e-1 
      v( 8)= -      0.1234567 
      v( 9)= -      7.123456 
      v(10)= -     67.12345 
      v(11)= -    567.1234 
      v(12)= -   4567.123 
      v(13)= -  34567.12 
      v(14)= - 234567.1 
      v(15)= -1234567. 
      v(16)= -1234567.e1 
      v(17)= -1234567.e2 
      v(18)= -1234567.e3 
      v(19)= -1234567.e4 
      v(20)= -1234567.e5 
      v(21)= -1234567.e6 
      v(22)= -1234567.e7 
!                                                                       
      do i=1,22 
      v(i)=v(i)*13. 
      v(i)=v(i)/13. 
      print 100, i,v(i), v(i), v(i) 
      enddo 
!                                                                       
  100 format(i3,5x,g14.7,5x,e14.7,5x,1Pe14.6) 
      stop 'test_format.exe: normal termination' 
      END                                           
