squeeze - Null terminates a FORTRAN character string

SYNTAX

#include "worgen.h"

FUNCTION char squeeze (buf, length)

     char               *buf;
     long                length;

PARAMETERS

buf (input, character, length (*))

Character string to be null terminated.

length (input, integer)

Maximum length of the character string buf

DESCRIPTION

The squeeze() routine is used by FORTRAN callable bridge routines. Any time a C subroutine inputs a character argument from a FORTRAN main routine, the C subroutine should call squeeze() to null terminate the string. squeeze() truncates all blanks from the right and inserts the null character. It returns a pointer to the new null terminated character string.

RETURN VALUE

squeeze() returns a pointer to null terminated character string.

SPECIAL CONSIDERATIONS

squeeze() is "C" callable only.