Merge pull request #1 from JCSDA/feature/mpi-wrappers

Feature/mpi wrappers
ecmwf · Oct 18, 2018 · c21474c · c21474c
2 parents c70bdb9 + 6486ef6
commit c21474c
Show file tree

Hide file tree

Showing 4 changed files with 1,443 additions and 11 deletions.
diff --git a/src/fckit/fctest.F90 b/src/fckit/fctest.F90
@@ -24,6 +24,7 @@ module fctest
     module procedure fctest_check_equal_int64_r1
     module procedure fctest_check_equal_real32_r1
     module procedure fctest_check_equal_real64_r1
+    module procedure fctest_check_equal_logical
   end interface FCE
   interface FCC
     module procedure fctest_check_close_real32
@@ -101,6 +102,16 @@ subroutine fctest_check_equal_real64(V1,V2,line)
   endif
 end subroutine
 
+subroutine fctest_check_equal_logical(V1,V2,line)
+  logical, intent(in) :: V1, V2
+  integer(c_int32_t), intent(in) :: line
+  if(V1.neqv.V2) then
+    write(0,'(2A,I0,2A)') trim(source_file),":",line,": warning: ",trim(sweep_leading_blanks(get_source_line(line)))
+    write(0,*) "--> [",V1,"!=",V2,"]"
+    exit_status=1
+  endif
+end subroutine
+
 subroutine fctest_check_equal_string(V1,V2,line)
   character(kind=c_char,len=*), intent(in) :: V1, V2
   integer(c_int32_t), intent(in) :: line