Merge pull request #19 from sourceryinstitute/rm-conditionals

Remove unnecessary macros & refactor directory structure

Author: rouson

src/assert_m.F90 renamed to src/assert/assert_subroutine_m.F90

@@ -4,7 +4,7 @@
 !     "Multi-Dimensional Physics Implementation into Fuel Analysis under Steady-state and Transients (FAST)",
 !     contract # NRC-HQ-60-17-C-0007
 !
-module assert_m
+module assert_subroutine_m
   !! summary: Utility for runtime checking of logical assertions.
   !! usage: error-terminate if the assertion fails:
   !!
@@ -44,4 +44,4 @@ pure module subroutine assert(assertion, description, diagnostic_data)
 
   end interface
 
-end module
+end module assert_subroutine_m

src/assert_s.f90 renamed to src/assert/assert_subroutine_s.f90

@@ -4,7 +4,7 @@
 !     "Multi-Dimensional Physics Implementation into Fuel Analysis under Steady-state and Transients (FAST)",
 !     contract # NRC-HQ-60-17-C-0007
 !
-submodule(assert_m) assert_s
+submodule(assert_subroutine_m) assert_subroutine_s
   implicit none
 
 contains
@@ -84,4 +84,4 @@ end function string
 
   end procedure
 
-end submodule
+end submodule assert_subroutine_s

src/characterizable_m.f90 renamed to src/assert/characterizable_m.f90

@@ -35,11 +35,7 @@ module intrinsic_array_m
 
     pure module function construct(array) result(intrinsic_array)
       implicit none
-#ifndef NAGFOR
       class(*), intent(in) :: array(..)
-#else
-      class(*), intent(in) :: array(:)
-#endif
       type(intrinsic_array_t) intrinsic_array
     end function
 

src/intrinsic_array_m.F90 renamed to src/assert/intrinsic_array_m.f90

@@ -5,10 +5,8 @@
 
   module procedure construct
 
-#ifndef NAGFOR
   select rank(array)
     rank(1)
-#endif
       select type(array)
       type is(complex)
         allocate(intrinsic_array%complex_1D, source = array)
@@ -23,7 +21,6 @@
       class default
         error  stop "intrinsic_array_t construct: unsupported rank-2 type"
       end select
-#ifndef NAGFOR
     rank(2)
       select type(array)
       type is(complex)
@@ -59,7 +56,6 @@
     rank default
       error  stop "intrinsic_array_t construct: unsupported rank"
     end select
-#endif
 
   end procedure
 

src/intrinsic_array_s.F90 renamed to src/assert/intrinsic_array_s.f90

@@ -0,0 +1,6 @@
+module assert_m
+  use intrinsic_array_m
+  use assert_subroutine_m
+  use characterizable_m
+  implicit none
+end module assert_m