fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix typos

Browse Source
This commit is contained in:
sfilippone
2024-07-17 13:04:07 +02:00
parent 686bac4224
commit 9e18545151
15 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
openacc/impl/psb_c_oacc_csr_csmm.F90
+1 -1
View File
@@ -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
openacc/impl/psb_c_oacc_csr_csmv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_c_oacc_csr_mold.F90
+1 -1
View File
@@ -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
openacc/impl/psb_c_oacc_csr_vect_mv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_s_oacc_csr_csmm.F90
+1 -1
View File
@@ -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
openacc/impl/psb_s_oacc_csr_csmv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_s_oacc_csr_mold.F90
+1 -1
View File
@@ -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
openacc/impl/psb_s_oacc_csr_vect_mv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_z_oacc_csr_csmm.F90
+1 -1
View File
@@ -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
openacc/impl/psb_z_oacc_csr_csmv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90
+1 -1
View File
@@ -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
openacc/impl/psb_z_oacc_csr_mold.F90
+1 -1
View File
@@ -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
openacc/impl/psb_z_oacc_csr_vect_mv.F90
+1 -1
View File
@@ -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