CHARACTER ACADFILE*40, FILENAME*40, 1 LATDEFFILE*40, MADFILE*40, STRUCTFILE*40, 2 TRANSPORTFILE*40 COMMON /PRINTC/ ACADFILE, FILENAME, LATDEFFILE, MADFILE, 1 STRUCTFILE, TRANSPORTFILE