[net.lang] Anyone have a substr or split routine in f77?

pat (02/07/83)

Does anyone have, or written, a routine in f77 that will split a string
into parts by either char position numbers (Example split(string, 1, 1)
or with a specified seperator (Example: split(string, 1, "char")?
Pat Iurilli BTL Piscataway, NJ npois!pyuxqq!pat