********************************************************************************
c implicit real*8 (a-h,o-z)
C Max. number of processors.
********************************************************************************
c implicit real*8 (a-h,o-z)
C Max. number of processors.