88 subroutine s10(table)  argument
91   integer :: table(..)  local
127 subroutine s11(table)  argument
130   integer :: table(..)  local
166 subroutine s12(table)  argument
169   integer :: table(..)  local
205 subroutine s13(table)  argument
208   integer :: table(..)  local
244 subroutine s14(table)  argument
246   integer :: table(..)  local
287 subroutine s15(table)  argument
290   integer :: table(..)  local