add_2d Subroutine

public subroutine add_2d(ioval, ival, undef)

add ival

Arguments

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

Base value

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

added

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

Undefined value