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 |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |