diff --git a/openacc/impl/psb_c_oacc_csr_csmm.F90 b/openacc/impl/psb_c_oacc_csr_csmm.F90 index c26df410..5bf0bad4 100644 --- a/openacc/impl/psb_c_oacc_csr_csmm.F90 +++ b/openacc/impl/psb_c_oacc_csr_csmm.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalic_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_c_oacc_csr_csmv.F90 b/openacc/impl/psb_c_oacc_csr_csmv.F90 index 8f37efb3..e5d5f24e 100644 --- a/openacc/impl/psb_c_oacc_csr_csmv.F90 +++ b/openacc/impl/psb_c_oacc_csr_csmv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalic_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90 b/openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90 index 2d733f48..1dee9f2e 100644 --- a/openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90 +++ b/openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalic_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_c_oacc_csr_mold.F90 b/openacc/impl/psb_c_oacc_csr_mold.F90 index 6ee36985..cf32ea94 100644 --- a/openacc/impl/psb_c_oacc_csr_mold.F90 +++ b/openacc/impl/psb_c_oacc_csr_mold.F90 @@ -31,5 +31,5 @@ contains return end subroutine psb_c_oacc_csr_mold -end submodule psb_c_oacc_csr_molc_impl +end submodule psb_c_oacc_csr_mold_impl diff --git a/openacc/impl/psb_c_oacc_csr_vect_mv.F90 b/openacc/impl/psb_c_oacc_csr_vect_mv.F90 index b4b79d56..0fd1ed35 100644 --- a/openacc/impl/psb_c_oacc_csr_vect_mv.F90 +++ b/openacc/impl/psb_c_oacc_csr_vect_mv.F90 @@ -18,7 +18,7 @@ contains if ((n /= size(x%v)) .or. (n /= size(y%v))) then write(0,*) 'Size error ', m, n, size(x%v), size(y%v) - info = psb_err_invalic_mat_state_ + info = psb_err_invalid_mat_state_ return end if diff --git a/openacc/impl/psb_s_oacc_csr_csmm.F90 b/openacc/impl/psb_s_oacc_csr_csmm.F90 index 2e7def53..bb8283bf 100644 --- a/openacc/impl/psb_s_oacc_csr_csmm.F90 +++ b/openacc/impl/psb_s_oacc_csr_csmm.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalis_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_s_oacc_csr_csmv.F90 b/openacc/impl/psb_s_oacc_csr_csmv.F90 index ba673941..c224dc0e 100644 --- a/openacc/impl/psb_s_oacc_csr_csmv.F90 +++ b/openacc/impl/psb_s_oacc_csr_csmv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalis_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90 b/openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90 index 7af897a7..ec7f4bad 100644 --- a/openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90 +++ b/openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invalis_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_s_oacc_csr_mold.F90 b/openacc/impl/psb_s_oacc_csr_mold.F90 index a85471e5..95bddde8 100644 --- a/openacc/impl/psb_s_oacc_csr_mold.F90 +++ b/openacc/impl/psb_s_oacc_csr_mold.F90 @@ -31,5 +31,5 @@ contains return end subroutine psb_s_oacc_csr_mold -end submodule psb_s_oacc_csr_mols_impl +end submodule psb_s_oacc_csr_mold_impl diff --git a/openacc/impl/psb_s_oacc_csr_vect_mv.F90 b/openacc/impl/psb_s_oacc_csr_vect_mv.F90 index 9b15da3b..c2bbd6b1 100644 --- a/openacc/impl/psb_s_oacc_csr_vect_mv.F90 +++ b/openacc/impl/psb_s_oacc_csr_vect_mv.F90 @@ -18,7 +18,7 @@ contains if ((n /= size(x%v)) .or. (n /= size(y%v))) then write(0,*) 'Size error ', m, n, size(x%v), size(y%v) - info = psb_err_invalis_mat_state_ + info = psb_err_invalid_mat_state_ return end if diff --git a/openacc/impl/psb_z_oacc_csr_csmm.F90 b/openacc/impl/psb_z_oacc_csr_csmm.F90 index aeaaab33..97a38deb 100644 --- a/openacc/impl/psb_z_oacc_csr_csmm.F90 +++ b/openacc/impl/psb_z_oacc_csr_csmm.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invaliz_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_z_oacc_csr_csmv.F90 b/openacc/impl/psb_z_oacc_csr_csmv.F90 index f5501b21..8def3c76 100644 --- a/openacc/impl/psb_z_oacc_csr_csmv.F90 +++ b/openacc/impl/psb_z_oacc_csr_csmv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invaliz_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90 b/openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90 index b5d552d3..4975b276 100644 --- a/openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90 +++ b/openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90 @@ -27,7 +27,7 @@ contains end if if (.not.a%is_asb()) then - info = psb_err_invaliz_mat_state_ + info = psb_err_invalid_mat_state_ call psb_errpush(info, name) goto 9999 endif diff --git a/openacc/impl/psb_z_oacc_csr_mold.F90 b/openacc/impl/psb_z_oacc_csr_mold.F90 index e7e9e8b9..93b6bb17 100644 --- a/openacc/impl/psb_z_oacc_csr_mold.F90 +++ b/openacc/impl/psb_z_oacc_csr_mold.F90 @@ -31,5 +31,5 @@ contains return end subroutine psb_z_oacc_csr_mold -end submodule psb_z_oacc_csr_molz_impl +end submodule psb_z_oacc_csr_mold_impl diff --git a/openacc/impl/psb_z_oacc_csr_vect_mv.F90 b/openacc/impl/psb_z_oacc_csr_vect_mv.F90 index 437dd70a..b8da5c8f 100644 --- a/openacc/impl/psb_z_oacc_csr_vect_mv.F90 +++ b/openacc/impl/psb_z_oacc_csr_vect_mv.F90 @@ -18,7 +18,7 @@ contains if ((n /= size(x%v)) .or. (n /= size(y%v))) then write(0,*) 'Size error ', m, n, size(x%v), size(y%v) - info = psb_err_invaliz_mat_state_ + info = psb_err_invalid_mat_state_ return end if