Bonjour,

Resume :

Je tombe sur une erreur du type :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Fortran runtime error: Bad integer for item 1 in list input
J'ai recherche un peu sur le net ou on pouvait avoir ce type d'erreur et j'ai trouve que c'etait lorsque l'on entrait une lettre par exemple au lieu d'un chiffre ou un nombre decimal au lieu d'un nombre entier mais le probleme est que je n'entre aucun nombre !

Explication :

Je travaille sur un code Fortran (je ne peux pas montrer toutes les lignes de codes y en a 7000 dans mon prog ...) et je veux juste effectuer un test sur une maniere dont j'ai change la possibilite de definir les particules ( ouais ouais je suis en physique ) et donc pour faire ce test j'ai tout ca :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
call hdecin(.false.)
qui contient ce que je recherche du coup apres je mets :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
              do itest=1,10                                         !gs
              write(*,*)'coucou'
              end do                                                !gs
      do itest=1,10                                                 !gs
      write(*,*)'Put id'
      read(*,*) ntest
      write(*,*)'Put mass'
!     read(*,*) ntest
      write(*,*)'idr found =',idr
      end do                                                        !gs
Le test avec les coucou fonctionnent mais des que je veux rentrer ntest, ca fonctionne pas, je n'ai meme pas le temps de mettre quoi que ce soit qu'il me met le fameux :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Fortran runtime error: Bad integer for item 1 in list input
Sachant que j'ai mis :

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
c-----------------------------------------------------------------------
      subroutine ainit
c-----------------------------------------------------------------------
      include 'aaa.h'
      include 'ems.h'
      include 'ho.h'
      include 'ico.h'
      include 'sem.h'
      include 'par.h'
      common/cquama/quama/cbeffec/beffec
      parameter (nptj=129)
      common /cptj/xptj(nptj),qptj(nptj),wptj(nptj)
      common/geom/rmproj,rmtarg,bmax,bkmx
      double precision tpro,zpro,ttar,ztar,ttaus,detap,detat!,seedp
      common/cttaus/tpro,zpro,ttar,ztar,ttaus,detap,detat /ctain/mtain
      double precision rcproj,rctarg
      common/geom1/rcproj,rctarg
      common/photrans/phoele(4),ebeam,noevt
      common/cisk/iskmin,isk2min
      common/cicentrality/icentrality
      integer :: itest,ntest
      !external sptj
J'espere que c'est comprehensible, je sais pas quoi faire ...