Previous: chrrix Up: ../chrrtn.html Next: chruc

CHRSWP

 SUBROUTINE  CHRSWP (TEXTA,TEXTB,LENGTH)
 (Swap Characters)

 Given two character  strings in  TEXTA(*) and  TEXTB(*), swap  "LENGTH"
 characters.  If "LENGTH" is less than 1, no characters are swapped.