Aligned to new names for internal constants.

Fixed ext field of descriptors. First version; to be further
fixed storing force_hv into the descriptor itself.
This commit is contained in:
Salvatore Filippone
2007-01-23 10:06:41 +00:00
parent 6296068177
commit 22686aefa0
188 changed files with 1571 additions and 1183 deletions
+1 -1
View File
@@ -651,7 +651,7 @@ contains
9999 continue
call psb_erractionrestore(err_act)
if (err_act == act_abort) then
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if