Listing 1

*/
*/ file: patch-f.linux
*/
*/ -----------------definitions
*define unix<cheap
*define plot<mcplot<gkssim<xlib
*/
*/ -----------------block data
*/ set mdas parameter
*d<zc4a.5
      parameter (mdas=2000000)
*/ set default path to mcnp data libraries
*d<cor4-2.24
     3 hdpath/'/usr/local/mcnp4a/datalibs'/,
*/ delete the ttyint subroutine
*d<tt4a.1<tt4a.30
*/ delete the getidt subroutine
*d<gi.1<gi.46