|
|
@ -1034,13 +1034,6 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
|
|
|
|
goto 9999
|
|
|
|
goto 9999
|
|
|
|
endif
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
|
|
if (present(dupl)) then
|
|
|
|
|
|
|
|
call b%set_dupl(dupl)
|
|
|
|
|
|
|
|
else if (a%is_bld()) then
|
|
|
|
|
|
|
|
! Does this make sense at all?? Who knows..
|
|
|
|
|
|
|
|
call b%set_dupl(psb_dupl_def_)
|
|
|
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (count( (/present(mold),present(type) /)) > 1) then
|
|
|
|
if (count( (/present(mold),present(type) /)) > 1) then
|
|
|
|
info = psb_err_many_optional_arg_
|
|
|
|
info = psb_err_many_optional_arg_
|
|
|
|
call psb_errpush(info,name,a_err='TYPE, MOLD')
|
|
|
|
call psb_errpush(info,name,a_err='TYPE, MOLD')
|
|
|
@ -1079,6 +1072,13 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
|
|
|
|
goto 9999
|
|
|
|
goto 9999
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (present(dupl)) then
|
|
|
|
|
|
|
|
call altmp%set_dupl(dupl)
|
|
|
|
|
|
|
|
else if (a%is_bld()) then
|
|
|
|
|
|
|
|
! Does this make sense at all?? Who knows..
|
|
|
|
|
|
|
|
call altmp%set_dupl(psb_dupl_def_)
|
|
|
|
|
|
|
|
end if
|
|
|
|
if (debug) write(psb_err_unit,*) 'Converting from ',&
|
|
|
|
if (debug) write(psb_err_unit,*) 'Converting from ',&
|
|
|
|
& a%get_fmt(),' to ',altmp%get_fmt()
|
|
|
|
& a%get_fmt(),' to ',altmp%get_fmt()
|
|
|
|
|
|
|
|
|
|
|
|