PARAMETER(MS=5)
      COMMON/FAM/NFS(NY,MS),NUS(NY,MS),NBS(MS)