$ ON ERROR THEN CONTINUE
$ SET DEFAULT PARKER_DISK:[PARKER.SCATTER.REDUC.NEW]$ SET WORKING_SET/LIMIT=1024
$ ASSIGN/USER ASPHER.PLT   FOR001
$ ASSIGN/USER SPHLIM.PLT   FOR002
$ ASSIGN/USER SPHAVE.PLT   FOR003
$ ASSIGN/USER CONTOUR.PLT  FOR004
$ ASSIGN/USER CO2.DAT      FOR005
$ ASSIGN/USER CO2.OUT      FOR006
$ ASSIGN/USER POT.DAT      FOR009
$ ASSIGN/USER QSUDDN.DAT   FOR010
$ ASSIGN/USER CROSS1.DAT   FOR011
$ ASSIGN/USER CROSS2.DAT   FOR012
$ ASSIGN/USER CROSS3.DAT   FOR013
$ ASSIGN/USER POTPRM.DAT   FOR014
$ ASSIGN/USER VIRIAL.DAT   FOR019
$ ASSIGN/USER VISCOS.DAT   FOR021
$ ASSIGN/USER DIFFUS.DAT   FOR022
$ ASSIGN/USER ASIGMA.DAT   FOR023
$ ASSIGN/USER THERMC.DAT   FOR024
$ ASSIGN/USER THRMDF.DAT   FOR025
$ ASSIGN/USER RAMAN.DAT    FOR026
$ ASSIGN/USER DIPOLE.DAT   FOR027
$ ASSIGN/USER PROPER.DAT   FOR028
$ ASSIGN/USER PARM.OUT     FOR030
$ RUN MAIN
$ @NEWRUN