jstnum.f File Reference

Left-justify a character string containing an encoded integer. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	jstnum (STR, SIGN, IRET)
	This subroutine left-justifies a character string containing an encoded integer, by removing all leading blanks and any leading sign ('+' or '-') character. More...

Detailed Description

Left-justify a character string containing an encoded integer.

Author

J. Woollen

Date

1994-01-06

Definition in file jstnum.f.

Function/Subroutine Documentation

jstnum()

subroutine jstnum	(	character*(*)	STR,
		character*1	SIGN,
			IRET
	)

This subroutine left-justifies a character string containing an encoded integer, by removing all leading blanks and any leading sign ('+' or '-') character.

The string is modified in place, and the sign is returned as a separate parameter. If the input string contains only blank characters, then a call is made to subroutine bort().

Parameters

[in,out]	STR	– character*(*): String
[out]	SIGN	– character*1: Sign of encoded integer value '+' = positive value '-' = negative value
[out]	IRET	– integer: return code 0 = normal return -1 = input string contained non-blank characters which were also non-numeric

Author

J. Woollen

Date

1994-01-06

Definition at line 23 of file jstnum.f.

References bort(), errwrt(), and strnum().

Referenced by elemdx().