bonjour
lors de l'exécution avec gfortran un code j'obtiens l'erreur suivant 
ye2011.for:1401.24:

      d_loc=sum(macro(:,:,1))                                           
                        1
Error: Invalid character in name at (1)
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
35
36
37
38
!check(time)
	subroutine check(time,tic,toc,ti)
	use ComPara, only: lx, ly, density, CP_L2_err
	use Node_data_D2Q9,   only: macro
	implicit none
	integer :: time,ti,iteration
	real*8 :: tic,toc
	real*8 :: d_loc,t
	character*13 :: char_time
	integer :: temp(4)
	call CPU_time(toc)
	d_loc=toc-tic
	t=d_loc/float(3600)!xxx.xxx hours left
	temp(1)=int(t)
	t=(t-float(temp(1)))*float(60)!xxx.xxx mins left
	temp(2)=int(t)
	t=(t-float(temp(2)))*float(60)
	temp(3)=int(t)
	t=(t-float(temp(3)))*float(100)
	temp(4)=int(t)
        call CPU_time(tic)
	write(char_time,'(I4.4,a,I2.2,a,I2.2,a,I2.2)')temp(1)
     &,":",temp(2),":",temp(3),":",temp(4)
	d_loc=sum(macro(:,:,1))
        !iteration=0
	!if(mod(ti,25)==1) then
        !iteration=iteration+1
	!write(* ,'(/,a,4x,a,2x,a,2x,a)')"time(sec)", "iteration",
     !&"density","rsd-density rsd-x rsd-y"
        !time,iteration
        !write(9,'(/,a,4x,a,2x,a,2x,a)')time, density, iteration
     !&rsd-density,rsd-x,iteration,rsd-y
	!end if
	write(*,'(a,i8,f12.4,3e12.3)')char_time, time, d_loc,
     & CP_L2_err(1:3)
	write(9,'(a,i8,f12.4,3e12.3)') char_time, time, d_loc,
     & CP_L2_err(1:3)
	end subroutine check
merci pour vos aide