Subroutine vom_read_input


VARIABLES

iostatinteger
? input-output status
442, 472, 473, 506, 507
outputpath_tmpcharacter*100
Temporary outputpath 
443, 467, 486
inputpath_tmpcharacter*100
Temporary inputpath
444, 467, 481
change_inlogical
Change input true/false
445, 467, 480
change_outlogical
Change output true/false
446, 467, 485