$ write(0,*) 'From vector_pde_ddt: A',i,ic_glob,& $ & a(i),dtinv, x_(b(i)),& $ & y_(b(i)),z_(b(i))
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=1), | intent(in) | :: | sign | |||
type(vector_pde), | intent(inout) | :: | pde | |||
type(vector_field), | intent(in) | :: | phi | |||
real(kind=psb_dpk_), | intent(in) | :: | dt | |||
type(scalar_field), | intent(in), | optional | :: | fld | ||
real(kind=psb_dpk_), | intent(in), | optional | :: | side |