add_3d Subroutine

public subroutine add_3d(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),size(ioval,3))

added

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

Undefined value