SUBROUTINE set_slicer_attributes_dvrp !------------------------------------------------------------------------------! ! Actual revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: set_slicer_attributes_dvrp.f90 280 2009-04-01 07:56:31Z letzel $ ! ! Initial version (2009/03/31) ! ! Description: ! ------------ ! This routine sets the dvrp-slicer attributes !------------------------------------------------------------------------------! #if defined( __dvrp_graphics ) USE control_parameters USE dvrp_variables IMPLICIT NONE ! INTEGER :: ! REAL :: ! !-- Set particle color #endif END SUBROUTINE set_slicer_attributes_dvrp