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