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
|
SUBROUTINE TOTO
CALL OPEN(25,'CALCUL','TRANSF','A',' ',' ',80,80)
DO 20 I=1,NCOTE
IF (I.EQ.IINF) GOTO 20
IF (I.EQ.IPUIT) THEN
WRITE(25,1003) I,T(I),'SINGULARITE'
ELSE
WRITE(25,1003) I,T(I)
ENDIF
20 CONTINUE
WRITE(25,*)
WRITE(25,1000)'RAYON INTERIEUR ........................'
WRITE(25,1000)'RAYON EXTERIEUR ........................'
WRITE(25,*)
WRITE(25,1000)'ANGLE INITIAL ..........................'
WRITE(25,1000)'ANGLE FINAL ............................'
WRITE(25,*)
WRITE(25,1004)'INTENSITE SINGULARITE ..................',QPUIT
WRITE(25,*)
WRITE(25,1002)'NOMBRE DE LIGNES CALCULEES .............',NLIGNE
WRITE(25,*)
WRITE(25,1001)'FACTEUR DE PRECISION GLOBALE ........... 1.000D+00'
WRITE(25,1001)'FACTEUR DE PRECISION COURTE DISTANCE ... 1.000D+00'
WRITE(25,1001)'FACTEUR DE PRECISION LONGUE DISTANCE ... 1.000D+00'
WRITE(25,*)
WRITE(25,1002)'FREQUENCE DES MARQUES ..................',IMARQ |
Partager