Subroutine read_shufflepar


VARIABLES

iostatinteger
? input-output status
308, 320, 321