modf.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	modf (m, ix)

Function/Subroutine Documentation

modf()

integer function modf	(	integer	m,
		integer	ix
	)

!     
      implicit none
!     
      integer ix,m,ia
!     
      ia=0
      if(ix.le.0)ia=m
      modf=ix+ia-(int((ix+ia-1)/m))*m
      if(modf.lt.1)modf=modf+m
!     
      return