Corrected implementation of @X@_base_inv_a2_check to be compliant with NVECTOR behavior

This commit is contained in:
Cirdans-Home
2020-04-02 16:31:30 +02:00
parent 6e28cc2b44
commit 9e9a2e3975
8 changed files with 8 additions and 8 deletions
+1 -1
View File
@@ -1523,7 +1523,7 @@ contains
y%v(i) = 1_psb_spk_/x(i)
else
info = 1
exit
y%v(i) = 0_psb_spk_
end if
end do
end if
+1 -1
View File
@@ -1530,7 +1530,7 @@ contains
y%v(i) = 1_psb_dpk_/x(i)
else
info = 1
exit
y%v(i) = 0_psb_dpk_
end if
end do
end if
+1 -1
View File
@@ -1530,7 +1530,7 @@ contains
y%v(i) = 1_psb_spk_/x(i)
else
info = 1
exit
y%v(i) = 0_psb_spk_
end if
end do
end if
+1 -1
View File
@@ -1523,7 +1523,7 @@ contains
y%v(i) = 1_psb_dpk_/x(i)
else
info = 1
exit
y%v(i) = 0_psb_dpk_
end if
end do
end if