Bonjour,

Je lis un fichier dans lequel je trie des valeurs que je stocke dans un autre fichier.

exemple :

fichier source
2 4
1 3
2 5
. .
. .

mon tri : si une des valeurs >n alors remplace la par 1 dans le nouveau fichier sinon écrit là tel que dans le nouveau fichier.



Mon problème : comment dans mon nouveau fichier écrire sous la forme de deux colonne ? comme le fichier source.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 program env 
      implicit none
      double precision A,B,nrtri
      integer i
      character*12 titre
 
      titre = 'env.vel'
 
      open(109,file = titre, status='unknown', form ='formatted')
      open(1, file = 'Dat00210.vel',status='old',form='formatted')
      read(1,*),nrtri
 
      do i=1,nrtri
         read(1,*) A
         if ( A .gt.0.32d-1) then
            write(109,*) 1
         else
            write(109,*) A
         endif
      enddo  
 
      close(1)
      close(109)
      write(*,*),'Termine'
      end
Merci.