subroutine getseams(seamfile,fillnumber,npts,ipts,jpts)
      end subroutine getseams

subroutine gtg_smoothseams(ismooth,IM,JM,jsta_2L,jend_2U,jsta,jend,fillnumber,npts,ipts,jpts,fld)
end subroutine gtg_smoothseams