33 string2(limit+1:limit+1) = char(0)
44 character*300 stringbuf
47 10
if (ichar(
string1(limit:limit)) .eq. 0) goto 20
48 stringbuf(limit:limit) =
string1(limit:limit)
52 20
if(limit.gt.1)
then
66 do 100 i = len(
string),1,-1
67 if (
string(i:i) .ne.
' ')
then
subroutine plstrc2f(string1, string2)
integer function islen(string)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string1
if write to the Free Software C Franklin Fifth MA USA integer maxlen string2
subroutine plstrf2c(string1, string2, maxlen)
void string(PLINT n, const PLFLT *x, const PLFLT *y, const char *string)