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 39 40 41 42 43 44 45 46
| C
C **********************************************************************
C
Subroutine AS0112
C
C Représentation d'une variable de type Integer*2
C
C **********************************************************************
C
C Déclarations
C
Implicit None
C
Character*80 S
Integer*2 I
Integer*1 I1(2),K
Equivalence (I1,I)
C
C **********************************************************************
C
C Instructions exécutables
C
Open (4,File='AS0112.txt')
10 Write (*,*) ' '
S='Tapez un entier entre -32768 et +32767'
Call U003(S,Len_Trim(S))
S='(Ctrl-Z pour quitter)'
Call U003(S,Len_Trim(S))
Read (*,*,End=99,Err=20) I
Go To 30
C
20 S='Donnée incorrecte'
Call U003(S,Len_Trim(S))
Go To 10
C
30 Write (*,'(/11X,A)') 'Adr+1 Adr'
Write (*,'(I7,3X,2(1X,8I1))') I,
* (-BTest(I1(2),K),K=7,0,-1),(-BTest(I1(1),K),K=7,0,-1)
Write (4,'(/11X,A)') 'Adr+1 Adr'
Write (4,'(I7,3X,2(1X,8I1))') I,
* (-BTest(I1(2),K),K=7,0,-1),(-BTest(I1(1),K),K=7,0,-1)
Go To 10
C
99 Close (4)
Return
End |
Partager