subst_2d Subroutine

public subroutine subst_2d(ioval, ival, undef)

subtract ival

Arguments

Type IntentOptional Attributes Name
double precision, intent(inout) :: ioval(:,:)

Base value

double precision, intent(in) :: ival(size(ioval,1),size(ioval,2))

Subtracted

double precision, intent(in), optional :: undef

Undefined value