fprintf ( 1, '\n' );
fprintf ( 1, 'paraheat_pwc_test_batch:\n' );
fprintf ( 1, '  MATLAB requires a script to call a function in batch mode.\n' );

diffusivity_seed = 987654321;
paraheat_pwc_test ( diffusivity_seed );

fprintf ( 1, '\n' );
fprintf ( 1, 'paraheat_pwc_test_batch:\n' );
fprintf ( 1, '  Normal end of execution.\n' );
