diff --git a/src/trans/internal/suleg_mod.F90 b/src/trans/internal/suleg_mod.F90
index 2060e0ae..daeb5736 100644
--- a/src/trans/internal/suleg_mod.F90
+++ b/src/trans/internal/suleg_mod.F90
@@ -16,34 +16,35 @@ MODULE SULEG_MOD
 SUBROUTINE SULEG
 !DEC$ OPTIMIZE:1
 
-USE PARKIND1  ,ONLY : JPRD, JPIM, JPRB
-USE PARKIND2  ,ONLY : JPRH
-USE MPL_MODULE
-
-USE TPM_GEN
-USE TPM_DIM
-USE TPM_CONSTANTS
-USE TPM_DISTR
-USE TPM_FIELDS
-USE TPM_FLT
-USE TPM_GEOMETRY
-USE TPM_CTL
-USE ABORT_TRANS_MOD ,ONLY : ABORT_TRANS
-
-USE PRE_SULEG_MOD
-USE SUGAW_MOD
-USE SUPOL_MOD
-USE SUPOLF_MOD
-USE TPM_POL
-USE SUTRLE_MOD
-USE SETUP_GEOM_MOD
-USE BUTTERFLY_ALG_MOD
-USE SEEFMM_MIX
-USE SET2PE_MOD
-USE ABORT_TRANS_MOD
-USE PREPSNM_MOD     ,ONLY : PREPSNM
-USE WRITE_LEGPOL_MOD
-USE READ_LEGPOL_MOD
+USE PARKIND1          ,ONLY : JPRD, JPIM, JPRB
+USE PARKIND2          ,ONLY : JPRH
+USE MPL_MODULE        ,ONLY : MPL_BYTES, MPL_BARRIER, JP_NON_BLOCKING_STANDARD, MPL_RECV, &
+  &                           MPL_SEND, MPL_WAIT
+
+USE TPM_GEN           ,ONLY : NOUT, LMPOFF, NPRINTLEV
+USE TPM_DIM           ,ONLY : R
+USE TPM_CONSTANTS     ,ONLY : RA
+USE TPM_DISTR         ,ONLY : NPRTRV, NPRTRW, NPROC, D, MTAGLETR, MYPROC, MYSETV, MYSETW, NPRCIDS
+USE TPM_FIELDS        ,ONLY : F
+USE TPM_FLT           ,ONLY : S
+USE TPM_GEOMETRY      ,ONLY : G
+USE TPM_CTL           ,ONLY : C
+USE ABORT_TRANS_MOD   ,ONLY : ABORT_TRANS
+
+USE PRE_SULEG_MOD     ,ONLY : PRE_SULEG
+USE SUGAW_MOD         ,ONLY : SUGAW
+USE SUPOL_MOD         ,ONLY : SUPOL
+USE SUPOLF_MOD        ,ONLY : SUPOLF
+USE TPM_POL           ,ONLY : INI_POL, END_POL
+USE SUTRLE_MOD        ,ONLY : SUTRLE
+USE SETUP_GEOM_MOD    ,ONLY : SETUP_GEOM
+USE BUTTERFLY_ALG_MOD ,ONLY : CLONE, CONSTRUCT_BUTTERFLY, PACK_BUTTERFLY_STRUCT, &
+  &                           UNPACK_BUTTERFLY_STRUCT
+USE SEEFMM_MIX        ,ONLY : SETUP_SEEFMM
+USE SET2PE_MOD        ,ONLY : SET2PE
+USE PREPSNM_MOD       ,ONLY : PREPSNM
+USE WRITE_LEGPOL_MOD  ,ONLY : WRITE_LEGPOL
+USE READ_LEGPOL_MOD   ,ONLY : READ_LEGPOL
 
 !**** *SULEG * - initialize the Legendre polynomials