fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix typos

Browse Source
oacc_loloum
sfilippone 6 months ago
parent 686bac4224
commit 9e18545151
15 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File

2
openacc/impl/psb_c_oacc_csr_csmm.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalic_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_c_oacc_csr_csmv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalic_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_c_oacc_csr_inner_vect_sv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalic_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_c_oacc_csr_mold.F90
Unescape Escape View File

@ -31,5 +31,5 @@ contains
return return
end subroutine psb_c_oacc_csr_mold end subroutine psb_c_oacc_csr_mold
end submodule psb_c_oacc_csr_molc_impl end submodule psb_c_oacc_csr_mold_impl

2
openacc/impl/psb_c_oacc_csr_vect_mv.F90
Unescape Escape View File

@ -18,7 +18,7 @@ contains
if ((n /= size(x%v)) .or. (n /= size(y%v))) then if ((n /= size(x%v)) .or. (n /= size(y%v))) then
write(0,*) 'Size error ', m, n, size(x%v), size(y%v) 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 return
end if end if

2
openacc/impl/psb_s_oacc_csr_csmm.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalis_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_s_oacc_csr_csmv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalis_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_s_oacc_csr_inner_vect_sv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invalis_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_s_oacc_csr_mold.F90
Unescape Escape View File

@ -31,5 +31,5 @@ contains
return return
end subroutine psb_s_oacc_csr_mold end subroutine psb_s_oacc_csr_mold
end submodule psb_s_oacc_csr_mols_impl end submodule psb_s_oacc_csr_mold_impl

2
openacc/impl/psb_s_oacc_csr_vect_mv.F90
Unescape Escape View File

@ -18,7 +18,7 @@ contains
if ((n /= size(x%v)) .or. (n /= size(y%v))) then if ((n /= size(x%v)) .or. (n /= size(y%v))) then
write(0,*) 'Size error ', m, n, size(x%v), size(y%v) 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 return
end if end if

2
openacc/impl/psb_z_oacc_csr_csmm.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invaliz_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_z_oacc_csr_csmv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invaliz_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_z_oacc_csr_inner_vect_sv.F90
Unescape Escape View File

@ -27,7 +27,7 @@ contains
end if end if
if (.not.a%is_asb()) then if (.not.a%is_asb()) then
info = psb_err_invaliz_mat_state_ info = psb_err_invalid_mat_state_
call psb_errpush(info, name) call psb_errpush(info, name)
goto 9999 goto 9999
endif endif

2
openacc/impl/psb_z_oacc_csr_mold.F90
Unescape Escape View File

@ -31,5 +31,5 @@ contains
return return
end subroutine psb_z_oacc_csr_mold end subroutine psb_z_oacc_csr_mold
end submodule psb_z_oacc_csr_molz_impl end submodule psb_z_oacc_csr_mold_impl

2
openacc/impl/psb_z_oacc_csr_vect_mv.F90
Unescape Escape View File

@ -18,7 +18,7 @@ contains
if ((n /= size(x%v)) .or. (n /= size(y%v))) then if ((n /= size(x%v)) .or. (n /= size(y%v))) then
write(0,*) 'Size error ', m, n, size(x%v), size(y%v) 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 return
end if end if

Write Preview
Loading…
Cancel
Save