Line data    Source code

       1            0 :       integer function intgpt(x)
       2              :       double precision x
       3              : c  finds integer part of x, i.e. largest integer  .le. x
       4              : c  (note: differs from standard fortran function int for negative x)
       5              : c
       6            0 :       ix=int(x)
       7            0 :       if(x.lt.0.and.ix.ne.x) ix=ix-1
       8              : c
       9            0 :       intgpt=ix
      10            0 :       return
      11              :       end