1 saw 1.1 *
2 * Wrapperse for G77 intrinsic functions that have different names from
3 * other f77's
4 *
5 * $Log:$
6 *
7 * JIDNNT Return nearest INT for a REAL*16 number
8 *
9 integer*4 function jidnnt(f)
10 real*8 f
11 *
12 jidnnt = nint(f)
13 return
14 end
15