diff --git a/src/external_interfaces_dot.f90 b/src/external_interfaces.f90 similarity index 92% rename from src/external_interfaces_dot.f90 rename to src/external_interfaces.f90 index f4f42fd..523aa30 100644 --- a/src/external_interfaces_dot.f90 +++ b/src/external_interfaces.f90 @@ -1,4 +1,4 @@ -module external_interfaces +module external_interfaces_dot use kinds @@ -29,4 +29,4 @@ end function ddot #endif end interface -end module external_interfaces +end module external_interfaces_dot diff --git a/src/fordot_options.f90 b/src/fordot_options.f90 index 7a70080..e3dec08 100644 --- a/src/fordot_options.f90 +++ b/src/fordot_options.f90 @@ -35,7 +35,7 @@ end function dot_R0R1R1_rel_opts !> author: Seyed Ali Ghasemi pure function md_2(u,v) result(a) - use external_interfaces + use external_interfaces_dot real(rk), dimension(:), intent(in), contiguous :: u, v real(rk) :: a