From 9f9ea6e7801826d6d8a0c274faea622273a1029f Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 16 Aug 2016 12:41:05 +0000 Subject: [PATCH] mld2p4-extaggr: mlprec/mld_base_prec_type.F90 --- mlprec/mld_base_prec_type.F90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mlprec/mld_base_prec_type.F90 b/mlprec/mld_base_prec_type.F90 index 04383e0b..30b328b6 100644 --- a/mlprec/mld_base_prec_type.F90 +++ b/mlprec/mld_base_prec_type.F90 @@ -86,14 +86,14 @@ module mld_base_prec_type integer(psb_ipk_), parameter :: mld_patchlevel_ = 0 - type mld_aux_onelev_map_type - integer(psb_ipk_) :: naggr - integer(psb_ipk_), allocatable :: ilaggr(:) - end type mld_aux_onelev_map_type - - type mld_aux_map_type - type(mld_aux_onelev_map_type), allocatable :: mapv(:) - end type mld_aux_map_type +!!$ type mld_aux_onelev_map_type +!!$ integer(psb_ipk_) :: naggr +!!$ integer(psb_ipk_), allocatable :: ilaggr(:) +!!$ end type mld_aux_onelev_map_type +!!$ +!!$ type mld_aux_map_type +!!$ type(mld_aux_onelev_map_type), allocatable :: mapv(:) +!!$ end type mld_aux_map_type type mld_ml_parms integer(psb_ipk_) :: sweeps, sweeps_pre, sweeps_post