This is actually a bug: the original code forf RDMRCLIST has the following at lines 273-275:
WRITE( MESG, 94010 ) 'ERROR: No factor file found ' //
& 'for reference county', MCREFIDX( I,1 ), 'in ' //
& 'reference county factors list.'
but the format 94010 needs an INTEGER where MCREFIDX( I,1 ) is. However, MCREFIDX( I,1 ) is a CHARACTER string.
The code instead should have:
MESG = 'ERROR: No factor file found ' //
& 'for reference county'// MCREFIDX( I,1 )//
& ' in reference county factors list.’