1      subroutine ecrispascher(x)
2      INCLUDE 'Parametres.f'
3c
4      ix = min(max(-90000,nint(1000.*x)),900000)
5      if (ix.ge.100000) then
6        write(bufferout(iptbuf:iptbuf+6),'(i7)') ix
7        iptbuf = iptbuf+7
8      elseif(ix.ge.10000) then
9        write(bufferout(iptbuf:iptbuf+5),'(i6)') ix
10        iptbuf = iptbuf+6
11      elseif(ix.ge.1000) then
12        write(bufferout(iptbuf:iptbuf+4),'(i5)') ix
13        iptbuf = iptbuf+5
14      elseif(ix.gt.-100) then
15        write(bufferout(iptbuf:iptbuf+3),'(i4)') ix
16        iptbuf = iptbuf+4
17      elseif(ix.gt.-1000) then
18        write(bufferout(iptbuf:iptbuf+4),'(i5)') ix
19        iptbuf = iptbuf+5
20      elseif(ix.gt.-10000) then
21        write(bufferout(iptbuf:iptbuf+5),'(i6)') ix
22        iptbuf = iptbuf+6
23      else
24        write(bufferout(iptbuf:iptbuf+6),'(i7)') ix
25        iptbuf = iptbuf+7
26      endif
27      end
28c-----------------------------------------------------------------------
29      subroutine ecrispascheri(i)
30      INCLUDE 'Parametres.f'
31c
32      ix = min(max(-90000,i),900000)
33      if (ix.ge.100000) then
34        write(bufferout(iptbuf:iptbuf+6),'(i7)') ix
35        iptbuf = iptbuf+7
36      elseif(ix.ge.10000) then
37        write(bufferout(iptbuf:iptbuf+5),'(i6)') ix
38        iptbuf = iptbuf+6
39      elseif(ix.ge.1000) then
40        write(bufferout(iptbuf:iptbuf+4),'(i5)') ix
41        iptbuf = iptbuf+5
42      elseif(ix.gt.-100) then
43        write(bufferout(iptbuf:iptbuf+3),'(i4)') ix
44        iptbuf = iptbuf+4
45      elseif(ix.gt.-1000) then
46        write(bufferout(iptbuf:iptbuf+4),'(i5)') ix
47        iptbuf = iptbuf+5
48      elseif(ix.gt.-10000) then
49        write(bufferout(iptbuf:iptbuf+5),'(i6)') ix
50        iptbuf = iptbuf+6
51      else
52        write(bufferout(iptbuf:iptbuf+6),'(i7)') ix
53        iptbuf = iptbuf+7
54      endif
55      end
56