PART I
MATHEMATICAL REPERTORY
STRETCH SUBROUTINE TO EXTRACT CHARACTER DATA FROM BLOCK 0130
SUBROUTINE XCD130 (NC, IC)