Go to the documentation of this file.00001 integer function i1mach (i)
00002 integer i, imach(16)
00003 logical init
00004 double precision dlamch
00005 real slamch
00006 external dlamch, slamch
00007 save imach, init
00008 data imach / 5, 6, 0, 6, 32, 4, 2, 31, 2147483647,
00009 $ 2, 0, 0, 0, 0, 0, 0 /
00010 data init /.false./
00011 if (.not. init) then
00012 imach(11) = slamch ('n')
00013 imach(12) = slamch ('m')
00014 imach(13) = slamch ('l')
00015 imach(14) = dlamch ('n')
00016 imach(15) = dlamch ('m')
00017 imach(16) = dlamch ('l')
00018 init = .true.
00019 endif
00020 if (i .lt. 1 .or. i .gt. 16) goto 999
00021 i1mach = imach(i)
00022 return
00023 999 write (*, 1999) i
00024 1999 format (' i1mach - i out of bounds', i10)
00025 call xstopx (' ')
00026 i1mach = 0
00027 end
1.7.1
