IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Fortran Discussion :

Problème 'end-of-file during read, unit 1'


Sujet :

Fortran

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Problème 'end-of-file during read, unit 1'
    Bonsoir!

    je viens de taper un programme cense etre simple mais je rencontre un probleme. Ca marche a la compilation mais a l'execution, j'ai un ' end-of-file during read, unit 1'. D'ou cela pourrait-il venir? Le fichier rleo_q_01.out est un fichier texte ASCII tres long.

    merci de votre aide

    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
    26
    27
    28
    29
    30
    31
    32
     
    program snr
     
    integer :: j,taille
     character(5) :: m 
     character, dimension(:), allocatable :: a
     
    ! character(99) :: inputfile
     
    !type *,'inputfile :'
    !read (*,'(a30)') inputfile
     
    OPEN  (UNIT =1,FILE ='rleo_q_01.out',form='formatted',status="old",action='read')
     
    taille=0
    do
    read (1,'(a5)',end=100) m
    taille=taille+1
    end do
    100 continue
     
    print *,taille
     
    allocate (a(taille))
     
    do j=1,taille
    read (1,'(a5)') a(j)
    end do
     
    OPEN  (UNIT =2,FILE ='resultat_snr',form='formatted',status="new",action="write")
    write (2,'(a5)') a
    end program snr

  2. #2
    Modérateur

    Profil pro
    Inscrit en
    Août 2006
    Messages
    974
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Août 2006
    Messages : 974
    Par défaut
    Ne manquerait-il pas un rewind entre les 2 boucles read ?

  3. #3
    Invité
    Invité(e)
    Par défaut
    euh... oui peut-etre
    j'essaye et je vous dit ce que ca donne

  4. #4
    Invité
    Invité(e)
    Par défaut
    Woohoo ca marche!
    merci du tuyau!
    par contre maintenant il y a autre chose
    au lieu de m'afficher les 5 premieres colonnes du fichier texte il ne m'affiche que la cinquieme, pourquoi??

  5. #5
    Invité
    Invité(e)
    Par défaut
    ok j'ai trouve!!
    (dsl je fais les questions et les reponses tout seul )
    c'etait la declaration du a qui etait mauvaise

    voila le programme correct:

    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
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
    program snr
     
    integer :: j,taille
     character(len=5) :: m 
     character(len=5),dimension(:,:),allocatable :: a
     
    ! character(99) :: inputfile
     
    !type *,'inputfile :'
    !read (*,'(a30)') inputfile
     
    OPEN  (UNIT =1,FILE ='rleo_q_01.out',form='formatted',status="old",action='read')
     
    taille=0
    do
    read (1,'(a5)',end=100) m
    taille=taille+1
    end do
    100 continue
     
    print *,taille
     
    allocate (a(1,taille))
     
    rewind 1
     
    do j=1,taille
    read (1,'(a5)') a(1,j)
    end do
     
    OPEN  (UNIT =2,FILE ='resultat_snr',form='formatted',status="new",action="write")
    write (2,'(a5)') a
    end program snr

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème de mise à jour - 550 read only file system
    Par Chris666 dans le forum Dreamweaver
    Réponses: 1
    Dernier message: 23/11/2009, 08h56
  2. "read beyond end of file" error
    Par Alphonse_Dadet dans le forum Windows
    Réponses: 2
    Dernier message: 17/02/2008, 11h42
  3. [Erreur] Severe (24) : end of file during read
    Par manoro dans le forum Fortran
    Réponses: 2
    Dernier message: 11/01/2008, 12h25
  4. Erreur : end-of-file during read
    Par phy4me dans le forum Fortran
    Réponses: 3
    Dernier message: 09/05/2007, 19h59
  5. [Fortran77] Problèmes de boucle et end of file
    Par Kokocha dans le forum Fortran
    Réponses: 1
    Dernier message: 18/03/2007, 19h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo