Analyzer/PORT/other_wrappers.f - view

Return to other_wrappers.f CVS log

Up to [HallC] / Analyzer / PORT

File: [HallC] / Analyzer / PORT / other_wrappers.f (download)
Revision: 1.1, Thu Nov 30 14:24:44 2000 UTC (23 years, 9 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, HEAD

JIDNNT function

*
*     Wrapperse for G77 intrinsic functions that have different names from
*     other f77's
*
* $Log: other_wrappers.f,v $
* Revision 1.1  2000/11/30 14:24:44  saw
* JIDNNT function
*
*
* JIDNNT Return  nearest INT for a REAL*16 number
*
      integer*4 function jidnnt(f)
      real*8 f
*
      jidnnt = nint(f)
      return
      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood