NAME

patch - extract and put back patches


SYNOPSIS

call patch_init(npatch,nwall,nwind)

ierr=ptch_lop(adj,add,wall,wind)


PARAMETERS

npatches - integer(:)
      number of patches
nwall - integer(:)
nwind - integer(:)
adj,add,wall,wind -
      Standard operator interface


DESCRIPTION

Extract and put back patches


SEE ALSO

the misinput manpage


LIBRARY

geef90