17 parameter(error = 1, no_error = 0, no_text = 0)
21 call
strip(text, start, end)
22 if (start .eq. no_text)
then
30 call
conv_to_int(text(start:end), intmag, intsign, flag)
31 if (flag .eq. error)
then
34 int = intsign * intmag
subroutine conv_to_int(text, intmag, intsign, flag)
subroutine text_to_int(text, int, flag)
subroutine strip(text, start, end)