Comparaison des fichiers for.for et FOR.F ***** for.for 6362: c**** CHARACTER*1 SAUPAG 6363: integer z 6364: c ***** FOR.F 6362: c**** CHARACTER*1 SAUPAG 6363: c ***** ***** for.for 40447: c 40448: c INTEGER IK(NA),RETURN,FAIL 40449: INTEGER IK(NA),FAIL 40450: REAL A(NA,NA),VAL(NA),D(NA),E(NA) ***** FOR.F 40446: c 40447: INTEGER IK(NA),RETURN,FAIL 40448: REAL A(NA,NA),VAL(NA),D(NA),E(NA) ***** ***** for.for 40597: Q=E(NL) 40598: c ASSIGN 310 TO RETURN 40599: iassret=310 40600: 500 PP= ABS(P) ***** FOR.F 40595: Q=E(NL) 40596: ASSIGN 310 TO RETURN 40597: 500 PP= ABS(P) ***** ***** for.for 40608: S=Q/NORM 40609: c GO TO RETURN,(310,340,360) 40610: if (iassret.eq.310) goto 310 40611: if (iassret.eq.340) goto 340 40612: if (iassret.eq.360) goto 360 40613: 40614: 530 C=1.0 ***** FOR.F 40605: S=Q/NORM 40606: GO TO RETURN,(310,340,360) 40607: 530 C=1.0 ***** ***** for.for 40616: NORM=0.0 40617: c GO TO RETURN,(310,340,360) 40618: if (iassret.eq.310) goto 310 40619: if (iassret.eq.340) goto 340 40620: if (iassret.eq.360) goto 360 40621: 310 I = NL - 1 ***** FOR.F 40609: NORM=0.0 40610: GO TO RETURN,(310,340,360) 40611: 310 I = NL - 1 ***** ***** for.for 40636: Q=E(I+1) 40637: c ASSIGN 340 TO RETURN 40638: iassret=340 40639: GOTO 500 ***** FOR.F 40626: Q=E(I+1) 40627: ASSIGN 340 TO RETURN 40628: GOTO 500 ***** ***** for.for 40645: D(I+1)=C*P/S+K 40646: c ASSIGN 360 TO RETURN 40647: iassret=360 40648: GOTO 500 ***** FOR.F 40634: D(I+1)=C*P/S+K 40635: ASSIGN 360 TO RETURN 40636: GOTO 500 ***** ***** for.for 46329: 46330: open (15,status='new',form='formatted',file='work') 46331: numsav=numadd ***** FOR.F 46317: 46318: open (15,status='new',form='formatted') 46319: numsav=numadd ***** ***** for.for 59278: numli=numli+1 59279: if (dolist .or. source ) write(impr,'(I5,a1)') numli,'?' 59280: c write(*,*) 'unchar va lire sur nument=',nument ***** FOR.F 59266: numli=numli+1 59267: if (dolist .or. source ) write(impr,'(I5,a1\)') numli,'?' 59268: c write(*,*) 'unchar va lire sur nument=',nument ***** ***** for.for 63997: CHARACTER CARAC(80)*1,REPONS(80)*1,sepins*1,BLANC*1 63998: c 20150525 63999: common /repons/repons 64000: LOGICAL DEBUT,BATCH,IMPCLE,FIRSTA ***** FOR.F 63985: CHARACTER CARAC(80)*1,REPONS(80)*1,sepins*1,BLANC*1 63986: LOGICAL DEBUT,BATCH,IMPCLE,FIRSTA ***** ***** for.for 66307: c$endif 66308: c parameter(versio_def=' MCS IBM ') 66309: parameter(versio_def='MinGw Gfortran ') 66310: ***** FOR.F 66293: c$endif 66294: parameter(versio_def=' MCS IBM ') 66295: ***** ***** for.for 67047: 1 ,'des Donnees' 67048: c 20150525 67049: c write(*,*) '22, rue Charcot. 73013 PARIS. ' 67050: c write(*,*) 'telephone: (33) 1 45854028 ', 67051: c 1 ' telecopie: (33) 1 45854023, ' 67052: write(*,*) ***** FOR.F 67032: 1 ,'des Donnees' 67033: write(*,*) '22, rue Charcot. 73013 PARIS. ' 67034: write(*,*) 'telephone: (33) 1 45854028 ', 67035: 1 ' telecopie: (33) 1 45854023, ' 67036: write(*,*) *****