Bonjour,

je trouve beaucoup difficultés a convertir le code ecrit en fortran 77 au matlab , si quelqun peut m'aider je serait trés réconnaissante.

merci d'avant. ( le code est le suivant )
C début de boucle (LABEL 300)
C
300 NITER=NITER+1
G=FG*G+(1.0-FG)*G
C relaxation de RE
ICONT=ICONT+1
IF(ICONT.LE.IFREC)JFLAG=2
IF(NITER.EQ.1)JFLAG=1
IF(JFLAG.EQ.2)GO TO 125
RE=FRE*RE1+(1.0-FRE)*RE
ICONT=0
125 JFLAG=1
RE=RE1
IF(PROG01) CALL PROG1
IF(PROG02) CALL PROG2

C WRITE(6,324)RE1,RE
WRITE(6,311)NITER,SOR1,SOR2

IF(MOD(NITER,INDPRI).NE.0)GO TO 301
WRITE(6,311)NITER,SOR1,SOR2
c IF(PROG01) CALL PROG1 PRINT(....)
c IF(PROG02) CALL PROG2 PRINT(....)
C
C test final
301 SOR=DMAX1(SOR1,SOR2)
IF(SOR.LE.CONTR*SORMAX)GO TO 400
GO TO 410
400 NJ=NJ-1

420 CONTINUE
410 IF(NITER.GE.MAXIT)GO TO 304
IF(SOR.GT.SORMAX)GO TO 300
C opérations final et résultast
WRITE(16,306)
WRITE(16,307)
GO TO 302
304 WRITE(16,306)
WRITE(16,309)
302 WRITE(6,311)NITER,SOR1,SOR2
IF(PROG01) CALL PROG1 PRINT(....)
IF(PROG02) CALL PROG2 PRINT(....)

Configuration: Windows XP Internet Explorer 6.0