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