Searched refs:partial_ndim (Results 1 – 1 of 1) sorted by relevance
561 INTEGER :: partial_ndim = 0, ic, ipar, nc local572 IF (PRESENT(partial_clocks)) partial_ndim = SIZE (partial_clocks)578 IF ( partial_ndim .GT. 0 ) THEN 579 ALLOCATE(partial_(partial_ndim), match(nclock) ) 580 DO ipar = 1, partial_ndim 596 DO ipar =1, partial_ndim