patch - extract and put back patches
call patch_init(npatch,nwall,nwind)
ierr=ptch_lop(adj,add,wall,wind)
integer(:)
number of patches
Standard operator interface
Extract and put back patches
the misinput manpage
geef90