NAME

f77tocstr, f77tocstr_trim − Convert Fortran string to C string

SYNOPSIS

character∗N1 c_dest
character∗N2 f77_orig
integer∗4 i

i = f77tocstr (c_dest, f77_orig)
i = f77tocstr_trim (c_dest, f77_orig)

or

call f77tocstr (c_dest, f77_orig)
call f77tocstr_trim (c_dest, f77_orig)

DESCRIPTION

f77tocstr and f77tocstr_trim convert a Fortran string, stored internally as character string storage and length, into a C string, stored internally as character string storage terminated by a null (zero) byte.  Both arguments must be Fortran character variables.  The destination variable may be the same as the origin variable.  f77tocstr and f77tocstr_trim may be called as either functions or subroutines. 

The character value of the origin string f77_orig is copied into the destination string c_dest with a null byte appended.  Note the sense of the arguments, destination precedes origin.  The destination must be large enough to hold the converted value — one character longer than the origin.  Truncation will result otherwise. 

f77tocstr copies the entire character value, and f77tocstr_trim strips trailing blanks beforehand. 

Both intrinsics return as an integer∗4 the equivalent of a char∗ pointing to the string storage for c_dest.  This return value may be passed using the hf77 %VAL argument list intrinsic to C routines which expect a char∗ argument — usable in an argument list as so:

      CHARACTER F77_ORIG∗10, C_DEST∗11
      INTEGER∗4 S
      F77_ORIG = "ERNIE"
      CALL CFUNC(%VAL(F77TOCSTR_TRIM(C_DEST,F77_ORIG)))
      S = F77TOCSTR_TRIM(C_DEST,F77_ORIG)
      CALL CFUNC(%VAL(S))
      CALL CFUNC(%VAL(C_DEST))

All of the above calls to cfunc pass the same value.  The character value of f77_orig is "ERNIEbbbbb" and the final value of c_dest after calling f77tocstr_trim is "ERNIE\0bbbbb" where \0 is a null byte and b is a blank character.  If f77tocstr had been called instead, the final value of c_dest would have been "ERNIEbbbbb\0". 

FILES

/usr/lib/libhU77.a

SEE ALSO

ctof77str(3F), “Hf77 Fortran Reference Manual”

CX/UX Hf77 Fortran Reference Manual