add the function to handle negtive value
Merge branch 'master' of github.com:pplab/fortran-util