remove some more common blocks

sammy/src/dat/mdat2.f90

@@ -24,9 +24,9 @@ module mdat2_m
       use EndfData_M
       use modf3_M
       use mdat9_m
+      use mdat3_Odfspc_M
       use AllocateFunctions_m
       IMPLICIT DOUBLE PRECISION (a-h,o-z)
-      COMMON /Odfspc/ Nsect, Nch
       type(EndfData)::reader
       DIMENSION Bcf(*), Cf2(*), Dopwid(*),                    &
          Parext(Krext,Ntotc,*), Jflext(Krext,Ntotc,*), Parorr(*),      &

sammy/src/dat/mdat3.f90

+module mdat3_Odfspc_M
+   implicit none
+   integer::Nsect, Nch
+end module mdat3_Odfspc_M
 module mdat3_M
   use AllocateFunctions_m
 
@@ -24,6 +28,7 @@ module mdat3_M
       use samxxx_common_m
       use EndfData_common_m
       use modf3_M
+      use mdat3_Odfspc_M
       IMPLICIT DOUBLE PRECISION (a-h,o-z)
 !
       real(kind=8),allocatable,dimension(:)::Ee(:), Energy(:)
@@ -34,7 +39,6 @@ module mdat3_M
 !     *   Dummy(Ndat), DATA(Ndat), Vardat(Ndatt), Ptilde(Numdtp),
 !     *   Gtilde(Ndat,Numdtp)
 !
-      COMMON /Odfspc/ Nsect, Nch
 !
       Isc = Mind + Ixxchn
       CALL Pltin (14, Nsect, 1, Isc, Ndatb, Dummy, 1)
@@ -114,6 +118,7 @@ module mdat3_M
       use samxxx_common_m
       use fixedr_m
       use modf3_M
+      use mdat3_Odfspc_M
       IMPLICIT DOUBLE PRECISION (a-h,o-z)
 !
       real(kind=8),allocatable,dimension(:)::Ee(:), Energy(:)
@@ -123,7 +128,6 @@ module mdat3_M
 !      DIMENSION Energy(Ndat), Ee(Ndatb), Data(Numcro,Ndat),
 !     *   Vardat(Numcro,Ndat), Dummy(Ndat)
 !
-      COMMON /Odfspc/ Nsect, Nch
       DATA Zero /0.0d0/
 !
       Kangmn = Mine

sammy/src/sug/msug0.f

@@ -51,8 +51,7 @@ C -----------------------------------------------------------------------
 C
       use constn_common_m
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
-      PARAMETER (Nrs = 10000)
-      COMMON /Data1/ Spin, Awri, Rr, Sigsq              
+      PARAMETER (Nrs = 10000)           
       COMMON /Data2/ Dd(3), Stn(3), Vv(3), Pcut
       COMMON /Tbl/ Aj(12), G(12), Wt(12), Wtl(3)   
       COMMON /Ajseed/ Seed
@@ -64,6 +63,7 @@ C
       CHARACTER*24 Parin, Fout, Parout
       CHARACTER*13 Assj(2)
       CHARACTER*1 Flagl, Flagg, Txt(65), Txt2(15), Wave(3), Flgmle(3)
+      real(kind=8),save ::Spin, Awri, Rr, Sigsq
       NAMELIST /Indata/ Parin, Partyp, Fout, Parout, Eini, Efin, Awri,
      *   Spin, Pcut, Optj, Scattr, Disp, Sigcon, Bn, Pair, Denpar, Stn,
      *   Dzero, Frac, Lsam, Ajsam